procmail/edit_env.cgi

   1 #!/usr/local/bin/perl
   2 # edit_env.cgi
   3 # Edit an environment variable setting
   4
   5 require './procmail-lib.pl';
   6 &ReadParse();
   7 if ($in{'new'}) {
   8         &ui_print_header(undef, $text{'env_title1'}, "");
   9         }
  10 else {
  11         &ui_print_header(undef, $text{'env_title2'}, "");
  12         @conf = &get_procmailrc();
  13         $env = $conf[$in{'idx'}];
  14         }
  15
  16 print &ui_form_start("save_env.cgi");
  17 print &ui_hidden("new", $in{'new'});
  18 print &ui_hidden("idx", $in{'idx'});
  19 print &ui_table_start($text{'env_header'}, "width=100%", 2);
  20
  21 # Variable name
  22 print &ui_table_row($text{'env_name'},
  23         &ui_textbox("name", $env->{'name'}, 60));
  24
  25 # Value or values
  26 print &ui_table_row($text{'env_value'},
  27         $env->{'value'} =~ /\n/ ? &ui_textarea("value", $env->{'value'}, 4, 60)
  28                                 : &ui_textbox("value", $env->{'value'}, 60));
  29
  30 # Show save buttons
  31 print &ui_table_end();
  32 if ($in{'new'}) {
  33         print &ui_form_end([ [ undef, $text{'create'} ] ]);
  34         }
  35 else {
  36         print &ui_form_end([ [ undef, $text{'save'} ],
  37                              [ 'delete', $text{'delete'} ] ]);
  38         }
  39
  40 &ui_print_footer("", $text{'index_return'});
  41