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.13
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 : smaller.pl
#!/usr/bin/perl # Demonstration on reducing the size of a folder. # # This code can be used and modified without restriction. # Mark Overmeer, <mailbox@overmeer.net>, 12 jul 2003 use warnings; use strict; use lib ('../lib', 'lib'); use Mail::Box::Manager; use Mail::Message; use List::Util 'sum'; my $for_real = 0; # set to 'true' to make changes sub size($) { Mail::Message->shortSize($_[0]) } # nice output of value # # Get the command line arguments. # die "Usage: $0 folder\n" unless @ARGV==1; my $name = shift @ARGV; my $mgr = Mail::Box::Manager->new; my $folder = $mgr->open ( $name , access => ($for_real ? 'rw' : 'r') ); die "Cannot open folder $name" unless $folder; print "** Dry run: no changes made to $name\n" unless $for_real; my $msgs = $folder->messages; my $size = $folder->size; print "Folder contains $msgs messages at start, in total about ", size($size), " bytes\n"; foreach my $msg ($folder->messages) { $msg->head->removeResentGroups; } my $newsize = $folder->size; print "After removal of resent groups, the folder is about ", size($newsize), " bytes\n"; my $resentsize = $size - $newsize; foreach my $msg ($folder->messages) { $msg->head->removeListGroup; } my $newsize2 = $folder->size; print "After removal of list groups, the folder is only ", size($newsize2), " bytes\n"; my $listsize = $newsize - $newsize2; foreach my $msg ($folder->messages) { $msg->head->removeSpamGroups; } my $finalsize = $folder->size; print "After removal of spam groups, the folder is only ", size($finalsize), " bytes\n"; my $spamsize = $newsize2 - $finalsize; # Final statistics sub percent($$) { my ($part, $size) = @_; sprintf "%4.1f%% (%s)", ($part*100)/$size, size($part); } my $sizeheads = sum map {$_->head->size} map {$_->parts} $folder->messages; print ' resent headers were ', percent($resentsize,$size), "\n", ' list headers were ', percent($listsize,$size), "\n", ' spam headers were ', percent($spamsize,$size), "\n", ' remaining headers are ', percent($sizeheads, $size), "\n", ' size of bodies is ', percent($finalsize-$sizeheads, $size), "\n"; # End if($for_real) { $folder->close } else { $folder->close(write => 'NEVER') } exit 0;
Close