cron/edit_env.cgi

   1 #!/usr/local/bin/perl
   2 # edit_env.cgi
   3 # Edit an existing or new environment variable
   4
   5 require './cron-lib.pl';
   6 &ReadParse();
   7
   8 if (!$in{'new'}) {
   9         @jobs = &list_cron_jobs();
  10         $env = $jobs[$in{'idx'}];
  11         &can_edit_user(\%access, $env->{'user'}) ||
  12                 &error($text{'edit_ecannot'});
  13         &ui_print_header(undef, $text{'env_title1'}, "");
  14         }
  15 else {
  16         &ui_print_header(undef, $text{'env_title2'}, "");
  17         $env = { 'active' => 1 };
  18         }
  19
  20 print "$text{'env_order'}<p>\n";
  21
  22 print &ui_form_start("save_env.cgi", "post");
  23 print &ui_hidden("new", $in{'new'});
  24 print &ui_hidden("idx", $in{'idx'});
  25 print &ui_table_start($text{'env_details'}, "width=100%", 2);
  26
  27 # Under user
  28 if ($access{'mode'} == 1) {
  29         $usel = &ui_select("user", $env->{'user'},
  30                 [ split(/\s+/, $access{'users'}) ]);
  31         }
  32 elsif ($access{'mode'} == 3) {
  33         $usel = "<tt>$remote_user</tt>";
  34         print &ui_hidden("user", $remote_user);
  35         }
  36 else {
  37         $usel = &ui_user_textbox("user", $env->{'user'});
  38         }
  39 print &ui_table_row($text{'env_user'}, $usel);
  40
  41 # Active or now
  42 print &ui_table_row($text{'env_active'},
  43         &ui_yesno_radio("active", $env->{'active'} ? 1 : 0));
  44
  45 # Variable name
  46 print &ui_table_row($text{'env_name'},
  47         &ui_textbox("name", $env->{'name'}, 50));
  48
  49 # Variable value
  50 print &ui_table_row($text{'env_value'},
  51         &ui_textbox("value", $env->{'value'}, 50));
  52
  53 if ($in{'new'}) {
  54         # Location for new variable
  55         print &ui_table_row($text{'env_where'},
  56               &ui_radio("where", 1, [ [ 1, $text{'env_top'} ],
  57                                       [ 0, $text{'env_bot'} ] ]));
  58         }
  59 elsif ($env->{'index'}) {
  60         # Location for existing
  61         print &ui_table_row($text{'env_where2'},
  62               &ui_radio("where", 0, [ [ 1, $text{'env_top'} ],
  63                                       [ 0, $text{'env_leave'} ]]));
  64         }
  65
  66 print &ui_table_end();
  67 if ($in{'new'}) {
  68         print &ui_form_end([ [ undef, $text{'create'} ] ]);
  69         }
  70 else {
  71         print &ui_form_end([ [ undef, $text{'save'} ],
  72                              [ "delete", $text{'delete'} ] ]);
  73         }
  74
  75 &ui_print_footer("", $text{'index_return'});
  76