################################################################################
#
# File: $RCSfile: search.cgi,v $
################################################################################
#
# File: $RCSfile: search.cgi,v $
# Author: Andrew@DeFaria.com
# Created: Mon Jan 16 20:25:32 PST 2006
# Modified: $Date: 2013/06/12 14:05:47 $
# Author: Andrew@DeFaria.com
# Created: Mon Jan 16 20:25:32 PST 2006
# Modified: $Date: 2013/06/12 14:05:47 $
use CGI qw (:standard *table start_Tr start_td start_div end_Tr end_td end_div);
use CGI::Carp "fatalsToBrowser";
use CGI qw (:standard *table start_Tr start_td start_div end_Tr end_td end_div);
use CGI::Carp "fatalsToBrowser";
-my $str = param ("str");
-my $next = param ("next");
-my $lines = param ("lines");
+my $str = param('str');
+my $next = param('next');
+my $lines = param('lines');
- submit ({-name => "action",
- -value => "Whitelist Marked",
- -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
- submit ({-name => "action",
- -value => "Blacklist Marked",
- -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
- submit ({-name => "action",
- -value => "Nulllist Marked",
- -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
- submit ({-name => "action",
- -value => "Reset Marks",
- -onClick => "return ClearAll (document.detail);"});
+ submit ({-name => "action",
+ -value => "Whitelist Marked",
+ -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
+ submit ({-name => "action",
+ -value => "Blacklist Marked",
+ -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
+ submit ({-name => "action",
+ -value => "Nulllist Marked",
+ -onClick => "return CheckAtLeast1Checked (document.detail);"}) .
+ submit ({-name => "action",
+ -value => "Reset Marks",
+ -onClick => "return ClearAll (document.detail);"});
print div {-align => "center"}, b (
"(" . $current . "-" . $last . " of " . $total . ")");
print start_form {
print div {-align => "center"}, b (
"(" . $current . "-" . $last . " of " . $total . ")");
print start_form {
- print div {-align => "center",
- -class => "toolbar"}, $buttons;
- print start_table ({-align => "center",
- -id => $table_name,
- -border => 0,
- -cellspacing => 0,
- -cellpadding => 0,
- -width => "100%"}) . "\n";
+ print div {-align => "center",
+ -class => "toolbar"}, $buttons;
+ print start_table ({-align => "center",
+ -id => $table_name,
+ -border => 0,
+ -cellspacing => 0,
+ -cellpadding => 0,
+ -width => "100%"}) . "\n";
- th {-class => "tableheader"}, "Sender",
- th {-class => "tableheader"}, "Subject",
- th {-class => "tablerightend"}, "Date"
+ th {-class => "tableheader"}, "Sender",
+ th {-class => "tableheader"}, "Subject",
+ th {-class => "tablerightend"}, "Date"
- -align => "center"},
- (checkbox {-name => "action$next",
- -label => ""}),
- hidden ({-name => "email$next",
- -default => $sender}),
- td {-class => "sender"},
- a {-href => "mailto:$sender"}, $display_sender,
- td {-class => "subject"},
- a {-href => "display.cgi?sender=$sender"}, $subject,
- td {-class => "dateright",
- -width => "115"}, SQLDatetime2UnixDatetime $date
+ -align => "center"},
+ (checkbox {-name => "action$next",
+ -label => ""}),
+ hidden ({-name => "email$next",
+ -default => $sender}),
+ td {-class => "sender"},
+ a {-href => "mailto:$sender"}, $display_sender,
+ td {-class => "subject"},
+ a {-href => "display.cgi?sender=$sender"}, $subject,
+ td {-class => "dateright",
+ -width => "115"}, SQLDatetime2UnixDatetime $date
"userid = \"$userid\" and (subject like \"%$str%\" or sender like \"%$str%\")";
DisplayError "Nothing matching!" if $total eq 0;
"userid = \"$userid\" and (subject like \"%$str%\" or sender like \"%$str%\")";
DisplayError "Nothing matching!" if $total eq 0;