#!/usr/local/bin/perl
# edit_access.cgi
# Display a form to edit a general access mapping table
# by Roberto Tecchio, 2005 (www.tecchio.net)
require './postfix-lib.pl';
$access{'smtpd'} || &error($text{'smtpd_ecannot'});
&ReadParse();
&ui_print_header(undef, $in{'title'}, "");
if (&get_current_value($in{'name'}) eq "")
{
print ($text{'no_map'}."
");
}
else
{
&generate_map_edit($in{'name'}, $text{'map_click'}." ".
"".&hlink("$text{'help_map_format'}", "access")."\n
\n", 1,
$text{'mapping_client'}, $text{'header_value'});
}
&ui_print_footer("smtpd.cgi", $text{'smtpd_title'}, "index.cgi", $text{'index_title'});