at/save_allow.cgi

   1 #!/usr/local/bin/perl
   2 # Update allowed or denied At users
   3
   4 require './at-lib.pl';
   5 ReadParse();
   6 &error_setup($text{'allow_err'});
   7 $access{'allow'} || &error($text{'allow_ecannot'});
   8
   9 if ($in{'amode'} == 0) {
  10         &save_allowed();
  11         &save_denied();
  12         }
  13 elsif ($in{'amode'} == 1) {
  14         @users = split(/\s+/, $in{'ausers'});
  15         @users || &error($text{'allow_eusers'});
  16         &save_allowed(@users);
  17         &save_denied();
  18         }
  19 elsif ($in{'amode'} == 2) {
  20         @users = split(/\s+/, $in{'ausers'});
  21         @users || &error($text{'allow_eusers'});
  22         &save_allowed();
  23         &save_denied(@users);
  24         }
  25 &webmin_log("allow");
  26 &redirect("");
  27