qmailadmin/edit_alias.cgi

   1 #!/usr/local/bin/perl
   2 # edit_alias.cgi
   3 # Edit an existing qmail alias
   4
   5 require './qmail-lib.pl';
   6 &ReadParse();
   7 $a = &get_alias($in{'name'});
   8
   9 &ui_print_header(undef, $text{'aform_edit'}, "");
  10 &alias_form($a);
  11 &ui_print_footer("list_aliases.cgi", $text{'aliases_return'});
  12