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

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

&lock_file("$config_directory/config");
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{'proxy_user'} = $in{'user'};
$gconfig{'proxy_pass'} = $in{'pass'};
$gconfig{'noproxy'} = $in{'noproxy'};
&write_file("$config_directory/config", \%gconfig);
&unlock_file("$config_directory/config");
&webmin_log('proxy', undef, undef, \%in);

&redirect("");

