mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
20 lines
549 B
Perl
Executable File
20 lines
549 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# manual_form.cgi
|
|
# Display the .procmailrc file
|
|
|
|
require './procmail-lib.pl';
|
|
&ui_print_header(undef, $text{'manual_title'}, "");
|
|
|
|
print &text('manual_desc', "<tt>$procmailrc</tt>"),"<p>\n";
|
|
print "<form action=manual_save.cgi method=post enctype=multipart/form-data>\n";
|
|
print "<textarea name=data rows=20 cols=80>";
|
|
open(FILE, $procmailrc);
|
|
while(<FILE>) { print &html_escape($_); }
|
|
close(FILE);
|
|
print "</textarea><br>\n";
|
|
print "<input type=submit value='$text{'save'}'>\n";
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|
|
|