edit_mailer.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_mailer.cgi
# Edit an existing mailer

require './sendmail-lib.pl';
require './mailers-lib.pl';
&ReadParse();
$access{'mailers'} || &error($text{'mform_ecannot'});
$conf = &get_sendmailcf();
@virts = &list_mailers(&mailers_file($conf));

&header($text{'mform_edit'}, "");
print "<hr>\n";
&mailer_form($virts[$in{'num'}]);
print "<hr>\n";
&footer("list_mailers.cgi", $text{'mailers_return'});