qmailadmin/save_percents.cgi

   1 #!/usr/local/bin/perl
   2 # save_percents.cgi
   3 # Save the list of % domains
   4
   5 require './qmail-lib.pl';
   6 &ReadParseMime();
   7
   8 $in{'percents'} =~ s/\r//g;
   9 @percents = split(/\s+/, $in{'percents'});
  10 if (@percents) {
  11         &save_control_file("percenthack", \@percents);
  12         }
  13 else {
  14         &save_control_file("percenthack", undef);
  15         }
  16 &webmin_log("percents", undef, undef, \%in);
  17 &redirect("");
  18