usermin/edit_logout.cgi

   1 #!/usr/local/bin/perl
   2 # Display per-user and group logout times options
   3
   4 require './usermin-lib.pl';
   5 $access{'logout'} || &error($text{'logout_ecannot'});
   6 &ui_print_header(undef, $text{'logout_title'}, "");
   7 &get_usermin_miniserv_config(\%miniserv);
   8
   9 print $text{'logout_desc'},"<p>\n";
  10 foreach $a (split(/\s+/, $miniserv{'logouttimes'})) {
  11         if ($a =~ /^([^=]+)=(\S+)$/) {
  12                 push(@logout, [ $1, $2 ]);
  13                 }
  14         }
  15
  16 print &ui_form_start("save_logout.cgi", "post");
  17 print &ui_columns_start([ $text{'logout_type'},
  18                           $text{'logout_who'},
  19                           $text{'logout_time'} ]);
  20 $i = 0;
  21 foreach $l (@logout, [ ], [ ], [ ]) {
  22         local ($type, $who) = (0, $l->[0]);
  23         if ($l->[0] =~ /^\@(.*)$/) {
  24                 $type = 2;
  25                 $who = $1;
  26                 }
  27         elsif ($l->[0] =~ /^(\/.*)$/) {
  28                 $type = 3;
  29                 }
  30         elsif ($l->[0]) {
  31                 $type = 1;
  32                 }
  33         print &ui_columns_row([
  34                 &ui_select("type_$i", $type,
  35                            [ [ 0, "&nbsp;" ],
  36                              [ 1, $text{'logout_user'} ],
  37                              [ 2, $text{'logout_group'} ],
  38                              [ 3, $text{'logout_file'} ] ]),
  39                 &ui_textbox("who_$i", $who, 30),
  40                 &ui_textbox("time_$i", $l->[1], 6) ]);
  41         $i++;
  42         }
  43 print &ui_columns_end();
  44 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  45
  46 &ui_print_footer("", $text{'index_return'});