⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
usermin
/
spam
/
View File Name :
mail_search.cgi
#!/usr/bin/perl # mail_search.cgi # Find mail messages matching some pattern require './spam-lib.pl'; &foreign_require("mailbox", "mailbox-lib.pl"); &ReadParse(); if ($in{'simple'}) { # Make sure a search was entered $in{'search'} ne "" || &error($mailbox::text{'search_ematch'}); } elsif (defined($in{'score'})) { # Make sure a score was entered $in{'score'} =~ /^\d+$/ || &error($text{'search_escore'}); } else { # Validate search fields for($i=0; defined($in{"field_$i"}); $i++) { if ($in{"field_$i"}) { $in{"what_$i"} || &error(&mailbox::text('search_ewhat', $i+1)); $neg = $in{"neg_$i"} ? "!" : ""; push(@fields, [ $neg.$in{"field_$i"}, $in{"what_$i"} ]); } } @fields || &error($mailbox::text{'search_enone'}); } &ui_print_header(undef, $mailbox::text{'search_title'}, ""); $folder = &spam_file_folder(); if ($in{'simple'}) { # Just search by Subject and From in one folder, or body, depending # on preferences ($mode, $words) = &mailbox::parse_boolean($in{'search'}); if ($userconfig{'search_body'} && $mode != 2) { # Do an 'and' or 'or' search of body @searchlist = map { [ 'body', $_ ] } @$words; @rv = &mailbox::mailbox_search_mail(\@searchlist, $mode, $folder); } elsif ($mode == 0) { # Can just do a single 'or' search @searchlist = map { ( [ 'subject', $_ ], [ 'from', $_ ] ) } @$words; @rv = &mailbox::mailbox_search_mail(\@searchlist, 0, $folder); } elsif ($mode == 1) { # Need to do two 'and' searches and combine @searchlist1 = map { ( [ 'subject', $_ ] ) } @$words; @rv1 = &mailbox::mailbox_search_mail(\@searchlist1, 1, $folder); @searchlist2 = map { ( [ 'from', $_ ] ) } @$words; @rv2 = &mailbox::mailbox_search_mail(\@searchlist2, 1, $folder); @rv = @rv1; %gotidx = map { $_->{'idx'}, 1 } @rv; foreach $mail (@rv2) { push(@rv, $mail) if (!$gotidx{$mail->{'idx'}}); } } else { &error($mailbox::text{'search_eboolean'}); } print "<p><b>",&mailbox::text('search_results2', scalar(@rv), "<tt>$in{'search'}</tt>"),"</b><p>\n"; } elsif (defined($in{'score'})) { # Search by score @rv = &mailbox::mailbox_search_mail( [ [ 'x-spam-level', '*' x $in{'score'} ] ], 0, $folder); print "<p><b>",&text('search_results5', scalar(@rv), $in{'score'}),"</b><p>\n"; } else { # Complex search @rv = &mailbox::mailbox_search_mail(\@fields, $in{'and'}, $folder); print "<p><b>",&mailbox::text('search_results4', scalar(@rv)),"</b><p>\n"; } @rv = reverse(@rv); &mailbox::set_sort_indexes($folder, \@rv); print "<form action=process.cgi method=post>\n"; if ($mailbox::userconfig{'top_buttons'} && @rv) { &show_buttons(1); print "<a href='' onClick='document.forms[0].d.checked = true; for(i=0; i<document.forms[0].d.length; i++) { document.forms[0].d[i].checked = true; } return false'>$mailbox::text{'mail_all'}</a> \n"; print "<a href='' onClick='document.forms[0].d.checked = !document.forms[0].d.checked; for(i=0; i<document.forms[0].d.length; i++) { document.forms[0].d[i].checked = !document.forms[0].d[i].checked; } return false'>$mailbox::text{'mail_invert'}</a> \n"; } if (@rv) { print "<table border width=100%>\n"; print "<tr $tb> <td> </td> ", "<td><b>$mailbox::text{'mail_from'}</b></td> ", "<td><b>$mailbox::text{'mail_date'}</b></td> ", "<td><b>$mailbox::text{'mail_size'}</b></td> ", "<td><b>$text{'mail_level'}</b></td> ", "<td><b>$mailbox::text{'mail_subject'}</b></td> </tr>\n"; } foreach $m (@rv) { local $idx = $m->{'sortidx'}; print "<tr $cb>\n"; print "<td><input type=checkbox name=d value=$idx></td>\n"; print "<td nowrap><a href='view_mail.cgi?idx=$idx'>", &mailbox::simplify_from($m->{'header'}->{$showto?'to':'from'}),"</td>\n"; print "<td nowrap>",&mailbox::simplify_date($m->{'header'}->{'date'}),"</td>\n"; print "<td nowrap>",int($m->{'size'}/1000)+1," kB","</td>\n"; print "<td nowrap>",length($m->{'header'}->{'x-spam-level'}),"</td>\n"; print "<td><table border=0 cellpadding=0 cellspacing=0 width=100%>", "<tr><td>",&mailbox::simplify_subject($m->{'header'}->{'subject'}), "</td> <td align=right>"; if ($m->{'header'}->{'content-type'} =~ /multipart\/\S+/i) { print "<img src=/mailbox/images/attach.gif>"; } local $p = int($m->{'header'}->{'x-priority'}); if ($p == 1) { print " <img src=images/p1.gif>"; } elsif ($p == 2) { print " <img src=images/p2.gif>"; } print "</td></tr></table></td> </tr>\n"; } if (@rv) { print "</table>\n"; print "<a href='' onClick='document.forms[0].d.checked = true; for(i=0; i<document.forms[0].d.length; i++) { document.forms[0].d[i].checked = true; } return false'>$mailbox::text{'mail_all'}</a> \n"; print "<a href='' onClick='document.forms[0].d.checked = !document.forms[0].d.checked; for(i=0; i<document.forms[0].d.length; i++) { document.forms[0].d[i].checked = !document.forms[0].d[i].checked; } return false'>$mailbox::text{'mail_invert'}</a> \n"; &show_buttons(2); } else { print "<b>$text{'search_none'}</b> <p>\n"; } print "</form><p>\n"; &ui_print_footer("mail.cgi", $text{'mail_return'});