sendmail/edit_alias.cgi

   1 #!/usr/local/bin/perl
   2 # edit_alias.cgi
   3 # Edit an existing sendmail alias
   4
   5 require './sendmail-lib.pl';
   6 require './aliases-lib.pl';
   7 &ReadParse();
   8 $conf = &get_sendmailcf();
   9 @aliases = &list_aliases(&aliases_file($conf));
  10 $a = $aliases[$in{'num'}];
  11 &can_edit_alias($a) || &error($text{'aform_ecannot'});
  12
  13 &ui_print_header(undef, $text{'aform_edit'}, "", "edit_alias");
  14 &alias_form($a);
  15 &ui_print_footer("list_aliases.cgi", $text{'aliases_return'},
  16         "", $text{'index_return'});
  17