qmailadmin/old_save_rfile.cgi

   1 #!/usr/local/bin/perl
   2 # save_rfile.cgi
   3 # Save an autoreply file
   4
   5 require './qmail-lib.pl';
   6 &ReadParseMime();
   7
   8 $in{'replies_def'} || $in{'replies'} =~ /^\/\S+/ ||
   9         &error($text{'rfile_ereplies'});
  10 $in{'period_def'} || $in{'period'} =~ /^\d+$/ ||
  11         &error($text{'rfile_eperiod'});
  12
  13 $in{'text'} =~ s/\r//g;
  14 open(FILE, ">$in{'file'}");
  15 if (!$in{'replies_def'}) {
  16         print FILE "Reply-Tracking: $in{'replies'}\n";
  17         }
  18 if (!$in{'period_def'}) {
  19         print FILE "Reply-Period: $in{'period'}\n";
  20         }
  21 print FILE $in{'text'};
  22 close(FILE);
  23 &redirect("edit_alias.cgi?name=$in{'name'}");
  24