procmail/manual_save.cgi

   1 #!/usr/local/bin/perl
   2 # manual_save.cgi
   3 # Write out the config file
   4
   5 require './procmail-lib.pl';
   6 &ReadParseMime();
   7
   8 defined($in{'data'}) || &error($text{'manual_edata'});
   9 $in{'data'} =~ s/\r//g;
  10 &open_lock_tempfile(FILE, ">$procmailrc");
  11 &print_tempfile(FILE, $in{'data'});
  12 &close_tempfile(FILE);
  13 &webmin_log("manual");
  14 &redirect("");
  15