|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/spam/ |
Upload File : |
#!/usr/bin/perl
# Show simple body tests
require './spam-lib.pl';
&can_use_check("header");
&ui_print_header(undef, $text{'simple_title'}, "");
$conf = &get_config();
print "$text{'simple_desc'}<p>\n";
&start_form("save_simple.cgi", $text{'simple_header'}."\n".
"(<a href=edit_header.cgi>$text{'simple_switch'}</a>)");
print "<tr> <td>\n";
# Find the tests we can handle
@simples = &get_simple_tests($conf);
print &ui_columns_start([ $text{'simple_name'},
$text{'simple_for'},
$text{'simple_regexp'},
$text{'simple_score'},
$text{'simple_describe'} ], "100");
$i = 0;
foreach $s (@simples, { }, { }, { }) {
print &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++;
}
print &ui_columns_end();
print "</td> </tr>\n";
&end_form(undef, $text{'save'});
&ui_print_footer("", $text{'index_return'});