usermin/change_referers.cgi

   1 #!/usr/local/bin/perl
   2 # change_referers.cgi
   3 # Change referer checking settings
   4
   5 require './usermin-lib.pl';
   6 &ReadParse();
   7
   8 &get_usermin_config(\%ugconfig);
   9 &lock_file($usermin_config);
  10 $ugconfig{'referer'} = $in{'referer'};
  11 $ugconfig{'referers'} = join(" ", split(/\s+/, $in{'referers'}));
  12 $ugconfig{'referers_none'} = !$in{'referers_none'};
  13 &put_usermin_config(\%ugconfig);
  14 &unlock_file($usermin_config);
  15 &webmin_log('referers', undef, undef, \%in);
  16
  17 &redirect("");
  18