qmailadmin/save_bads.cgi

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