#!/usr/local/bin/perl
#
# postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
# for webmin by Jamie Cameron
# 
# Edit an email alias

require './postfix-lib.pl';    ## no critic
use strict;
use warnings;
our ($cancmt, %in, %text);
&ReadParse();

&ui_print_header(undef, $text{'edit_alias_title'}, "");

my @aliases = &list_postfix_aliases();
my $alias = $in{'new'} ? undef : $aliases[$in{'num'}];

$cancmt = &can_map_comments("alias_maps");
&alias_form($alias, !$cancmt);

&ui_print_footer("", $text{'index_return'});