3 # Display the contents of an address file
5 require (-r 'sendmail-lib.pl' ? './sendmail-lib.pl' :
6 -r 'qmail-lib.pl' ? './qmail-lib.pl' :
9 if (substr($in{'file'}, 0, length($access{'apath'})) ne $access{'apath'}) {
10 &error(&text('afile_efile', $in{'file'}));
13 &ui_print_header(undef, $text{'afile_title'}, "");
14 &open_readfile(FILE, $in{'file'});
18 print "<b>",&text('afile_desc', "<tt>$in{'file'}</tt>"),"</b><p>\n";
20 print "<form action=save_afile.cgi method=post enctype=multipart/form-data>\n";
21 print "<input type=hidden name=file value=\"$in{'file'}\">\n";
22 print "<input type=hidden name=num value=\"$in{'num'}\">\n";
23 print "<input type=hidden name=name value=\"$in{'name'}\">\n";
24 print "<textarea name=text rows=20 cols=80>",
25 join("", @lines),"</textarea><p>\n";
26 print "<input type=submit value=\"$text{'save'}\"> ",
27 "<input type=reset value=\"$text{'afile_undo'}\">\n";
30 &ui_print_footer("edit_alias.cgi?name=$in{'name'}&num=$in{'num'}",$text{'aform_return'});