X7ROOT File Manager
Current Path:
/usr/sbin
usr
/
sbin
/
📁
..
📄
accessdb
(11.55 KB)
📄
addgnupghome
(3.05 KB)
📄
addpart
(19.69 KB)
📄
adduser
(134.39 KB)
📄
agetty
(48.48 KB)
📄
alternatives
(27.61 KB)
📄
anacron
(35.52 KB)
📄
apachectl
(4.31 KB)
📄
applygnupgdefaults
(2.21 KB)
📄
arp
(63.98 KB)
📄
arpd
(52.98 KB)
📄
arping
(23.19 KB)
📄
atd
(27.17 KB)
📄
atrun
(67 B)
📄
audispd
(39.75 KB)
📄
auditctl
(39.56 KB)
📄
auditd
(125.65 KB)
📄
augenrules
(3.7 KB)
📄
aureport
(105.39 KB)
📄
ausearch
(109.8 KB)
📄
authconfig
(43.49 KB)
📄
authconfig-tui
(43.49 KB)
📄
autrace
(15.49 KB)
📄
avcstat
(11.25 KB)
📄
badblocks
(27.69 KB)
📄
biosdecode
(24.15 KB)
📄
blkdeactivate
(15.97 KB)
📄
blkdiscard
(23.84 KB)
📄
blkid
(77.92 KB)
📄
blkmapd
(43.81 KB)
📄
blockdev
(32.2 KB)
📄
bridge
(77.61 KB)
📄
btrfs
(690.59 KB)
📄
btrfs-convert
(378.62 KB)
📄
btrfs-debug-tree
(354.23 KB)
📄
btrfs-find-root
(346.22 KB)
📄
btrfs-image
(374.63 KB)
📄
btrfs-map-logical
(350.27 KB)
📄
btrfs-select-super
(346.2 KB)
📄
btrfs-zero-log
(346.2 KB)
📄
btrfsck
(690.59 KB)
📄
btrfstune
(350.24 KB)
📄
build-locale-archive
(860.52 KB)
📄
cacertdir_rehash
(644 B)
📄
capsh
(19.43 KB)
📄
cbq
(32.73 KB)
📄
cfdisk
(71.37 KB)
📄
chcpu
(23.7 KB)
📄
chgpasswd
(64.1 KB)
📄
chkconfig
(40.22 KB)
📄
chpasswd
(55.88 KB)
📄
chronyd
(263.08 KB)
📄
chroot
(32.48 KB)
📄
clock
(48.44 KB)
📄
clockdiff
(19.04 KB)
📄
consoletype
(6.95 KB)
📄
convertquota
(70.88 KB)
📄
cracklib-check
(7.04 KB)
📄
cracklib-format
(246 B)
📄
cracklib-packer
(11.06 KB)
📄
cracklib-unpacker
(7.02 KB)
📄
create-cracklib-dict
(990 B)
📄
crond
(68.48 KB)
📄
ctrlaltdel
(11.2 KB)
📄
ctstat
(20.09 KB)
📄
ddns-confgen
(19.44 KB)
📄
debugfs
(120.64 KB)
📄
delpart
(19.69 KB)
📄
depmod
(143.24 KB)
📄
devlink
(64.72 KB)
📄
dhclient
(414.34 KB)
📄
dhclient-script
(30.38 KB)
📄
dmfilemapd
(19.16 KB)
📄
dmidecode
(120.2 KB)
📄
dmsetup
(149.2 KB)
📄
dmstats
(149.2 KB)
📄
dnssec-checkds
(922 B)
📄
dnssec-coverage
(924 B)
📄
dnssec-dsfromkey
(56.6 KB)
📄
dnssec-importkey
(52.59 KB)
📄
dnssec-keyfromlabel
(60.52 KB)
📄
dnssec-keygen
(64.55 KB)
📄
dnssec-keymgr
(920 B)
📄
dnssec-revoke
(48.46 KB)
📄
dnssec-settime
(56.52 KB)
📄
dnssec-signzone
(105.71 KB)
📄
dnssec-verify
(48.46 KB)
📄
dovecot
(370.66 KB)
📄
dovecot_cpshutdown
(3.27 KB)
📄
dracut
(55.83 KB)
📄
dumpe2fs
(23.62 KB)
📄
e2freefrag
(11.15 KB)
📄
e2fsck
(250.55 KB)
📄
e2image
(27.85 KB)
📄
e2label
(69.41 KB)
📄
e2undo
(11.32 KB)
📄
e4defrag
(23.55 KB)
📄
eapol_test
(1.77 MB)
📄
edquota
(83.09 KB)
📄
ether-wake
(73.26 KB)
📄
ethtool
(293.87 KB)
📄
exicyclog
(11.01 KB)
📄
exigrep
(10.44 KB)
📄
exim
(1.33 MB)
📄
exim_checkaccess
(4.73 KB)
📄
exim_dbmbuild
(82.09 KB)
📄
exim_dumpdb
(134.47 KB)
📄
exim_fixdb
(168.22 KB)
📄
exim_lock
(64.66 KB)
📄
exim_tidydb
(142.8 KB)
📄
eximstats
(148.01 KB)
📄
exinext
(8.02 KB)
📄
exiqgrep
(5.46 KB)
📄
exiqsumm
(5.07 KB)
📄
exiwhat
(4.32 KB)
📄
exportfs
(76.91 KB)
📄
faillock
(15.02 KB)
📄
fcgistarter
(23.85 KB)
📄
fdformat
(11.27 KB)
📄
fdisk
(195.8 KB)
📄
filefrag
(15.23 KB)
📄
findfs
(11.2 KB)
📄
fixfiles
(11.03 KB)
📄
fsck
(32.12 KB)
📄
fsck.btrfs
(1.16 KB)
📄
fsck.cramfs
(19.57 KB)
📄
fsck.ext2
(250.55 KB)
📄
fsck.ext3
(250.55 KB)
📄
fsck.ext4
(250.55 KB)
📄
fsck.minix
(73.32 KB)
📄
fsck.xfs
(433 B)
📄
fsfreeze
(11.23 KB)
📄
fstrim
(40.59 KB)
📄
fuser
(32.34 KB)
📄
genhomedircon
(23.77 KB)
📄
genhostid
(6.94 KB)
📄
genl
(52.81 KB)
📄
genl-ctrl-list
(11.27 KB)
📄
genrandom
(11.16 KB)
📄
getcap
(11.13 KB)
📄
getenforce
(7.01 KB)
📄
getpcaps
(7.07 KB)
📄
getsebool
(11.13 KB)
📄
glibc_post_upgrade.x86_64
(772.05 KB)
📄
groupadd
(85.65 KB)
📄
groupdel
(77.38 KB)
📄
groupmems
(55.97 KB)
📄
groupmod
(85.66 KB)
📄
grpck
(59.93 KB)
📄
grpconv
(51.73 KB)
📄
grpunconv
(51.73 KB)
📄
grub2-bios-setup
(1.04 MB)
📄
grub2-get-kernel-settings
(2.08 KB)
📄
grub2-install
(1.29 MB)
📄
grub2-macbless
(1.02 MB)
📄
grub2-mkconfig
(7.63 KB)
📄
grub2-ofpathname
(225.5 KB)
📄
grub2-probe
(1.04 MB)
📄
grub2-reboot
(4 KB)
📄
grub2-rpm-sort
(262.53 KB)
📄
grub2-set-default
(3.46 KB)
📄
grub2-setpassword
(2.96 KB)
📄
grub2-sparc64-setup
(1.04 MB)
📄
grubby
(71.27 KB)
📄
gss-server
(23.13 KB)
📄
gssproxy
(130.64 KB)
📄
halt
(704.8 KB)
📄
hardlink
(15.29 KB)
📄
htcacheclean
(78.45 KB)
📄
httpd
(2.31 MB)
📄
hwclock
(48.44 KB)
📄
iconvconfig
(22.15 KB)
📄
iconvconfig.x86_64
(22.15 KB)
📄
ifcfg
(2.99 KB)
📄
ifconfig
(80.05 KB)
📄
ifdown
(1.61 KB)
📄
ifenslave
(19.74 KB)
📄
ifstat
(40.6 KB)
📄
ifup
(4.89 KB)
📄
init
(1.56 MB)
📄
insmod
(143.24 KB)
📄
install-info
(110.42 KB)
📄
installkernel
(2.69 KB)
📄
intel-microcode2ucode
(11.1 KB)
📄
ip
(459.59 KB)
📄
ip6tables
(91.52 KB)
📄
ip6tables-restore
(91.52 KB)
📄
ip6tables-save
(91.52 KB)
📄
ipmaddr
(19.33 KB)
📄
iptables
(91.52 KB)
📄
iptables-restore
(91.52 KB)
📄
iptables-save
(91.52 KB)
📄
iptunnel
(23.33 KB)
📄
irqbalance
(48.5 KB)
📄
isc-hmac-fixup
(11.2 KB)
📄
kexec
(166.06 KB)
📄
key.dns_resolver
(19.45 KB)
📄
killall5
(23.17 KB)
📄
kpartx
(39.47 KB)
📄
lchage
(15.41 KB)
📄
ldattach
(27.93 KB)
📄
ldconfig
(952.08 KB)
📄
lgroupadd
(11.28 KB)
📄
lgroupdel
(11.26 KB)
📄
lgroupmod
(15.44 KB)
📄
lid
(15.4 KB)
📄
lnewusers
(15.46 KB)
📄
lnstat
(20.09 KB)
📄
load_policy
(10.97 KB)
📄
logrotate
(68.61 KB)
📄
logsave
(11.27 KB)
📄
losetup
(82.45 KB)
📄
lpasswd
(15.5 KB)
📄
lshw
(895.18 KB)
📄
lsmod
(143.24 KB)
📄
lsof
(150.57 KB)
📄
luseradd
(15.38 KB)
📄
luserdel
(11.3 KB)
📄
lusermod
(19.43 KB)
📄
lwresd
(768.04 KB)
📄
makedumpfile
(376.52 KB)
📄
matchpathcon
(11.19 KB)
📄
mii-diag
(20.08 KB)
📄
mii-tool
(19.51 KB)
📄
mkdict
(246 B)
📄
mkdumprd
(13.99 KB)
📄
mke2fs
(94.08 KB)
📄
mkfs
(11.25 KB)
📄
mkfs.btrfs
(366.45 KB)
📄
mkfs.cramfs
(36.16 KB)
📄
mkfs.ext2
(94.08 KB)
📄
mkfs.ext3
(94.08 KB)
📄
mkfs.ext4
(94.08 KB)
📄
mkfs.minix
(36.27 KB)
📄
mkfs.xfs
(359.8 KB)
📄
mkhomedir_helper
(19.05 KB)
📄
mklost+found
(11.11 KB)
📄
mkswap
(69.64 KB)
📄
modinfo
(143.24 KB)
📄
modprobe
(143.24 KB)
📄
modsec-sdbm-util
(22.17 KB)
📄
mount.nfs
(114.68 KB)
📄
mount.nfs4
(114.68 KB)
📄
mountstats
(40.59 KB)
📄
mysqld
(244.14 MB)
📄
mysqld-debug
(165.52 MB)
📄
named
(768.04 KB)
📄
named-checkconf
(32.25 KB)
📄
named-checkzone
(32.06 KB)
📄
named-compilezone
(32.06 KB)
📄
named-journalprint
(11.13 KB)
📄
nameif
(15.32 KB)
📄
netreport
(10.96 KB)
📄
new-kernel-pkg
(24.96 KB)
📄
newusers
(93.45 KB)
📄
nfsdcltrack
(40.11 KB)
📄
nfsidmap
(19.32 KB)
📄
nfsiostat
(23.64 KB)
📄
nfsstat
(29.84 KB)
📄
nl-class-add
(11.7 KB)
📄
nl-class-delete
(11.55 KB)
📄
nl-class-list
(11.48 KB)
📄
nl-classid-lookup
(11.29 KB)
📄
nl-cls-add
(11.76 KB)
📄
nl-cls-delete
(11.68 KB)
📄
nl-cls-list
(11.58 KB)
📄
nl-link-list
(11.52 KB)
📄
nl-pktloc-lookup
(11.36 KB)
📄
nl-qdisc-add
(11.6 KB)
📄
nl-qdisc-delete
(11.54 KB)
📄
nl-qdisc-list
(11.63 KB)
📄
nologin
(7.01 KB)
📄
nscd
(180.02 KB)
📄
nsec3hash
(11.13 KB)
📄
nstat
(23.88 KB)
📄
osd_login
(2.55 KB)
📄
ownership
(15.04 KB)
📄
packer
(11.06 KB)
📄
pam_console_apply
(39.69 KB)
📄
pam_tally2
(15.05 KB)
📄
pam_timestamp_check
(10.97 KB)
📄
paperconfig
(4.07 KB)
📄
parted
(77.22 KB)
📄
partprobe
(11.23 KB)
📄
partx
(86.55 KB)
📄
pdns_server
(98.68 MB)
📄
pidof
(23.17 KB)
📄
ping6
(64.63 KB)
📄
pivot_root
(11.19 KB)
📄
plipconfig
(11.06 KB)
📄
poweroff
(704.8 KB)
📄
ppp-watch
(23.2 KB)
📄
pwck
(51.71 KB)
📄
pwconv
(47.57 KB)
📄
pwhistory_helper
(15.44 KB)
📄
pwunconv
(47.59 KB)
📄
quot
(70.66 KB)
📄
quotacheck
(107.29 KB)
📄
quotaoff
(75.03 KB)
📄
quotaon
(75.03 KB)
📄
quotastats
(14.03 KB)
📄
rdisc
(23.17 KB)
📄
rdma
(73.42 KB)
📄
readprofile
(15.46 KB)
📄
reboot
(704.8 KB)
📄
repquota
(75.16 KB)
📄
request-key
(19.41 KB)
📄
resize2fs
(48.41 KB)
📄
resizepart
(32.36 KB)
📄
restorecon
(27.16 KB)
📄
rmmod
(143.24 KB)
📄
rndc
(35.88 KB)
📄
rndc-confgen
(19.44 KB)
📄
rotatelogs
(53 KB)
📄
route
(66.6 KB)
📄
routef
(173 B)
📄
routel
(1.59 KB)
📄
rpc.gssd
(88.73 KB)
📄
rpc.idmapd
(48.13 KB)
📄
rpc.mountd
(128.91 KB)
📄
rpc.nfsd
(40.2 KB)
📄
rpc.rquotad
(78.95 KB)
📄
rpc.statd
(97.59 KB)
📄
rpcbind
(60.07 KB)
📄
rpcdebug
(18.05 KB)
📄
rpcinfo
(27.3 KB)
📄
rsyslogd
(648.45 KB)
📄
rtacct
(41.93 KB)
📄
rtcwake
(31.96 KB)
📄
rtmon
(48.67 KB)
📄
rtpr
(37 B)
📄
rtstat
(20.09 KB)
📄
runlevel
(704.8 KB)
📄
runq
(1.33 MB)
📄
runuser
(32.21 KB)
📄
safe_finger
(11.08 KB)
📄
sasldblistusers2
(19.26 KB)
📄
saslpasswd2
(15.09 KB)
📄
sefcontext_compile
(60.53 KB)
📄
selabel_digest
(11.17 KB)
📄
selabel_lookup
(11.14 KB)
📄
selabel_lookup_best_match
(11.16 KB)
📄
selabel_partial_match
(11.09 KB)
📄
selinux_restorecon
(15.21 KB)
📄
selinuxconlist
(11.1 KB)
📄
selinuxdefcon
(11.12 KB)
📄
selinuxenabled
(6.98 KB)
📄
selinuxexeccon
(7.09 KB)
📄
semanage
(42.76 KB)
📄
semodule
(23.77 KB)
📄
sendmail
(13.48 KB)
📄
service
(3.17 KB)
📄
sestatus
(15.02 KB)
📄
setcap
(11.13 KB)
📄
setenforce
(7.05 KB)
📄
setfiles
(27.16 KB)
📄
setquota
(83.16 KB)
📄
setsebool
(14.99 KB)
📄
sfdisk
(83.25 KB)
📄
showmount
(19.56 KB)
📄
shutdown
(704.8 KB)
📄
sim_server
(10.97 KB)
📄
slattach
(42.4 KB)
📄
sln
(743.78 KB)
📄
sm-notify
(68.43 KB)
📄
smartctl
(864.48 KB)
📄
smartd
(670.63 KB)
📄
ss
(128.44 KB)
📄
sshd
(836.88 KB)
📄
sshd-keygen
(3.53 KB)
📄
start-statd
(842 B)
📄
suexec
(43.3 KB)
📄
sulogin
(40.53 KB)
📄
sushell
(67 B)
📄
swaplabel
(15.31 KB)
📄
swapoff
(15.53 KB)
📄
swapon
(53.29 KB)
📄
switch_root
(15.35 KB)
📄
sys-unconfig
(184 B)
📄
sysctl
(23.57 KB)
📄
tc
(384.66 KB)
📄
tcpd
(36.62 KB)
📄
tcpdmatch
(40.83 KB)
📄
telinit
(704.8 KB)
📄
tracepath
(15.05 KB)
📄
tracepath6
(15.05 KB)
📄
try-from
(23.47 KB)
📄
tsig-keygen
(19.44 KB)
📄
tune2fs
(69.41 KB)
📄
tuned
(3.29 KB)
📄
tuned-adm
(5.22 KB)
📄
udevadm
(414.27 KB)
📄
umount.nfs
(114.68 KB)
📄
umount.nfs4
(114.68 KB)
📄
unix_chkpwd
(35.42 KB)
📄
unix_update
(35.42 KB)
📄
update-alternatives
(27.61 KB)
📄
update-smart-drivedb
(14.34 KB)
📄
useradd
(134.39 KB)
📄
userdel
(93.5 KB)
📄
usermod
(130.33 KB)
📄
usernetctl
(11.03 KB)
📄
uuserver
(14.97 KB)
📄
vigr
(62.54 KB)
📄
vipw
(62.54 KB)
📄
virt-what
(11.57 KB)
📄
visudo
(200.91 KB)
📄
vmcore-dmesg
(19.28 KB)
📄
vpddecode
(15.33 KB)
📄
weak-modules
(31.9 KB)
📄
whmapi0
(3.02 MB)
📄
whmapi1
(3.02 MB)
📄
whmlogin
(2.33 KB)
📄
wipefs
(28.05 KB)
📄
wpa_cli
(128.06 KB)
📄
wpa_passphrase
(56.79 KB)
📄
wpa_supplicant
(1.93 MB)
📄
xfs_admin
(1.35 KB)
📄
xfs_bmap
(638 B)
📄
xfs_copy
(339.33 KB)
📄
xfs_db
(576.38 KB)
📄
xfs_estimate
(11.16 KB)
📄
xfs_freeze
(767 B)
📄
xfs_fsr
(31.83 KB)
📄
xfs_growfs
(327.2 KB)
📄
xfs_info
(472 B)
📄
xfs_io
(122.68 KB)
📄
xfs_logprint
(355.81 KB)
📄
xfs_mdrestore
(314.81 KB)
📄
xfs_metadump
(747 B)
📄
xfs_mkfile
(1007 B)
📄
xfs_ncheck
(650 B)
📄
xfs_quota
(84.88 KB)
📄
xfs_repair
(563.2 KB)
📄
xfs_rtcp
(15.25 KB)
📄
xqmstats
(14.03 KB)
📄
xtables-multi
(91.52 KB)
📄
yum-complete-transaction
(9.22 KB)
📄
yumdb
(8.67 KB)
📄
zdump
(14.02 KB)
📄
zic
(50.02 KB)
📄
zramctl
(82.23 KB)
Editing: exiqgrep
#!/usr/local/cpanel/3rdparty/perl/536/bin/perl # Utility for searching and displaying queue information. # Written by Matt Hubbard 15 August 2002 # # Copyright (c) The Exim Maintainers 2021 - 2022 # Except when they appear in comments, the following placeholders in this # source are replaced when it is turned into a runnable script: # # BIN_DIRECTORY # PERL_COMMAND # This file has been so processed. # Routine for extracting the UTC timestamp from message ID # lifted from eximstat utility # Version 1.2 use strict; BEGIN { pop @INC if $INC[-1] eq '.' }; use Getopt::Std; use File::Basename; # Have this variable point to your exim binary. my $exim = '/usr/sbin/exim'; my $eargs = '-bpu'; my %id; my %opt; my $count = 0; my $mcount = 0; my @tab62 = (0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0, # 0-9 0,10,11,12,13,14,15,16,17,18,19,20, # A-K 21,22,23,24,25,26,27,28,29,30,31,32, # L-W 33,34,35, 0, 0, 0, 0, 0, # X-Z 0,36,37,38,39,40,41,42,43,44,45,46, # a-k 47,48,49,50,51,52,53,54,55,56,57,58, # l-w 59,60,61); # x-z my $base; if ($^O eq 'darwin') { # aka MacOS X $base = 36; } else { $base = 62; }; if ($ARGV[0] eq '--version') { print basename($0) . ": $0\n", "build: 4.96.2\n", "perl(runtime): $]\n"; exit 0; } if (!getopts('hf:r:y:o:s:C:zxlibRcaG:E:',\%opt)) { &help; exit; } if ($opt{h}) { &help; exit; } if ($ARGV[0] || !($opt{f} || $opt{r} || $opt{s} || $opt{y} || $opt{o} || $opt{z} || $opt{x} || $opt{c})) { &help; exit(1); } if ($opt{a}) { $eargs = '-bp'; } if ($opt{C} && -e $opt{C} && -f $opt{C} && -R $opt{C}) { $eargs .= ' -C '.$opt{C}; } if ($opt{G}) { $eargs .= ' -qG'.$opt{G}; } if ($opt{E}) { $exim = $opt{E}; } # Read message queue output into hash &collect(); # Identify which messages match selection criteria &selection(); # Print matching data according to display option. &display(); exit; sub help() { print <<'EOF' Exim message queue display utility. -h This help message. -C Specify which exim.conf to use. -E Specify exim binary to use. Selection criteria: -f <regexp> Match sender address sender (field is "< >" wrapped) -r <regexp> Match recipient address -s <regexp> Match against the size field from long output -y <seconds> Message younger than -o <seconds> Message older than -z Frozen messages only (exclude non-frozen) -x Non-frozen messages only (exclude frozen) -G <queuename> Match in given queue only [ NB: for regexps, provided string sits in /<string>/ ] Display options: -c Display match count -l Long Format [Default] -i Message IDs only -b Brief Format -R Reverse order -a All recipients (including delivered) EOF } sub collect() { open(QUEUE,"$exim $eargs |") or die("Error opening pipe: $!\n"); while(<QUEUE>) { chomp(); my $line = $_; #Should be 1st line of record, if not error. if ($line =~ /^\s*(\w+)\s+((?:\d+(?:\.\d+)?[A-Z]?)?)\s*(\w{6}-\w{6}-\w{2})\s+(<.*?>)/) { my $msg = $3; $id{$msg}{age} = $1; $id{$msg}{size} = $2; $id{$msg}{from} = $4; $id{$msg}{birth} = &msg_utc($msg); $id{$msg}{ages} = time - $id{$msg}{birth}; if ($line =~ /\*\*\* frozen \*\*\*$/) { $id{$msg}{frozen} = 1; } else { $id{$msg}{frozen} = 0; } while(<QUEUE> =~ /\s+(.*?\@.*)$/) { push(@{$id{$msg}{rcpt}},$1); } # Increment message counter. $count++; } else { print STDERR "Line mismatch: $line\n"; exit 1; } } close(QUEUE) or die("Error closing pipe: $!\n"); } sub selection() { foreach my $msg (keys(%id)) { if ($opt{f}) { # Match sender address next unless ($id{$msg}{from} =~ /$opt{f}/i); } if ($opt{r}) { # Match any recipient address my $match = 0; foreach my $rcpt (@{$id{$msg}{rcpt}}) { $match++ if ($rcpt =~ /$opt{r}/i); } next unless ($match); } if ($opt{s}) { # Match against the size string. next unless ($id{$msg}{size} =~ /$opt{s}/); } if ($opt{y}) { # Match younger than next unless ($id{$msg}{ages} < $opt{y}); } if ($opt{o}) { # Match older than next unless ($id{$msg}{ages} > $opt{o}); } if ($opt{z}) { # Exclude non frozen next unless ($id{$msg}{frozen}); } if ($opt{x}) { # Exclude frozen next if ($id{$msg}{frozen}); } # Here's what we do to select the record. # Should only get this far if the message passed all of # the active tests. $id{$msg}{d} = 1; # Increment match counter. $mcount++; } } sub display() { if ($opt{c}) { printf("%d matches out of %d messages\n",$mcount,$count); exit; } foreach my $msg (sort { $opt{R} ? $id{$b}{birth} <=> $id{$a}{birth} : $id{$a}{birth} <=> $id{$b}{birth} } keys(%id) ) { if (exists($id{$msg}{d})) { if ($opt{i}) { # Just the msg ID print $msg, "\n"; } elsif ($opt{b}) { # Brief format printf("%s From: %s To: %s\n",$msg,$id{$msg}{from},join(';',@{$id{$msg}{rcpt}})) } else { # Otherwise Long format attempted duplication of original format. printf("%3s %5s %s %s%s\n",$id{$msg}{age},$id{$msg}{size},$msg,$id{$msg}{from},$id{$msg}{frozen} ? " *** frozen ***" : ""); foreach my $rcpt (@{$id{$msg}{rcpt}}) { printf(" %s\n",$rcpt); } print "\n"; } } } } sub report() { foreach my $msg (keys(%id)) { print "$id{$msg}{birth} $msg\tAge: $id{$msg}{age}\tSize: $id{$msg}{size}\tFrom: $id{$msg}{from}\tTo: " . join(" ",@{$id{$msg}{rcpt}}). "\n"; } } sub msg_utc() { my $id = substr((pop @_), 0, 6); my $s = 0; my @c = split(//, $id); while($#c >= 0) { $s = $s * $base + $tab62[ord(shift @c) - ord('0')] } return $s; }
Upload File
Create Folder