sendmail/edit_afile.cgi

   1 #!/usr/local/bin/perl
   2 # edit_afile.cgi
   3 # Display the contents of an address file
   4
   5 require (-r 'sendmail-lib.pl' ? './sendmail-lib.pl' :
   6          -r 'qmail-lib.pl' ? './qmail-lib.pl' :
   7                              './postfix-lib.pl');
   8 &ReadParse();
   9 if (substr($in{'file'}, 0, length($access{'apath'})) ne $access{'apath'}) {
  10         &error(&text('afile_efile', $in{'file'}));
  11         }
  12
  13 &ui_print_header(undef, $text{'afile_title'}, "");
  14 &open_readfile(FILE, $in{'file'});
  15 @lines = <FILE>;
  16 close(FILE);
  17
  18 print "<b>",&text('afile_desc', "<tt>$in{'file'}</tt>"),"</b><p>\n";
  19
  20 print "<form action=save_afile.cgi method=post enctype=multipart/form-data>\n";
  21 print "<input type=hidden name=file value=\"$in{'file'}\">\n";
  22 print "<input type=hidden name=num value=\"$in{'num'}\">\n";
  23 print "<input type=hidden name=name value=\"$in{'name'}\">\n";
  24 print "<textarea name=text rows=20 cols=80>",
  25         join("", @lines),"</textarea><p>\n";
  26 print "<input type=submit value=\"$text{'save'}\"> ",
  27       "<input type=reset value=\"$text{'afile_undo'}\">\n";
  28 print "</form>\n";
  29
  30 &ui_print_footer("edit_alias.cgi?name=$in{'name'}&num=$in{'num'}",$text{'aform_return'});
  31