procmail/edit_inc.cgi

   1 #!/usr/local/bin/perl
   2 # edit_inc.cgi
   3 # Edit an include file line
   4
   5 require './procmail-lib.pl';
   6 &ReadParse();
   7 if ($in{'new'}) {
   8         &ui_print_header(undef, $text{'inc_title1'}, "");
   9         }
  10 else {
  11         &ui_print_header(undef, $text{'inc_title2'}, "");
  12         @conf = &get_procmailrc();
  13         $inc = $conf[$in{'idx'}];
  14         }
  15
  16 print &ui_form_start("save_inc.cgi");
  17 print &ui_hidden("new", $in{'new'});
  18 print &ui_hidden("idx", $in{'idx'});
  19 print &ui_table_start($text{'inc_header'}, "width=100%", 2);
  20
  21 # Included file
  22 print &ui_table_row($text{'inc_inc'},
  23         &ui_textbox("inc", $inc->{'include'}, 60)." ".
  24         &file_chooser_button("inc"));
  25
  26 # Show save buttons
  27 print &ui_table_end();
  28 if ($in{'new'}) {
  29         print &ui_form_end([ [ undef, $text{'create'} ] ]);
  30         }
  31 else {
  32         print &ui_form_end([ [ undef, $text{'save'} ],
  33                              [ 'delete', $text{'delete'} ] ]);
  34         }
  35
  36 &ui_print_footer("", $text{'index_return'});
  37