webmin/change_referers.cgi

   1 #!/usr/local/bin/perl
   2 # change_referers.cgi
   3 # Change referer checking settings
   4
   5 require './webmin-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'referers_err'});
   8
   9 &lock_file("$config_directory/config");
  10 $gconfig{'referer'} = $in{'referer'};
  11 @refs = split(/\s+/, $in{'referers'});
  12 foreach my $r (@refs) {
  13         $r =~ /^[a-z0-9\.\-\_]+$/ || &error(&text('referers_ehost', $r));
  14         }
  15 $gconfig{'referers'} = join(" ", @refs);
  16 $gconfig{'referers_none'} = int(!$in{'referers_none'});
  17 &write_file("$config_directory/config", \%gconfig);
  18 &unlock_file("$config_directory/config");
  19 &webmin_log('referers', undef, undef, \%in);
  20
  21 &redirect("");
  22