procmail/manual_form.cgi

   1 #!/usr/local/bin/perl
   2 # manual_form.cgi
   3 # Display the .procmailrc file
   4
   5 require './procmail-lib.pl';
   6 &ui_print_header(undef, $text{'manual_title'}, "");
   7
   8 print &text('manual_desc', "<tt>$procmailrc</tt>"),"<p>\n";
   9 print &ui_form_start("manual_save.cgi", "form-data");
  10 print &ui_table_start(undef, undef, 2);
  11 $data = &read_file_contents($procmailrc);
  12 print &ui_table_row(undef, &ui_textarea("data", $data, 20, 80), 2);
  13 print &ui_table_end();
  14 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  15
  16 &ui_print_footer("", $text{'index_return'});
  17
  18