sendmail/manual_features.cgi

   1 #!/usr/local/bin/perl
   2 # manual_features.cgi
   3 # Save the manually edited M4 file
   4
   5 require './sendmail-lib.pl';
   6 require './features-lib.pl';
   7 &ReadParseMime();
   8 $features_access || &error($text{'features_ecannot'});
   9
  10 $in{'data'} =~ s/\r//g;
  11 $in{'data'} =~ s/\n*$/\n/;
  12 &open_tempfile(FEAT, ">$config{'sendmail_mc'}");
  13 &print_tempfile(FEAT, $in{'data'});
  14 &close_tempfile(FEAT);
  15 &redirect("list_features.cgi");
  16