PAL.C.T MINI SHELL
#!/usr/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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`