/usr/share/usermin/forward
Edit: /usr/share/usermin/forward/edit_afile.cgi (900B)
#!/usr/bin/perl
# edit_afile.cgi
# Display the contents of an address file
require './forward-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'afile_title'}, "");
$in{'vfile'} = &make_absolute($in{'vfile'});
open(FILE, $in{'file'});
@lines =
;
close(FILE);
print "",&text('afile_desc', "@{[&html_escape($in{'vfile'})]}"),"\n";
print "
\n";
&ui_print_footer("edit_alias.cgi?num=$in{'num'}&file=@{[&urlize($in{'file'})]}",
$text{'aform_return'});