mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
52 lines
1.5 KiB
Perl
Executable File
52 lines
1.5 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show simple body tests
|
|
|
|
require './spam-lib.pl';
|
|
&ReadParse();
|
|
&set_config_file_in(\%in);
|
|
&can_use_check("header");
|
|
&ui_print_header($header_subtext, $text{'simple_title'}, "");
|
|
$conf = &get_config();
|
|
|
|
print "$text{'simple_desc'}<p>\n";
|
|
&start_form("save_simple.cgi", $text{'simple_header'},
|
|
"<a href='edit_header.cgi?file=".&urlize($in{'file'}).
|
|
"&title=".&urlize($in{'title'}).
|
|
"'>$text{'simple_switch'}</a>");
|
|
|
|
# Find the tests we can handle
|
|
@simples = &get_simple_tests($conf);
|
|
|
|
$table = &ui_columns_start([ $text{'simple_name'},
|
|
$text{'simple_for'},
|
|
$text{'simple_regexp'},
|
|
$text{'simple_score'},
|
|
$text{'simple_describe'} ], 100);
|
|
$i = 0;
|
|
foreach $s (@simples, { }, { }, { }) {
|
|
$table .= &ui_columns_row([
|
|
&ui_textbox("name_$i", $s->{'name'}, 20),
|
|
&ui_select("header_$i", $s->{'header'},
|
|
[ [ "subject", "Subject: header" ],
|
|
[ "from", "From: header" ],
|
|
[ "to", "To: header" ],
|
|
[ "cc", "Cc: header" ],
|
|
[ "received", "Received: header" ],
|
|
[ "uri", "URL in message" ],
|
|
[ "body", "Message body" ],
|
|
[ "full", "Un-decoded body" ] ],
|
|
0, 0, $s->{'header'} ? 1 : 0),
|
|
"/".&ui_textbox("regexp_$i", $s->{'regexp'}, 25)."/".
|
|
&ui_textbox("flags_$i", $s->{'flags'}, 2),
|
|
&ui_textbox("score_$i", $s->{'score'}, 5),
|
|
&ui_textbox("describe_$i", $s->{'describe'}, 30)
|
|
]);
|
|
$i++;
|
|
}
|
|
$table .= &ui_columns_end();
|
|
print &ui_table_row(undef, $table, 2);
|
|
|
|
&end_form(undef, $text{'save'});
|
|
&ui_print_footer($redirect_url, $text{'index_return'});
|
|
|