change_proxy.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# change_proxy.cgi
# Change proxy settings

require './webmin-lib.pl';
&error_setup($text{'proxy_err'});
&ReadParse();

if ($in{'http_def'}) { delete($gconfig{'http_proxy'}); }
elsif ($in{'http'} !~ /^http:\/\/(\S+):(\d+)/) {
	&error($text{'proxy_ehttp'});
	}
else { $gconfig{'http_proxy'} = $in{'http'}; }

if ($in{'ftp_def'}) { delete($gconfig{'ftp_proxy'}); }
elsif ($in{'ftp'} !~ /^http:\/\/(\S+):(\d+)/) {
	&error($text{'proxy_eftp'});
	}
else { $gconfig{'ftp_proxy'} = $in{'ftp'}; }

$gconfig{'noproxy'} = $in{'noproxy'};

&write_file("$config_directory/config", \%gconfig);
&redirect("");