postfix/edit_alias.cgi

   1 #!/usr/local/bin/perl
   2 #
   3 # postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
   4 # for webmin by Jamie Cameron
   5 #
   6 # Edit an email alias
   7
   8 require './postfix-lib.pl';
   9 &ReadParse();
  10
  11 &ui_print_header(undef, $text{'edit_alias_title'}, "");
  12
  13 my @aliases = &list_postfix_aliases();
  14 $a = $aliases[$in{'num'}] if (!$in{'new'});
  15
  16 $cancmt = &can_map_comments("alias_maps");
  17 &alias_form($a, !$cancmt);
  18
  19 &ui_print_footer("", $text{'index_return'});