sendmail/edit_access.cgi

   1 #!/usr/local/bin/perl
   2 # edit_access.cgi
   3 # Edit an existing access rule
   4
   5 require './sendmail-lib.pl';
   6 require './access-lib.pl';
   7 &ReadParse();
   8 $access{'access'} || &error($text{'sform_ecannot'});
   9 $conf = &get_sendmailcf();
  10 @accs = &list_access(&access_file($conf));
  11 &can_edit_access($accs[$in{'num'}]) ||
  12         &error($text{'sform_ecannot'});
  13
  14 &ui_print_header(undef, $text{'sform_edit'}, "");
  15 &access_form($accs[$in{'num'}]);
  16 &ui_print_footer("list_access.cgi", $text{'access_return'},
  17         "", $text{'index_return'});
  18