Gecko [ 103.233.161.39 ]

Name	Size	Permission
ModemManager	1.19 MB	-rwxr-xr-x
NetworkManager	2.83 MB	-rwxr-xr-x
abrt-auto-reporting	10.98 KB	-rwxr-xr-x
abrt-configuration	31.66 KB	-rwxr-xr-x
abrt-dbus	31.22 KB	-rwxr-xr-x
abrt-harvest-pstoreoops	1.32 KB	-rwxr-xr-x
abrt-harvest-vmcore	8.19 KB	-rwxr-xr-x
abrt-install-ccpp-hook	2.85 KB	-rwxr-xr-x
abrt-server	31.11 KB	-rwxr-xr-x
abrtd	31.22 KB	-rwxr-xr-x
accept	10.95 KB	-rwxr-xr-x
accessdb	11.55 KB	-rwxr-xr-x
accton	11.19 KB	-rwxr-xr-x
activate-devpay	15.04 KB	-rwxr-xr-x
addgnupghome	3.05 KB	-rwxr-xr-x
addpart	19.69 KB	-rwxr-xr-x
adduser	134.39 KB	-rwxr-xr-x
agetty	48.48 KB	-rwxr-xr-x
alsa-info	28.09 KB	-rwxr-xr-x
alsa-info.sh	28.09 KB	-rwxr-xr-x
alsabat-test.sh	4.04 KB	-rwxr-xr-x
alsactl	99.15 KB	-rwxr-xr-x
alternatives	27.61 KB	-rwxr-xr-x
amaddclient	15.02 KB	-rwxr-xr-x
amadmin	55.69 KB	-rwxr-xr-x
amaespipe	3.29 KB	-rwxr-xr-x
amandad	35.36 KB	-rwxr-xr-x
amarchiver	15.3 KB	-rwxr-xr-x
amcheck	63.25 KB	-rwsr-x---
amcheckdb	1.79 KB	-rwxr-xr-x
amcheckdump	14.25 KB	-rwxr-xr-x
amcleanup	6.21 KB	-rwxr-xr-x
amcleanupdisk	4.16 KB	-rwxr-xr-x
amcrypt	1.02 KB	-rwxr-xr-x
amcrypt-ossl	3.12 KB	-rwxr-xr-x
amcrypt-ossl-asym	6.8 KB	-rwxr-xr-x
amcryptsimple	4.55 KB	-rwxr-xr-x
amdevcheck	4.51 KB	-rwxr-xr-x
amdump	10.46 KB	-rwxr-xr-x
amfetchdump	26.87 KB	-rwxr-xr-x
amflush	27.13 KB	-rwxr-xr-x
amgetconf	12.24 KB	-rwxr-xr-x
amgpgcrypt	2.68 KB	-rwxr-xr-x
amlabel	11.22 KB	-rwxr-xr-x
amoverview	6.42 KB	-rwxr-xr-x
amplot	5.94 KB	-rwxr-xr-x
amreport	17.65 KB	-rwxr-xr-x
amrestore	12.7 KB	-rwxr-xr-x
amrmtape	8.91 KB	-rwxr-xr-x
amserverconfig	20.99 KB	-rwxr-xr-x
amservice	19.16 KB	-rwsr-x---
amstatus	49.23 KB	-rwxr-xr-x
amtape	19.47 KB	-rwxr-xr-x
amtapetype	22.56 KB	-rwxr-xr-x
amtoc	7.54 KB	-rwxr-xr-x
amvault	29.59 KB	-rwxr-xr-x
anaconda	54.99 KB	-rwxr-xr-x
anacron	35.52 KB	-rwxr-xr-x
apachectl	4.19 KB	-rwxr-xr-x
applygnupgdefaults	2.21 KB	-rwxr-xr-x
arp	63.98 KB	-rwxr-xr-x
arpd	52.98 KB	-rwxr-xr-x
arping	23.19 KB	-rwxr-xr-x
atd	27.17 KB	-rwxr-xr-x
atrun	67 B	-rwxr-xr-x
attrd_updater	16.52 KB	-rwxr-xr-x
audispd	39.75 KB	-rwxr-xr-x
auditctl	39.56 KB	-rwxr-xr-x
auditd	125.65 KB	-rwxr-xr-x
augenrules	3.7 KB	-rwxr-xr-x
aureport	105.39 KB	-rwxr-xr-x
ausearch	109.8 KB	-rwxr-xr-x
authconfig	43.49 KB	-rwxr-xr-x
authconfig-tui	43.49 KB	-rwxr-xr-x
autrace	15.49 KB	-rwxr-x---
avahi-daemon	133.04 KB	-rwxr-xr-x
avcstat	11.25 KB	-rwxr-xr-x
badblocks	27.69 KB	-rwxr-xr-x
biosdecode	24.15 KB	-rwxr-xr-x
biosdevname	36.57 KB	-rwxr-xr-x
blkdeactivate	15.97 KB	-r-xr-xr-x
blkdiscard	23.84 KB	-rwxr-xr-x
blkid	77.92 KB	-rwxr-xr-x
blkmapd	43.81 KB	-rwxr-xr-x
blockdev	32.2 KB	-rwxr-xr-x
brctl	32.13 KB	-rwxr-xr-x
bridge	77.61 KB	-rwxr-xr-x
btrfs	690.59 KB	-rwxr-xr-x
btrfs-convert	378.62 KB	-rwxr-xr-x
btrfs-debug-tree	354.23 KB	-rwxr-xr-x
btrfs-find-root	346.22 KB	-rwxr-xr-x
btrfs-image	374.63 KB	-rwxr-xr-x
btrfs-map-logical	350.27 KB	-rwxr-xr-x
btrfs-select-super	346.2 KB	-rwxr-xr-x
btrfs-zero-log	346.2 KB	-rwxr-xr-x
btrfsck	690.59 KB	-rwxr-xr-x
btrfstune	350.24 KB	-rwxr-xr-x
build-locale-archive	860.52 KB	-rwx------
cacertdir_rehash	644 B	-rwxr-xr-x
cache_check	1.23 MB	-rwxr-xr-x
cache_dump	1.23 MB	-rwxr-xr-x
cache_metadata_size	1.23 MB	-rwxr-xr-x
cache_repair	1.23 MB	-rwxr-xr-x
cache_restore	1.23 MB	-rwxr-xr-x
cache_writeback	1.23 MB	-rwxr-xr-x
capsh	19.43 KB	-rwxr-xr-x
cbq	32.73 KB	-rwxr-xr-x
cfdisk	71.37 KB	-rwxr-xr-x
cgdisk	176.87 KB	-rwxr-xr-x
chat	27.3 KB	-rwxr-xr-x
chcpu	23.7 KB	-rwxr-xr-x
chgpasswd	64.1 KB	-rwxr-xr-x
chkconfig	40.22 KB	-rwxr-xr-x
chpasswd	55.88 KB	-rwxr-xr-x
chronyd	263.08 KB	-rwxr-xr-x
chroot	32.48 KB	-rwxr-xr-x
cibadmin	27.2 KB	-rwxr-xr-x
cifs.idmap	15.07 KB	-rwxr-xr-x
cifs.upcall	31.23 KB	-rwxr-xr-x
clamd	208.18 KB	-rwxr-xr-x
clamonacc	200.67 KB	-rwxr-xr-x
clock	48.44 KB	-rwxr-xr-x
clockdiff	19.04 KB	-rwxr-xr-x
consoletype	6.95 KB	-rwxr-xr-x
convertquota	70.88 KB	-rwxr-xr-x
corosync	284.76 KB	-rwxr-xr-x
corosync-cfgtool	14.97 KB	-rwxr-xr-x
corosync-cmapctl	23.31 KB	-rwxr-xr-x
corosync-cpgtool	11 KB	-rwxr-xr-x
corosync-keygen	11.12 KB	-rwxr-xr-x
corosync-notifyd	33.63 KB	-rwxr-xr-x
corosync-quorumtool	23.16 KB	-rwxr-xr-x
cracklib-check	7.04 KB	-rwxr-xr-x
cracklib-format	246 B	-rwxr-xr-x
cracklib-packer	11.06 KB	-rwxr-xr-x
cracklib-unpacker	7.02 KB	-rwxr-xr-x
crda	11.34 KB	-rwxr-xr-x
create-cracklib-dict	990 B	-rwxr-xr-x
crm_attribute	21.51 KB	-rwxr-xr-x
crm_diff	16.73 KB	-rwxr-xr-x
crm_error	11.48 KB	-rwxr-xr-x
crm_failcount	6.56 KB	-rwxr-xr-x
crm_master	2.37 KB	-rwxr-xr-x
crm_mon	84.05 KB	-rwxr-xr-x
crm_node	24.93 KB	-rwxr-xr-x
crm_report	15.9 KB	-rwxr-xr-x
crm_resource	112.09 KB	-rwxr-xr-x
crm_shadow	21.02 KB	-rwxr-xr-x
crm_simulate	50.68 KB	-rwxr-xr-x
crm_standby	3.33 KB	-rwxr-xr-x
crm_ticket	31.15 KB	-rwxr-xr-x
crm_verify	16.38 KB	-rwxr-xr-x
crmadmin	21.1 KB	-rwxr-xr-x
crond	68.48 KB	-rwxr-xr-x
cryptsetup	85.41 KB	-rwxr-xr-x
ctrlaltdel	11.2 KB	-rwxr-xr-x
ctstat	20.09 KB	-rwxr-xr-x
cups-browsed	136.9 KB	-rwxr-xr-x
cups-genppd.5.2	56.05 KB	-rwxr-xr-x
cups-genppdupdate	34.2 KB	-rwxr-xr-x
cupsaccept	10.95 KB	-rwxr-xr-x
cupsaddsmb	10.98 KB	-rwxr-xr-x
cupsctl	14.97 KB	-rwxr-xr-x
cupsd	427.17 KB	-rwxr-xr-x
cupsdisable	10.95 KB	-rwxr-xr-x
cupsenable	10.95 KB	-rwxr-xr-x
cupsfilter	27.37 KB	-rwxr-xr-x
cupsreject	10.95 KB	-rwxr-xr-x
dcbtool	60.03 KB	-rwxr-xr-x
ddns-confgen	19.44 KB	-rwxr-xr-x
debugfs	120.65 KB	-rwxr-xr-x
delpart	19.69 KB	-rwxr-xr-x
depmod	143.24 KB	-rwxr-xr-x
devlink	64.72 KB	-rwxr-xr-x
dhclient	414.34 KB	-rwxr-xr-x
dhclient-script	30.38 KB	-rwxr-xr-x
dm_dso_reg_tool	11.29 KB	-rwxr-xr-x
dmevent_tool	11.29 KB	-rwxr-xr-x
dmeventd	39.56 KB	-r-xr-xr-x
dmfilemapd	19.16 KB	-r-xr-xr-x
dmidecode	120.2 KB	-rwxr-xr-x
dmraid	22.1 KB	-rwxr-xr-x
dmraid.static	22.1 KB	-rwxr-xr-x
dmsetup	149.2 KB	-r-xr-xr-x
dmstats	149.2 KB	-r-xr-xr-x
dnsmasq	340.79 KB	-rwxr-xr-x
dnssec-checkds	922 B	-rwxr-xr-x
dnssec-coverage	924 B	-rwxr-xr-x
dnssec-dsfromkey	56.6 KB	-rwxr-xr-x
dnssec-importkey	52.59 KB	-rwxr-xr-x
dnssec-keyfromlabel	60.52 KB	-rwxr-xr-x
dnssec-keygen	64.55 KB	-rwxr-xr-x
dnssec-keymgr	920 B	-rwxr-xr-x
dnssec-revoke	48.46 KB	-rwxr-xr-x
dnssec-settime	56.52 KB	-rwxr-xr-x
dnssec-signzone	105.71 KB	-rwxr-xr-x
dnssec-verify	48.47 KB	-rwxr-xr-x
dosfsck	56.24 KB	-rwxr-xr-x
dosfslabel	52.23 KB	-rwxr-xr-x
dovecot	88.1 KB	-rwxr-xr-x
dracut	55.83 KB	-rwxr-xr-x
dump-acct	19.63 KB	-rwxr-xr-x
dump-utmp	15.47 KB	-rwxr-xr-x
dumpe2fs	23.62 KB	-rwxr-xr-x
e2freefrag	11.15 KB	-rwxr-xr-x
e2fsck	250.55 KB	-rwxr-xr-x
e2image	27.85 KB	-rwxr-xr-x
e2label	69.41 KB	-rwxr-xr-x
e2undo	11.32 KB	-rwxr-xr-x
e4defrag	23.55 KB	-rwxr-xr-x
eapol_test	1.77 MB	-rwxr-xr-x
ebtables	6.85 KB	-rwxr-xr-x
ebtables-restore	10.88 KB	-rwxr-xr-x
ebtables-save	851 B	-rwxr-xr-x
editmap.sendmail	95.55 KB	-rwxr-xr-x
edquota	83.09 KB	-rwxr-xr-x
era_check	1.23 MB	-rwxr-xr-x
era_dump	1.23 MB	-rwxr-xr-x
era_invalidate	1.23 MB	-rwxr-xr-x
era_restore	1.23 MB	-rwxr-xr-x
ether-wake	73.26 KB	-rwxr-xr-x
ethtool	293.87 KB	-rwxr-xr-x
eventlogadm	39.17 KB	-rwxr-xr-x
exportfs	76.91 KB	-rwxr-xr-x
faillock	15.02 KB	-rwxr-xr-x
fancontrol	14.01 KB	-rwxr-xr-x
fatlabel	52.23 KB	-rwxr-xr-x
fcgistarter	11 KB	-rwxr-xr-x
fcgiwrap	19.8 KB	-rwxr-xr-x
fcnsq	15.13 KB	-rwxr-xr-x
fcoeadm	48.52 KB	-rwxr-xr-x
fcoemon	69.21 KB	-rwxr-xr-x
fcping	31.52 KB	-rwxr-xr-x
fcrls	19.16 KB	-rwxr-xr-x
fdformat	11.27 KB	-rwxr-xr-x
fdisk	195.8 KB	-rwxr-xr-x
fence_amt_ws	8.77 KB	-rwxr-xr-x
fence_apc	7.49 KB	-rwxr-xr-x
fence_apc_snmp	6.28 KB	-rwxr-xr-x
fence_bladecenter	3.09 KB	-rwxr-xr-x
fence_brocade	2.45 KB	-rwxr-xr-x
fence_cisco_mds	2.62 KB	-rwxr-xr-x
fence_cisco_ucs	5.53 KB	-rwxr-xr-x
fence_compute	16.43 KB	-rwxr-xr-x
fence_drac5	5 KB	-rwxr-xr-x
fence_eaton_snmp	6.66 KB	-rwxr-xr-x
fence_emerson	1.85 KB	-rwxr-xr-x
fence_eps	3.52 KB	-rwxr-xr-x
fence_evacuate	13 KB	-rwxr-xr-x
fence_heuristics_ping	5.78 KB	-rwxr-xr-x
fence_hpblade	3.66 KB	-rwxr-xr-x
fence_ibmblade	1.96 KB	-rwxr-xr-x
fence_idrac	6.5 KB	-rwxr-xr-x
fence_ifmib	3.18 KB	-rwxr-xr-x
fence_ilo	4.42 KB	-rwxr-xr-x
fence_ilo2	4.42 KB	-rwxr-xr-x
fence_ilo3	6.5 KB	-rwxr-xr-x
fence_ilo3_ssh	2.03 KB	-rwxr-xr-x
fence_ilo4	6.5 KB	-rwxr-xr-x
fence_ilo4_ssh	2.03 KB	-rwxr-xr-x
fence_ilo5	6.5 KB	-rwxr-xr-x
fence_ilo5_ssh	2.03 KB	-rwxr-xr-x
fence_ilo_moonshot	1.56 KB	-rwxr-xr-x
fence_ilo_mp	1.29 KB	-rwxr-xr-x
fence_ilo_ssh	2.03 KB	-rwxr-xr-x
fence_imm	6.5 KB	-rwxr-xr-x
fence_intelmodular	2.43 KB	-rwxr-xr-x
fence_ipdu	3.86 KB	-rwxr-xr-x
fence_ipmilan	6.5 KB	-rwxr-xr-x
fence_kdump	23.4 KB	-rwxr-xr-x
fence_mpath	9.98 KB	-rwxr-xr-x
fence_redfish	5.34 KB	-rwxr-xr-x
fence_rhevm	6.4 KB	-rwxr-xr-x
fence_rsa	1.76 KB	-rwxr-xr-x
fence_rsb	2.22 KB	-rwxr-xr-x
fence_sbd	11.11 KB	-rwxr-xr-x
fence_scsi	15.95 KB	-rwxr-xr-x
fence_virt	57.66 KB	-rwxr-xr-x
fence_vmware_rest	5.61 KB	-rwxr-xr-x
fence_vmware_soap	8.44 KB	-rwxr-xr-x
fence_wti	7.53 KB	-rwxr-xr-x
fence_xvm	57.66 KB	-rwxr-xr-x
filefrag	15.23 KB	-rwxr-xr-x
findfs	11.2 KB	-rwxr-xr-x
fipvlan	40.16 KB	-rwxr-xr-x
firewalld	6.87 KB	-rwxr-xr-x
firstboot	6.45 KB	-rwxr-xr-x
fixfiles	11.03 KB	-rwxr-xr-x
fixparts	61.65 KB	-rwxr-xr-x
fsadm	23.97 KB	-r-xr-xr-x
fsck	32.12 KB	-rwxr-xr-x
fsck.btrfs	1.16 KB	-rwxr-xr-x
fsck.cramfs	19.57 KB	-rwxr-xr-x
fsck.ext2	250.55 KB	-rwxr-xr-x
fsck.ext3	250.55 KB	-rwxr-xr-x
fsck.ext4	250.55 KB	-rwxr-xr-x
fsck.fat	56.24 KB	-rwxr-xr-x
fsck.minix	73.32 KB	-rwxr-xr-x
fsck.msdos	56.24 KB	-rwxr-xr-x
fsck.vfat	56.24 KB	-rwxr-xr-x
fsck.xfs	433 B	-rwxr-xr-x
fsfreeze	11.23 KB	-rwxr-xr-x
fstrim	40.59 KB	-rwxr-xr-x
ftpscrub	16.47 KB	-rwxr-xr-x
ftpshut	10.98 KB	-rwxr-xr-x
fuser	32.34 KB	-rwxr-xr-x
fxload	19.26 KB	-rwxr-xr-x
gdisk	184.49 KB	-rwxr-xr-x
gdm	430.45 KB	-rwxr-xr-x
genhomedircon	23.77 KB	-rwxr-xr-x
genhostid	6.94 KB	-rwxr-xr-x
genl	52.81 KB	-rwxr-xr-x
genl-ctrl-list	11.27 KB	-rwxr-xr-x
genrandom	11.16 KB	-rwxr-xr-x
getcap	11.13 KB	-rwxr-xr-x
getenforce	7.01 KB	-rwxr-xr-x
getpcaps	7.07 KB	-rwxr-xr-x
getsebool	11.13 KB	-rwxr-xr-x
glibc_post_upgrade.i686	700.2 KB	-rwx------
glibc_post_upgrade.x86_64	772.05 KB	-rwx------
gluster	465.84 KB	-rwxr-xr-x
groupadd	85.65 KB	-rwxr-xr-x
groupdel	77.38 KB	-rwxr-xr-x
groupmems	55.97 KB	-rwxr-xr-x
groupmod	85.66 KB	-rwxr-xr-x
grpck	59.93 KB	-rwxr-xr-x
grpconv	51.73 KB	-rwxr-xr-x
grpunconv	51.73 KB	-rwxr-xr-x
grub2-bios-setup	1.03 MB	-rwxr-xr-x
grub2-get-kernel-settings	2.08 KB	-rwxr-xr-x
grub2-install	1.28 MB	-rwxr-xr-x
grub2-macbless	1.01 MB	-rwxr-xr-x
grub2-mkconfig	7.63 KB	-rwxr-xr-x
grub2-ofpathname	225.54 KB	-rwxr-xr-x
grub2-probe	1.03 MB	-rwxr-xr-x
grub2-reboot	4 KB	-rwxr-xr-x
grub2-rpm-sort	258.52 KB	-rwxr-xr-x
grub2-set-default	3.46 KB	-rwxr-xr-x
grub2-setpassword	2.96 KB	-rwxr-xr-x
grub2-sparc64-setup	1.03 MB	-rwxr-xr-x
grubby	71.27 KB	-rwxr-xr-x
gssproxy	130.64 KB	-rwxr-xr-x
halt	704.8 KB	-rwxr-xr-x
handle-sshpw	2.35 KB	-rwxr-xr-x
hardlink	15.29 KB	-rwxr-xr-x
htcacheclean	31.16 KB	-rwxr-xr-x
httpd	511.44 KB	-rwxr-xr-x
hwclock	48.44 KB	-rwxr-xr-x
hwloc-dump-hwdata	15.32 KB	-rwxr-xr-x
hypervfcopyd	11.18 KB	-rwxr-xr-x
hypervkvpd	27.38 KB	-rwxr-xr-x
hypervvssd	15.23 KB	-rwxr-xr-x
iconvconfig	22.15 KB	-rwxr-xr-x
iconvconfig.i686	21.44 KB	-rwxr-xr-x
iconvconfig.x86_64	22.15 KB	-rwxr-xr-x
ifcfg	2.99 KB	-rwxr-xr-x
ifconfig	80.05 KB	-rwxr-xr-x
ifdown	1.61 KB	-rwxr-xr-x
ifenslave	19.74 KB	-rwxr-xr-x
ifstat	40.6 KB	-rwxr-xr-x
ifup	4.89 KB	-rwxr-xr-x
in.proftpd	988.23 KB	-rwxr-xr-x
init	1.56 MB	-rwxr-xr-x
insmod	143.24 KB	-rwxr-xr-x
install-info	110.42 KB	-rwxr-xr-x
installkernel	2.69 KB	-rwxr-xr-x
intel-microcode2ucode	11.1 KB	-rwxr-xr-x
ip	459.59 KB	-rwxr-xr-x
ip6tables	91.52 KB	-rwxr-xr-x
ip6tables-restore	91.52 KB	-rwxr-xr-x
ip6tables-save	91.52 KB	-rwxr-xr-x
ipmaddr	19.33 KB	-rwxr-xr-x
ipmievd	488.98 KB	-rwxr-xr-x
iprconfig	394.37 KB	-rwxr-xr-x
iprdbg	135.94 KB	-rwx------
iprdump	123.67 KB	-rwxr-xr-x
iprinit	123.64 KB	-rwxr-xr-x
iprsos	2.18 KB	-rwxr-xr-x
iprupdate	123.64 KB	-rwxr-xr-x
ipsec	14.96 KB	-rwxr-xr-x
ipset	7.02 KB	-rwxr-xr-x
iptables	91.52 KB	-rwxr-xr-x
iptables-restore	91.52 KB	-rwxr-xr-x
iptables-save	91.52 KB	-rwxr-xr-x
iptunnel	23.33 KB	-rwxr-xr-x
irqbalance	48.5 KB	-rwxr-xr-x
isadump	15.02 KB	-rwxr-xr-x
isaset	10.98 KB	-rwxr-xr-x
isc-hmac-fixup	11.2 KB	-rwxr-xr-x
iscsi-iname	11.01 KB	-rwxr-xr-x
iscsiadm	794.39 KB	-rwxr-xr-x
iscsid	819.81 KB	-rwxr-xr-x
iscsistart	361.05 KB	-rwxr-xr-x
iscsiuio	182.09 KB	-rwxr-xr-x
iso8601	16.04 KB	-rwxr-xr-x
iw	157.97 KB	-rwxr-xr-x
jk_check	11.2 KB	-rwxr-xr-x
jk_chrootlaunch	20.77 KB	-rwxr-xr-x
jk_chrootsh	32.73 KB	-rwsr-xr-x
jk_cp	4.12 KB	-rwxr-xr-x
jk_init	9.68 KB	-rwxr-xr-x
jk_jailuser	11.81 KB	-rwxr-xr-x
jk_list	4.93 KB	-rwxr-xr-x
jk_lsh	24.66 KB	-rwxr-xr-x
jk_socketd	29.05 KB	-rwxr-xr-x
jk_update	9.11 KB	-rwxr-xr-x
kexec	166.06 KB	-rwxr-xr-x
key.dns_resolver	19.45 KB	-rwxr-xr-x
killall5	23.17 KB	-rwxr-xr-x
kpartx	39.47 KB	-rwxr-xr-x
kpatch	14.53 KB	-rwxr-xr-x
ksmtuned	3.36 KB	-rwxr-xr-x
lchage	15.41 KB	-rwxr-xr-x
ldattach	27.93 KB	-rwxr-xr-x
ldconfig	952.08 KB	-rwxr-xr-x
ledctl	61.97 KB	-rwxr-xr-x
ledmon	62.15 KB	-rwxr-xr-x
lgroupadd	11.28 KB	-rwxr-xr-x
lgroupdel	11.26 KB	-rwxr-xr-x
lgroupmod	15.44 KB	-rwxr-xr-x
libvirtd	506.11 KB	-rwxr-xr-x
lid	15.4 KB	-rwxr-xr-x
liveinst	5.83 KB	-rwxr-xr-x
lldpad	402.72 KB	-rwxr-xr-x
lldptool	96.02 KB	-rwxr-xr-x
lnewusers	15.46 KB	-rwxr-xr-x
lnstat	20.09 KB	-rwxr-xr-x
load_policy	10.97 KB	-rwxr-xr-x
loaderinfo	40.91 KB	-rwxr-xr-x
lockdev	10.95 KB	-rwx--s--x
logrotate	68.61 KB	-rwxr-xr-x
logsave	11.27 KB	-rwxr-xr-x
losetup	82.45 KB	-rwxr-xr-x
lpadmin	27.09 KB	-rwxr-xr-x
lpasswd	15.5 KB	-rwxr-xr-x
lpc	15.07 KB	-rwxr-xr-x
lpc.cups	15.07 KB	-rwxr-xr-x
lpinfo	14.96 KB	-rwxr-xr-x
lpmove	10.98 KB	-rwxr-xr-x
lsmod	143.24 KB	-rwxr-xr-x
lsof	150.57 KB	-rwxr-xr-x
lspci	73.67 KB	-rwxr-xr-x
luseradd	15.38 KB	-rwxr-xr-x
luserdel	11.3 KB	-rwxr-xr-x
lusermod	19.43 KB	-rwxr-xr-x
lvchange	2.15 MB	-r-xr-xr-x
lvconvert	2.15 MB	-r-xr-xr-x
lvcreate	2.15 MB	-r-xr-xr-x
lvdisplay	2.15 MB	-r-xr-xr-x
lvextend	2.15 MB	-r-xr-xr-x
lvm	2.15 MB	-r-xr-xr-x
lvmconf	12.55 KB	-r-xr-xr-x
lvmconfig	2.15 MB	-r-xr-xr-x
lvmdiskscan	2.15 MB	-r-xr-xr-x
lvmdump	10.07 KB	-r-xr-xr-x
lvmetad	71.66 KB	-r-xr-xr-x
lvmpolld	64.07 KB	-r-xr-xr-x
lvmsadc	2.15 MB	-r-xr-xr-x
lvmsar	2.15 MB	-r-xr-xr-x
lvreduce	2.15 MB	-r-xr-xr-x
lvremove	2.15 MB	-r-xr-xr-x
lvrename	2.15 MB	-r-xr-xr-x
lvresize	2.15 MB	-r-xr-xr-x
lvs	2.15 MB	-r-xr-xr-x
lvscan	2.15 MB	-r-xr-xr-x
lwresd	768.03 KB	-rwxr-xr-x
mailstats	79.11 KB	-rwxr-xr-x
makedumpfile	376.52 KB	-rwxr-xr-x
makemap.sendmail	95.63 KB	-rwxr-xr-x
matchpathcon	11.19 KB	-rwxr-xr-x
mcelog	152.67 KB	-rwxr-xr-x
mdadm	593.45 KB	-rwxr-xr-x
mdmon	331.55 KB	-rwxr-xr-x
mii-diag	20.08 KB	-rwxr-xr-x
mii-tool	19.51 KB	-rwxr-xr-x
milter-greylist	253.3 KB	-rwxr-xr-x
mkdict	246 B	-rwxr-xr-x
mkdosfs	28.05 KB	-rwxr-xr-x
mkdumprd	13.99 KB	-rwxr-xr-x
mke2fs	94.08 KB	-rwxr-xr-x
mkfs	11.25 KB	-rwxr-xr-x
mkfs.btrfs	366.45 KB	-rwxr-xr-x
mkfs.cramfs	36.16 KB	-rwxr-xr-x
mkfs.ext2	94.08 KB	-rwxr-xr-x
mkfs.ext3	94.08 KB	-rwxr-xr-x
mkfs.ext4	94.08 KB	-rwxr-xr-x
mkfs.fat	28.05 KB	-rwxr-xr-x
mkfs.minix	36.27 KB	-rwxr-xr-x
mkfs.msdos	28.05 KB	-rwxr-xr-x
mkfs.vfat	28.05 KB	-rwxr-xr-x
mkfs.xfs	359.8 KB	-rwxr-xr-x
mkhomedir_helper	19.05 KB	-rwxr-xr-x
mklost+found	11.11 KB	-rwxr-xr-x
mkswap	69.64 KB	-rwxr-xr-x
modinfo	143.24 KB	-rwxr-xr-x
modprobe	143.24 KB	-rwxr-xr-x
mount.cifs	40.05 KB	-rwxr-xr-x
mount.fuse	11.1 KB	-rwxr-xr-x
mount.nfs	114.68 KB	-rwsr-xr-x
mount.nfs4	114.68 KB	-rwsr-xr-x

Code Editor : amstatus

#!/usr/bin/perl
#

# Run perl.
eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	 & eval 'exec /usr/bin/perl -S $0 $argv:q'
		if 0;

use warnings;
use lib '/usr/lib64/perl5/vendor_perl';
use Time::Local;
use Text::ParseWords;
use Amanda::Util;
use Amanda::Process;
use Getopt::Long;

delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin";       # force known path

$confdir="/etc/amanda";
$prefix='/usr';
$prefix=$prefix;		# avoid warnings about possible typo
$exec_prefix="/usr";
$exec_prefix=$exec_prefix;	# ditto
$sbindir="/usr/sbin";

my $Amanda_process = Amanda::Process->new(0);
$Amanda_process->load_ps_table();

#$STATUS_STRANGE =  2;
$STATUS_FAILED  =  4;
$STATUS_MISSING =  8;
$STATUS_TAPE    = 16;
$exit_status    =  0;

my $opt_summary;
my $opt_stats;
my $opt_dumping;
my $opt_waitdumping;
my $opt_waittaper;
my $opt_dumpingtape;
my $opt_writingtape;
my $opt_finished;
my $opt_failed;
my $opt_estimate;
my $opt_gestimate;
my $opt_date;
my $opt_config;
my $opt_file;
my $opt_locale_independent_date_format;

sub usage() {
	print "amstatus [--file amdump_file]\n";
	print "         [--summary] [--dumping] [--waitdumping] [--waittaper]\n";
	print "         [--dumpingtape] [--writingtape] [--finished] [--failed]\n";
	print "         [--estimate] [--gestimate] [--stats] [--date]\n";
	print "         [--locale-independent-date-format]\n";
	print "         [--config] <config>\n";
	exit 0;
}

Getopt::Long::Configure(qw{ bundling });
GetOptions(
    'summary'                        => \$opt_summary,
    'stats|statistics'               => \$opt_stats,
    'dumping|d'                      => \$opt_dumping,
    'waitdumping|wdumping'           => \$opt_waitdumping,
    'waittaper|wtaper'               => \$opt_waittaper,
    'dumpingtape|dtape'              => \$opt_dumpingtape,
    'writingtape|wtape'              => \$opt_writingtape,
    'finished'                       => \$opt_finished,
    'failed|error'                   => \$opt_failed,
    'estimate'                       => \$opt_estimate,
    'gestimate|gettingestimate'      => \$opt_gestimate,
    'date'                           => \$opt_date,
    'config|c:s'                     => \$opt_config,
    'file:s'                         => \$opt_file,
    'locale-independent-date-format' => \$opt_locale_independent_date_format,
    ) or usage();

if( defined $opt_config ) {
	$conf = $opt_config;
}
else {
	if($#ARGV == 0 ) {
		$conf=$ARGV[0];
	}
	else {
		&usage();
	}
}

#untaint user input $ARGV[0]

if ($conf =~ /^([\w.-]+)$/) {          # $1 is untainted
   $conf = $1;
} else {
    die "filename '$conf' has invalid characters.\n";
}

if ( ! -e "$confdir/$conf" ) {
    print "Configuration directory '$confdir/$conf' doesn't exist\n";
    exit 1;
}
if ( ! -d "$confdir/$conf" ) {
    print "Configuration directory '$confdir/$conf' is not a directory\n";
    exit 1;
 }

$pwd = `pwd`;
chomp $pwd;
chdir "$confdir/$conf";

$logdir=`$sbindir/amgetconf logdir`;
exit 1 if $? != 0;
chomp $logdir;
$errfile="$logdir/amdump";

$nb_options = defined( $opt_summary ) +
				  defined( $opt_stats ) +
				  defined( $opt_dumping ) +
				  defined( $opt_waitdumping ) +
				  defined( $opt_waittaper ) +
				  defined( $opt_dumpingtape ) +
				  defined( $opt_writingtape ) +
				  defined( $opt_finished ) +
				  defined( $opt_estimate ) +
				  defined( $opt_gestimate ) +
				  defined( $opt_failed );

if($nb_options == 0 ) {
	$opt_summary     = 1;
	$opt_stats       = 1; 
	$opt_dumping     = 1;
	$opt_waitdumping = 1;
	$opt_waittaper   = 1;
	$opt_dumpingtape = 1;
	$opt_writingtape = 1;
	$opt_finished    = 1;
	$opt_failed      = 1;
	$opt_gestimate   = 1;
	$opt_estimate    = 1;
}

$unit=`$sbindir/amgetconf displayunit`;
chomp($unit);
$unit =~ tr/A-Z/a-z/;
$unitdivisor=1;
if($unit eq 'k') {
  $unitdivisor = 1;
}
elsif($unit eq 'm') {
  $unitdivisor = 1024;
}
elsif($unit eq 'g') {
  $unitdivisor = 1024*1024;
}
elsif($unit eq 't') {
  $unitdivisor = 1024*1024*1024;
}
else {
  $unit = 'k';
  $unitdivisor = 1;
}

my $dead_run = 0;
if( defined $opt_file) {
	if( $opt_file =~ m,^/, ) {
		$errfile = $opt_file;
	} else {
		$errfile = "$pwd/$opt_file";
		$errfile = "$logdir/$opt_file" if ( ! (-f $errfile ));
	}
}
else {
	$errfile="$logdir/amflush" if(! (-f $errfile));
	if (! -f $errfile) {
		if (-f "$logdir/amflush.1" && -f "$logdir/amdump.1" &&
		    -M "$logdir/amflush.1"  < -M "$logdir/amdump.1") {
			$errfile="$logdir/amflush.1";
		} else {
			$errfile="$logdir/amdump.1";
		}
		$dead_run = 1;
	}
}

open(AMDUMP,"<$errfile") || die("$errfile: $!");
print "Using $errfile\n";

my %taper_status_file;

$start_degraded_mode = 0;

$label = "";					# -w fodder
$origsize = 0;					# -w fodder
$idle_dumpers = 0;
$status_driver = "";
$status_taper = "Searching for a new tape";
$estimate_done = 0;
$holding_space = 0;
$start_time = 0;
@dumpers_active = ();
$nb_tape = 0;
$ntpartition{$nb_tape} = 0;
$ntsize{$nb_tape} = 0;
$ntesize{$nb_tape} = 0;
$tape_size = 0;
$driver_finished = 0;
$generating_schedule = 0;

while($lineX = <AMDUMP>) {
	chomp $lineX;
	$lineX =~ s/[:\s]+$//g; #remove separator at end of line
	next if $lineX eq "";
	@line = &quotewords('[:\s]+', 0, $lineX);
	next if !defined $line[0];

if($line[0] eq "amdump" || $line[0] eq "amflush") {
		if ($line[1] eq "start" && $line[2] eq "at") {
			$datestr = $lineX;
			$datestr =~ s/.*start at //g;
			if (!defined $opt_locale_independent_date_format) {
				print "From " . $datestr . "\n";
			}
		} elsif($line[1] eq "datestamp") {
			$gdatestamp = $line[2];
			if(!defined $datestamp{$gdatestamp}) {
				$datestamp{$gdatestamp} = 1;
				push @datestamp, $gdatestamp;
			}
		} elsif($line[1] eq "starttime") {
			$starttime=&set_starttime($line[2]);
		} elsif($line[1] eq "starttime-locale-independent") {
			if (defined $opt_locale_independent_date_format) {
				printf "From " . $line[2] . " " . $line[3] . ":" . $line[4] . ":" . $line[5] . " " . $line[6] . "\n";
			}
		}
		if($line[0] eq "amflush") {
			$estimate_done=1;
		}
	} elsif($line[0] eq "planner") {
		if($line[1] eq "timestamp") {
			$gdatestamp = $line[2];
			if(!defined $datestamp{$gdatestamp}) {
				$datestamp{$gdatestamp} = 1;
				push @datestamp, $gdatestamp;
			}
		}
		elsif($line[1] eq "FAILED") {
			#2:host 3:disk 4:datestamp 5:level 6:errmsg
			$host=$line[2];
			$partition=$line[3];
			$datestamp=$line[4];
			$hostpart=&make_hostpart($host,$partition,$datestamp);
			$dump_started{$hostpart}=-1;
			$level{$hostpart}=$line[5];
			$error{$hostpart}="planner: " . $line[6];
	} elsif($line[1] eq "time") {
		if($line[3] eq "got") {
				if($line[4] eq "result") {
					$host = $line[7];
					$partition = $line[9];
					$hostpart=&make_hostpart($host,$partition,$gdatestamp);
					$estimate{$hostpart}=1;
					$level{$hostpart}=$line[10];
					$line[12] =~ /(\d+)K/;
					$esize{$hostpart}=$1 / $unitdivisor;
					$partialestimate{$hostpart}=0;
					$getest{$hostpart} = "";
				} elsif($line[4] eq "partial") {
					$host = $line[8];
					$partition = $line[10];
					$hostpart=&make_hostpart($host,$partition,$gdatestamp);
					$level1 = $line[11];
					$line[13] =~ /(-?\d+)K/;
					$size1 = $1;
					$level2 = $line[14];
					$line[16] =~ /(-?\d+)K/;
					$size2 = $1;
					$level3 = $line[17];
					$line[19] =~ /(-?\d+)K/;
					$size3 = $1;
					if($size1 > 0 || $size2 > 0 || $size3 > 0) {
						$estimate{$hostpart}=1;
						$level{$hostpart}=$line[11];
						$esize{$hostpart}=$size1 / $unitdivisor;
						$partialestimate{$hostpart}=1;
						if($size1 > 0) { $getest{$hostpart} =~ s/:$level1://; }
						if($size2 > 0) { $getest{$hostpart} =~ s/:$level2://; }
						if($size3 > 0) { $getest{$hostpart} =~ s/:$level3://; }
						if($getest{$hostpart} eq "") {$partialestimate{$hostpart}=0;}
					}
				}
			} elsif($line[3] eq "getting" &&
					  $line[4] eq "estimates" &&
					  $line[5] eq "took") {
				$estimate_done=1;
			}
		}
	} elsif($line[0] eq "setup_estimate") {
		$host = $line[1];
		$partition = $line[2];
		$hostpart=&make_hostpart($host,$partition,$gdatestamp);
		$estimate{$hostpart}=0;
		$level{$hostpart}=0;
		$degr_level{$hostpart}=-1;
		$esize{$hostpart}=0;
		$dump_started{$hostpart}=0;
		$dump_finished{$hostpart}=0;
		$taper_started{$hostpart}=0;
		$taper_finished{$hostpart}=0;
		$partialestimate{$hostpart}=0;
		$error{$hostpart}="";
		if($line[7] eq "last_level") {
			$getest{$hostpart}="";
			$level1 = $line[15];
			$level2 = $line[17];
			$level3 = $line[19];
			if($level1 != -1) { $getest{$hostpart} .= ":$level1:" };
			if($level2 != -1) { $getest{$hostpart} .= ":$level2:" };
			if($level3 != -1) { $getest{$hostpart} .= ":$level3:" };
		}
	} elsif($line[0] eq "GENERATING" &&
				$line[1] eq "SCHEDULE") {
		$generating_schedule=1;
	} elsif($line[0] eq "--------") {
		if ($generating_schedule == 1) {
			$generating_schedule = 2;
		} elsif ($generating_schedule == 2) {
			$generating_schedule = 3;
		}
	} elsif($line[0] eq "DUMP") {
		if($generating_schedule == 2 ) {
			$host = $line[1];
			$partition = $line[3];
			$datestamp = $line[4];
			$hostpart=&make_hostpart($host,$partition,$datestamp);
			$level{$hostpart}=$line[6];
			$esize=$line[14];	#compressed size
			$esize=32 if $esize<32;
			$esize{$hostpart}=$esize / $unitdivisor;
			if(!defined($line[25])) {
				$degr_level{$hostpart}=-1;
			} else {
				$degr_level{$hostpart}=$line[17];
				$esize=$line[25];	#compressed size
				$esize=32 if $esize<32;
				$degr_size{$hostpart}=$esize / $unitdivisor;
			}
		}
	} elsif($line[0] eq "FLUSH") {
		$host = $line[1];
		$partition = $line[2];
		$datestamp = $line[3];
		$level = $line[4];
		$holding_file = $line[5];
		$hostpart=&make_hostpart($host,$partition,$datestamp);
		$flush{$hostpart}=0;
		$dump_finished{$hostpart}=0;
		$holding_file{$hostpart}=$holding_file;
		$level{$hostpart}=$level;
	} elsif($line[0] eq "driver") {
		if($line[1] eq "pid") {
			$pid = $line[2];
			if (! $Amanda_process->process_alive($pid, "driver")) {
				$dead_run = 1;
			}
		}
		elsif($line[1] eq "start" && $line[2] eq "time") {
			$start_time=$line[3];
			$current_time=$line[3];
			$dumpers_active[0]=0;
			$dumpers_held[0]={};
			$dumpers_active=0;
		}
		elsif($line[1] eq "tape" && $line[2] eq "size") {
			$lineX =~ /^driver: start time (\S+)/;
			$tape_size = $line[3] / $unitdivisor;
		}
		elsif($line[1] eq "adding" &&
			   $line[2] eq "holding" &&
				$line[3] eq "disk") {
			$holding_space += $line[8];
		}
		elsif($line[1] eq "send-cmd" && $line[2] eq "time") {
			#print "send-cmd: " , $line[5] . " " . $line[6] . " " . $line[7] . "\n" if defined $line[5] && defined $line[6] && defined $line[7];
			$current_time = $line[3];
			if($line[5] =~ /dumper\d*/) {
				$dumper = $line[5];
				if($line[6] eq "PORT-DUMP") {
					#7:handle 8:port 9:host 10:amfeatures 11:disk 12:device 13:level ...
					$host = $line[9];
					$partition = $line[11];
					$hostpart=&make_hostpart($host,$partition,$gdatestamp);
					$serial=$line[7];
					$dumper_to_serial{$line[5]} = $serial;
					$dump_started{$hostpart}=1;
					$dump_time{$hostpart}=$current_time;
					$dump_finished{$hostpart}=0;
					if(     $level{$hostpart} != $line[13] &&
					   $degr_level{$hostpart} == $line[13]) {
						$level{$hostpart}=$degr_level{$hostpart};
						$esize{$hostpart}=$degr_size{$hostpart};
					}
					if(! defined($busy_time{$dumper})) {
						$busy_time{$dumper}=0;
					}
					$running_dumper{$dumper} = $hostpart;
					$error{$hostpart}="";
					$taper_error{$hostpart}="";
					$size{$hostpart} = 0;
					$dumpers_active++;
					if(! defined($dumpers_active[$dumpers_active])) {
						$dumpers_active[$dumpers_active]=0;
					}
					if(! defined($dumpers_held[$dumpers_active])) {
						$dumpers_held[$dumpers_active]={};
					}
				}
			}
			elsif($line[5] =~ /chunker\d*/) {
				if($line[6] eq "PORT-WRITE") {
					$host=$line[9];
					$partition=$line[11];
					$hostpart=&make_hostpart($host,$partition,$gdatestamp);
					$serial=$line[7];
					$chunker_to_serial{$line[5]} = $serial;
					$serial{$serial}=$hostpart;
					$holding_file{$hostpart}=$line[8];
					#$chunk_started{$hostpart}=1;
					$chunk_time{$hostpart}=$current_time;
					#$chunk_finished{$hostpart}=0;
					$size{$hostpart} = 0;
				}
				elsif($line[6] eq "CONTINUE") {
					#7:handle 8:filename 9:chunksize 10:use
					$serial=$line[7];
					$hostpart=$serial{$serial};
					if($hostpart ne "") {
						$dump_roomq{$hostpart}=undef;
						$error{$hostpart}="";
					}
				}
			}
			elsif($line[5] =~ /taper/) {
				if($line[6] eq "START-TAPER") {
					#7:name 8:timestamp
					$gdatestamp=$line[8];
					if(!defined $datestamp{$gdatestamp}) {
						$datestamp{$gdatestamp} = 1;
						push @datestamp, $gdatestamp;
					}
					$status_taper = "Searching for a new tape";
				}
				elsif($line[6] eq "NEW-TAPE") {
					#7:name 8:handle
					$status_taper = "Searching for a new tape";
				}
				elsif($line[6] eq "NO-NEW-TAPE") {
					#7:name 8:handle 9:errmsg
					$serial=$line[8];
					$error=$line[9];
					$status_taper = $error;
				}
				elsif($line[6] eq "FILE-WRITE") {
					#7:name 8:handle 9:filename 10:host 11:disk 12:level 13:datestamp 14:splitsize
					$name=$line[7];
					$serial=$line[8];
					$host=$line[10];
					$partition=$line[11];
					$level=$line[12];
					$ldatestamp=$line[13];
					$status_taper = "Writing $host:$partition";
					if(!defined $datestamp{$ldatestamp}) {
						$datestamp{$ldatestamp} = 1;
						push @datestamp, $ldatestamp;
					}
					$hostpart=&make_hostpart($host,$partition,$ldatestamp);
					$serial{$serial}=$hostpart;
					if(!defined $level{$hostpart}) {
						$level{$hostpart} = $level;
					}
					$taper_started{$hostpart}=1;
					$taper_finished{$hostpart}=0;
					$taper_time{$hostpart}=$current_time;
					$taper_error{$hostpart}="";
					$taper_name{$hostpart} = $name;
					$worker_to_serial{$name} = $serial;
				    $tapedsize{$hostpart} = 0;
				}
				elsif($line[6] eq "PORT-WRITE") {
					#7:name 8:handle 9:host 10:disk 11:level 12:datestamp 13:splitsize 14:diskbuffer 15:fallback_splitsize
					$name=$line[7];
					$serial=$line[8];
					$host=$line[9];
					$partition=$line[10];
					$level=$line[11];
					$ldatestamp=$line[12];
					$status_taper = "Writing $host:$partition";
					$hostpart=&make_hostpart($host,$partition,$ldatestamp);
					$serial{$serial}=$hostpart;
					$taper_started{$hostpart}=1;
					$taper_finished{$hostpart}=0;
					$taper_time{$hostpart}=$current_time;
					$taper_error{$hostpart}="";
					$taper_name{$hostpart} = $name;
					$worker_to_serial{$name} = $serial;
				    $tapedsize{$hostpart} = 0;
					$size{$hostpart} = 0;
				}
				elsif($line[6] eq "TAKE-SCRIBE-FROM") {
					#7:name1 #8:handle #9:name2
					$name1=$line[7];
					$serial=$line[8];
					$name2=$line[9];
					$hostpart=$serial{$serial};
					$taper_nb{$name1} = $taper_nb{$name2};
					$taper_nb{$name2} = 0;
					if (defined $hostpart) {
						$error{$hostpart} = $olderror{$hostpart};
					}
				}
			}
		}
		elsif($line[1] eq "result" && $line[2] eq "time") {
			#print "result: " , $line[5] . " " . $line[6] . " " . $line[7] . "\n" if defined $line[5] && defined $line[6] && defined $line[7];
			$current_time = $line[3];
			if($line[5] =~ /dumper\d+/) {
				if($line[6] eq "(eof)") {
					$line[6] = "FAILED";
					$line[7] = $dumper_to_serial{$line[5]};
					$line[8] = "dumper CRASH";
				}
				if($line[6] eq "FAILED" || $line[6] eq "TRY-AGAIN") {
					#7:handle 8:message
					$serial = $line[7];
					$error = $line[8];
					$hostpart=$serial{$serial};
					if ($taper_started{$hostpart} == 1) {
						$dump_finished{$hostpart}=-1;
					} else {
						$dump_finished{$hostpart}=-3;
					}
					$busy_time{$line[5]}+=($current_time-$dump_time{$hostpart});
					$running_dumper{$line[5]} = "0";
					$dump_time{$hostpart}=$current_time;
					if (!$taper_error{$hostpart}) {
						$error{$hostpart}="dumper: $error";
					}
					$dumpers_active--;

}
				elsif($line[6] eq "DONE") {
					#7:handle 8:origsize 9:size ...
					$serial=$line[7];
					$origsize=$line[8] / $unitdivisor;
					$outputsize=$line[9] / $unitdivisor;
					$hostpart=$serial{$serial};
					$size{$hostpart}=$outputsize;
					$dump_finished{$hostpart}=1;
					$busy_time{$line[5]}+=($current_time-$dump_time{$hostpart});
					$running_dumper{$line[5]} = "0";
					$dump_time{$hostpart}=$current_time;
					$error{$hostpart}="";
					$dumpers_active--;
				}
				elsif($line[6] eq "ABORT-FINISHED") {
					#7:handle
					$serial=$line[7];
					$hostpart=$serial{$serial};
					$dump_started{$hostpart}=0;
					if ($taper_started{$hostpart} == 1) {
						$dump_finished{$hostpart}=-1;
					} else {
						$dump_finished{$hostpart}=-3;
					}
					$busy_time{$line[5]}+=($current_time-$dump_time{$hostpart});
					$running_dumper{$line[5]} = "0";
					$dump_time{$hostpart}=$current_time;
					$error{$hostpart}="dumper: (aborted)";
					$dumpers_active--;
				}
			}
			elsif($line[5] =~ /chunker\d+/) {
				if($line[6] eq "(eof)") {
					$line[6] = "FAILED";
					$line[7] = $chunker_to_serial{$line[5]};
					$line[8] = "chunker CRASH";
				}
				if($line[6] eq "DONE" || $line[6] eq "PARTIAL") {
					#7:handle 8:size
					$serial=$line[7];
					$outputsize=$line[8] / $unitdivisor;
					$hostpart=$serial{$serial};
					$size{$hostpart}=$outputsize;
					if ($line[6] eq "DONE") {
						$dump_finished{$hostpart}=1;
					} else {
						$dump_finished{$hostpart}=-3;
					}
					$busy_time{$line[5]}+=($current_time-$chunk_time{$hostpart});
					$running_dumper{$line[5]} = "0";
					$chunk_time{$hostpart}=$current_time;
					if ($line[6] eq "PARTIAL") {
						$partial{$hostpart} = 1;
					}
					else {
						$partial{$hostpart} = 0;
						$error{$hostpart}="";
					}
				}
				elsif($line[6] eq "FAILED") {
					$serial=$line[7];
					$hostpart=$serial{$serial};
					$dump_finished{$hostpart}=-1;
					$busy_time{$line[5]}+=($current_time-$chunk_time{$hostpart});
					$running_dumper{$line[5]} = "0";
					$chunk_time{$hostpart}=$current_time;
					$error{$hostpart}="chunker: " .$line[8] if $error{$hostpart} eq "";
				}
				elsif($line[6] eq "RQ-MORE-DISK") {
					#7:handle
					$serial=$line[7];
					$hostpart=$serial{$serial};
					$dump_roomq{$hostpart}=1;
					$error{$hostpart}="(waiting for holding disk space)";
				}
			}
			elsif($line[5] eq "taper") {
				if($line[6] eq "(eof)") {
					# all worker fail
					foreach $worker (keys %worker_to_serial) {
						$serial = $worker_to_serial{$worker};
						$hostpart=$serial{$serial};
						if(defined $hostpart) {
							$error= "taper CRASH";
							$taper_finished{$hostpart} = -2;
							$status_taper = $error;
							$busy_time{"taper"}+=($current_time-$taper_time{$hostpart});
							$taper_time{$hostpart}=$current_time;
							$error{$hostpart}="$error";
							undef $worker_to_serial{$worker};
						}
						undef $taper_status_file{$hostpart};
					}
				}
				elsif($line[6] eq "DONE" || $line[6] eq "PARTIAL") {
					#DONE:    7:handle 8:label 9:filenum 10:errstr
					#PARTIAL: 7:handle 8:INPUT-* 9:TAPE-* 10:errstr 11:INPUT-MSG 12:TAPE-MSG
					$serial=$line[7];

$status_taper = "Idle";
					$hostpart=$serial{$serial};
					$line[10] =~ /sec (\S+) (kb|bytes) (\d+) kps/;
					if ($2 eq 'kb') {
						$size=$3 / $unitdivisor;
					} else {
						$size=$3 / ( $unitdivisor * 1024);
					}
					$taper_finished{$hostpart}=1;
					$busy_time{"taper"}+=($current_time-$taper_time{$hostpart});
					$taper_time{$hostpart}=$current_time;
					if(!defined $size{$hostpart}) {
						$size{$hostpart}=$size;
					}
					$ntape = $taper_nb{$taper_name{$hostpart}};
					$ntpartition{$ntape}++ if defined $ntape;
					if ($line[6] eq "PARTIAL") {
						$partial{$hostpart} = 1;
						if ($line[9] eq "TAPE-ERROR") {
							$error{$hostpart} = "taper: $line[12]";
							$taper_error{$hostpart} = "taper: $line[12]";
						}
					}
					else {
						$partial{$hostpart} = 0;
					}
					undef $taper_status_file{$hostpart};
					undef $worker_to_serial{$taper_name{$hostpart}};
				}
				elsif($line[6] eq "PARTDONE") {
					#7:handle 8:label 9:filenum 10:ksize 11:errstr
					$serial=$line[7];
					$hostpart=$serial{$serial};
					#$line[11] =~ /.*kb (\d*) kps/;
					#$size=$1 / $unitdivisor;
					$size=$line[10] / $unitdivisor;
					$tapedsize{$hostpart} += $size;
					$ntape = $taper_nb{$taper_name{$hostpart}};
					$ntchunk{$ntape}++;
					$ntsize{$ntape} += $size;
					$ntesize{$ntape} += $size;
				}
				elsif($line[6] eq "REQUEST-NEW-TAPE") {
					#7:serial
					$serial=$line[7];
					$old_status_taper = $status_taper;
					$status_taper = "Asking for a new tape";
					$hostpart=$serial{$serial};
					if (defined $hostpart and
						!defined($olderror{$hostpart})) {
						$olderror{$hostpart} = $error{$hostpart};
						$error{$hostpart} = "waiting for a new tape";
					}
				}
				elsif($line[6] eq "NEW-TAPE") {
					#7:serial #8:label
					$serial=$line[7];
					$status_taper = $old_status_taper;
					$hostpart=$serial{$serial};
					$nb_tape++;
					$taper_nb{$taper_name{$hostpart}} = $nb_tape;
					$label = $line[8];
					$ntlabel{$nb_tape} = $label;
					$ntpartition{$nb_tape} = 0;
					$ntsize{$nb_tape} = 0;
					$ntesize{$nb_tape} = 0;
					if (defined $hostpart) {
						$error{$hostpart} = $olderror{$hostpart};
					}
				}
				elsif($line[6] eq "TAPER-OK") {
					#7:name #8:label
					$status_taper = "Idle";
				}
				elsif($line[6] eq "TAPE-ERROR") {
					#7:name 8:errstr
					$error=$line[8];
					$status_taper = $error;
					$exit_status |= $STATUS_TAPE;
					undef $taper_status_file{$hostpart};
				}
				elsif($line[6] eq "FAILED") {
					#7:handle 8:INPUT- 9:TAPE- 10:input_message 11:tape_message
					$serial=$line[7];
					$hostpart=$serial{$serial};
					if(defined $hostpart) {
						if($line[9] eq "TAPE-ERROR") {
							$error=$line[11];
							$taper_finished{$hostpart} = -2;
							$status_taper = $error;
						} elsif($line[9] eq "TAPE-CONFIG") {
							$tape_config{$hostpart} = $error;
							$error=$line[11];
							$tape_config{$hostpart} = $error;
							$taper_finished{$hostpart} = -2;
							$status_taper = $error;
						} else { # INPUT-ERROR
							$error = $line[10];
							$error = $error{$hostpart} if defined $error{$hostpart};
							$taper_finished{$hostpart} = -1;
							$status_taper = "Idle";
						}
						$busy_time{"taper"}+=($current_time-$taper_time{$hostpart});
						$taper_time{$hostpart}=$current_time;
						$error{$hostpart}="$error";
					}
					undef $taper_status_file{$hostpart};
					undef $worker_to_serial{$taper_name{$hostpart}};
				}
			}
		}
		elsif($line[1] eq "finished-cmd" && $line[2] eq "time") {
			$current_time=$line[3];
			if($line[4] =~ /dumper\d+/) {
			}
		}
		elsif($line[1] eq "dump" && $line[2] eq "failed") {
			#3:handle 4: 5: 6:"too many dumper retry"
			$serial=$line[3];
			$hostpart=$serial{$serial};
			$dump_started{$hostpart}=-1;
			$dump_finished{$hostpart}=-2;
			$error{$hostpart} .= "(" . $line[6] . ")";
		}
		elsif($line[1] eq "tape" && $line[2] eq "failed") {
			#3:handle 4: 5: 6:"too many dumper retry"
			$serial=$line[3];
			$hostpart=$serial{$serial};
			$taper_started{$hostpart}=-1;
			$taper_finished{$hostpart}=-2;
			$error{$hostpart} .= "(" . $line[6] . ")";
		}
		elsif($line[1] eq "state" && $line[2] eq "time") {
			#3:time 4:"free" 5:"kps" 6:free 7:"space" 8:space 9:"taper" 10:taper 11:"idle-dumpers" 12:idle-dumpers 13:"qlen" 14:"tapeq" 15:tapeq 16:"runq" 17:runq 18:"roomq" 19:roomq 20:"wakeup" 21:wakeup 22:"driver-idle" 23:driver-idle
			$current_time=$line[3];
			$idle_dumpers=$line[12];

$free{"kps"} = $line[6];
			$free{"space"} = $line[8];
			$qlen{"tapeq"} = $line[15];
			$qlen{"runq"} = $line[17];
			$qlen{"roomq"} = $line[19];

if(defined($dumpers_active)) {
				if($status_driver ne "") {
					$dumpers_active[$dumpers_active_prev]
						+=$current_time-$state_time_prev;
					$dumpers_held[$dumpers_active_prev]{$status_driver}
						+=$current_time-$state_time_prev;
				}
				$state_time_prev=$current_time;
				$dumpers_active_prev=$dumpers_active;
				$status_driver=$line[23];
				if(! defined($dumpers_held[$dumpers_active]{$status_driver})) {
					$dumpers_held[$dumpers_active]{$status_driver}=0;
				}
			}
		}
		elsif($line[1] eq "FINISHED") {
			$driver_finished = 1;
		}
	}
	elsif($line[0] eq "dump") {
		if($line[1] eq "of" &&
			$line[2] eq "driver" &&
			$line[3] eq "schedule" &&
			$line[4] eq "after" &&
			$line[5] eq "start" &&
			$line[6] eq "degraded" &&
			$line[7] eq "mode") {
			$start_degraded_mode=1;
		}
	}
	elsif($line[0] eq "taper") {
		if($line[1] eq "wrote") {
			#1:"wrote" 2:"label" 3:label
			#$nb_tape++;
			#$label = $line[3];
			#$ntlabel{$nb_tape} = $label;
			#$ntpartition{$nb_tape} = 0;
			#$ntsize{$nb_tape} = 0;
			#$ntesize{$nb_tape} = 0;
		}
		elsif($line[1] eq "status" && $line[2] eq "file") {
			#1:"status" #2:"file:" #3:hostname #4:diskname #5:filename
			#$host = $line[3];
			#$partition = $line[4];
			#Which datestamp to use?
			#$hostpart=&make_hostpart($host,$partition,$datestamp);
			#assume $hostpart is already set.
			$taper_status_file{$hostpart} = $line[5];
		}
	}
	elsif($line[0] eq "splitting" &&
			 $line[1] eq "chunk" &&
			 $line[2] eq "that" &&
			 $line[3] eq "started" &&
			 $line[4] eq "at" &&
			 $line[6] eq "after") {
		$line[7] =~ /(\d*)kb/;
		$size = $1;
		$ntchunk{$nb_tape}++;
		$ntsize{$nb_tape} += $size / $unitdivisor;
		$ntesize{$nb_tape} += $size / $unitdivisor;
	}
	else {
		#print "Ignoring: $lineX\n";
	}
}

close(AMDUMP);

if(defined $current_time) {
	for ($d = 0; $d < $#dumpers_active; $d++) {
		$the_dumper = "dumper$d";
		if(defined($running_dumper{$the_dumper}) &&
		   $running_dumper{$the_dumper} ne "0") {
			$busy_time{$the_dumper}+=($current_time-$dump_time{$running_dumper{$the_dumper}});
		}
	}
}

print "\n";

$nb_partition = 0;

$epartition = 0;
$estsize = 0;
$fpartition = 0;
$fsize = 0;
$wpartition = 0;
$wsize = 0;

$flpartition = 0;
$flsize = 0;
$wfpartition = 0;
$wfsize = 0;

$dtpartition = 0;
$dtesize = 0;
$dupartition = 0;
$dusize = 0;
$duesize = 0;
$dpartition = 0;
$dsize = 0;
$desize = 0;

$twpartition = 0;
$twsize = 0;
$twesize = 0;
$tapartition = 0;
$tasize = 0;
$taesize = 0;
$tfpartition = 0;
$tfsize = 0;
$tfesize = 0;
$tpartition = 0;
$tsize = 0;
$tesize = 0;

$maxnamelength = 10;
foreach $host (sort @hosts) {
	foreach $partition (sort @$host) {
		foreach $datestamp (sort @datestamp) {
			$hostpart=&make_hostpart($host,$partition,$datestamp);
			next if(!defined $estimate{$hostpart} && !defined $flush{$hostpart});
			if(length("$host:$partition") > $maxnamelength) {
				$maxnamelength = length("$host:$partition");
			}
		}
	}
}

foreach $host (sort @hosts) {
	foreach $partition (sort @$host) {
	   $qpartition = Amanda::Util::quote_string($partition);
	   foreach $datestamp (sort @datestamp) {
			$hostpart=&make_hostpart($host,$partition,$datestamp);
			next if(!defined $estimate{$hostpart} && !defined $flush{$hostpart});
			$nb_partition++;
			if( (!defined $size{$hostpart} || $size{$hostpart} == 0) &&
				 defined $holding_file{$hostpart}) {
				$size{$hostpart} = &dump_size($holding_file{$hostpart}) / (1024 * $unitdivisor);
			}
			$in_flush=0;
			if($estimate_done != 1 && !defined $flush{$hostpart}) {
				if(defined $estimate{$hostpart}) {
					if($estimate{$hostpart} != 1) {
						if( defined $opt_gestimate ||
							 defined $opt_failed && $dead_run != 0) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s", "$host:$qpartition";
							print "             ";
							if ($dead_run) {
								print " failed: killed while";
								$exit_status |= $STATUS_FAILED;
							}
							print " getting estimate\n";
						}
					}
					else {
						if(defined $opt_estimate ||
							(defined $opt_gestimate && $partialestimate{$hostpart} == 1) ||
							(defined $opt_failed && $dead_run != 0 && $partialestimate{$hostpart} == 1)) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s", "$host:$qpartition";
							printf "%2d ",  $level{$hostpart};
							printf "%9d$unit", $esize{$hostpart};
							if($partialestimate{$hostpart} == 1) {
								if ($dead_run) {
									print " failed: killed while";
									$exit_status |= $STATUS_FAILED;
								}
								print " partial";
							}
							print " estimate done\n";
						}
						$epartition++;
						$estsize += $esize{$hostpart};
					}
				}
			}
			else {
				if(defined $estimate{$hostpart}) {
					if($estimate{$hostpart} == 1) {
						$epartition++;
						$estsize += $esize{$hostpart};
					}
					elsif (!defined $dump_started{$hostpart} || $dump_started{$hostpart} == 0) {
						if( defined $opt_failed) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "           no estimate\n";
						}
						$exit_status |= $STATUS_FAILED;
						$fpartition++;
						$fsize+=$esize{$hostpart};
					}
				}
				else {
					$flpartition++;
					$flsize += $size{$hostpart};
					$in_flush=1;
				}
				if(defined $taper_started{$hostpart} &&
						$taper_started{$hostpart}==1) {
					if(defined $dump_started{$hostpart} &&
						$dump_started{$hostpart} == 1 &&
							$dump_finished{$hostpart} == -1) {
						if(defined $opt_failed) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $esize{$hostpart};
							print " dump to tape failed: " . $error{$hostpart};
							print "\n";
						}
						$exit_status |= $STATUS_FAILED;
						$fpartition++;
						$fsize+=$esize{$hostpart};
					} elsif(defined $dump_started{$hostpart} &&
						$dump_started{$hostpart} == 1 &&
							$dump_finished{$hostpart} == 0 &&
							$taper_started{$hostpart} == 1) {
						if( defined $opt_dumpingtape ||
							 defined $opt_failed && $dead_run != 0) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $esize{$hostpart};
							if ($dead_run) {
								print " failed: killed while";
								$exit_status |= $STATUS_FAILED;
							}
							print " dumping to tape";
							$size = $tapedsize{$hostpart};
							if ($taper_status_file{$hostpart} && -f $taper_status_file{$hostpart} &&
								open FF, "<$taper_status_file{$hostpart}") {
								$line = <FF>;
								if (defined $line) {
									chomp $line;
									$value = $line / ($unitdivisor * 1024);
									if ($value) {
										$size = $value if (!defined($size) || $value > $size);
									}
								}
								close FF;
							}
							if(defined($size)) {
								printf " (%d$unit done (%0.2f%%))", $size, 100.0 * $size/$esize{$hostpart};
								$dtsize += $size;
							}
							if( defined $starttime ) {
								print " (", &showtime($taper_time{$hostpart}), ")";
							}
							print "\n";
						}
						$dtpartition++;
						$dtesize += $esize{$hostpart};
					}
					elsif($taper_finished{$hostpart} == 0) {
						if( defined $opt_writingtape ||
							 defined $opt_failed && $dead_run != 0) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $size{$hostpart};
							if ($dead_run) {
								print " failed: killed while";
								$exit_status |= $STATUS_FAILED;
							}
							if($in_flush == 0) {
								if (defined $dump_finished{$hostpart}) {
									if ($dump_finished{$hostpart} == 1) {
										print " dump done,";
									} else {
										$exit_status |= $STATUS_FAILED;
										print " dump failed: ", $error{$hostpart}, ",";
										$fpartition++;
										$fsize+=$esize{$hostpart};
									}
								}
								print " writing to tape";
							}
							else {
								print " flushing to tape";
							}
							$size = $tapedsize{$hostpart};
							if ($taper_status_file{$hostpart} &&  -f $taper_status_file{$hostpart} &&
								open FF, "<$taper_status_file{$hostpart}") {
								$line = <FF>;
								if (defined $line) {
									chomp $line;
									$value = $line / ($unitdivisor * 1024);
									if ($value) {
										$size = $value if (!defined($size) || $value > $size);
									}
								}
								close FF;
							}
							if(defined($size) and defined($size{$hostpart}) and $size{$hostpart} > 0) {
								printf " (%d$unit done (%0.2f%%))", $size, 100.0 * $size/$size{$hostpart};
							}
							if( defined $starttime ) {
								print " (", &showtime($taper_time{$hostpart}), ")";
							}
							print ", ", $error{$hostpart} if (defined($error{$hostpart}) &&
															  $error{$hostpart} ne "" &&
															  (!defined $dump_finished{$hostpart} ||
															   $dump_finished{$hostpart} != -3));
							print "\n";
						}
						$tapartition++;
						$tasize += $size{$hostpart};
						if(defined $esize{$hostpart}) {
							$taesize += $esize{$hostpart};
						}
						else {
							$taesize += $size{$hostpart};
						}
						if (defined $dump_finished{$hostpart} && $dump_finished{$hostpart} == 1) {
							$dpartition++;
							$dsize += $size{$hostpart};
							if(defined $esize{$hostpart} && $esize{$hostpart} > 1) {
								$desize += $esize{$hostpart};
							} else {
								$desize += $size{$hostpart};
							}
						}
					}
					elsif($taper_finished{$hostpart} < 0) {

if(defined $size{$hostpart}) {
							$xsize = $size{$hostpart};
						}
						elsif(defined $esize{$hostpart}) {
							$xsize = $esize{$hostpart};
						}
						else {
							$xsize = 0;
						}

if(defined $esize{$hostpart}) {
							$exsize += $esize{$hostpart};
						}
						else {
							$exsize += $xsize;
						}

if( defined $opt_failed  ||
							 (defined $opt_waittaper && ($taper_finished{$hostpart} == -1))) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $xsize;
							print " dump done," if defined $dump_finished{$hostpart} && $dump_finished{$hostpart} == 1;
							if($in_flush == 0) {
								if ($tape_config{$hostpart}) {
									print " taping delayed because of config";
								} else {
									print " failed to tape";
								}
							}
							else {
								if ($tape_config{$hostpart}) {
									print " flushing delayed because of config";
								} else {
									print " failed to flush";
								}
							}
							print ": ",$error{$hostpart} if defined $error{$hostpart};

print " (will retry)" unless $taper_finished{$hostpart} < -1;
							if( defined $starttime ) {
								print " (", &showtime($taper_time{$hostpart}), ")";
							}
							print "\n";
						}
						$exit_status |= $STATUS_TAPE;

$tfpartition++;
						$tfsize += $xsize;
						$tfesize += $exsize;

if($in_flush == 0) {
							$twpartition++;
							$twsize += $xsize;
							$twesize += $exsize;
						}
						else {
							$wfpartition++;
							$wfsize += $xsize;
						}
						if (defined $dump_finished{$hostpart} && $dump_finished{$hostpart} == 1) {
							$dpartition++;
							$dsize += $size{$hostpart};
							if(defined $esize{$hostpart} && $esize{$hostpart} > 1) {
								$desize += $esize{$hostpart};
							} else {
								$desize += $size{$hostpart};
							}
						}
					}
					elsif($taper_finished{$hostpart} == 1) {
						if( defined $opt_finished ) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $size{$hostpart};
							if($in_flush == 0) {
								if (defined $dump_finished{$hostpart} && $dump_finished{$hostpart} == -3) {
									$exit_status |= $STATUS_FAILED;
									print " dump failed: ", $error{$hostpart}, ",";
									$fpartition++;
									$fsize+=$esize{$hostpart};
								}
								print " finished";
							}
							else {
								print " flushed";
							}
							if( defined $starttime ) {
								print " (", &showtime($taper_time{$hostpart}), ")";
							}
							if(defined $partial{$hostpart} && $partial{$hostpart} == 1) {
								print ", PARTIAL";
								$exit_status |= $STATUS_FAILED;
							}
							print "\n";
						}
						if (defined $dump_finished{$hostpart} && $dump_finished{$hostpart} == 1) {
							$dpartition++;
							$dsize += $size{$hostpart};
							if(defined $esize{$hostpart} && $esize{$hostpart} > 1) {
								$desize += $esize{$hostpart};
							} else {
								$desize += $size{$hostpart};
							}
						}
						$tpartition++;
						$tsize += $size{$hostpart};
						if(defined $esize{$hostpart} && $esize{$hostpart} > 1) {
							$tesize += $esize{$hostpart};
						}
						else {
							$tesize += $size{$hostpart};
						}
					}
					else {
						printf "%8s ", $datestamp if defined $opt_date;
						printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
						print " unknown state TAPER\n";
					}
				}
				elsif(defined $dump_started{$hostpart}) {
					if($dump_started{$hostpart} == -1) {
						if( defined $opt_failed ) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "failed: " . $error{$hostpart} . "\n";
						}
						$exit_status |= $STATUS_FAILED;

$fpartition++;
						$fsize+=$esize{$hostpart};
					}
					elsif($dump_started{$hostpart} == 0) {
						if($estimate{$hostpart} == 1) {
							if( defined $opt_waitdumping ) {
								printf "%8s ", $datestamp if defined $opt_date;
								printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
								printf "%9d$unit", $esize{$hostpart};
								if ($dead_run) {
									print " failed: process terminated while";
									$exit_status |= $STATUS_FAILED;
								}
								print " waiting for dumping $error{$hostpart}\n";
							}
							if($driver_finished == 1) {
								$exit_status |= $STATUS_MISSING;
							}
							$wpartition++;
							$wsize += $esize{$hostpart};
						}
					}
					elsif($dump_started{$hostpart} == 1 &&
							($dump_finished{$hostpart} == -1 ||
						    $dump_finished{$hostpart} == -3)) {
						if( defined $opt_failed ) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							print "backup failed: ", $error{$hostpart};
							if( defined $starttime ) {
								print " (", &showtime($dump_time{$hostpart}), ")";
							}
							print "\n";
						}
						$exit_status |= $STATUS_FAILED;
						$fpartition++;
						$fsize+=$esize{$hostpart};
					}
					elsif($dump_started{$hostpart} == 1 &&
							$dump_finished{$hostpart} == 0) {
						if( defined $opt_dumping ||
							 defined $opt_failed && $dead_run != 0) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $esize{$hostpart};
							if ($dead_run) {
								print " failed: killed while";
								$exit_status |= $STATUS_FAILED;
							}
							printf " dumping %8d$unit", $size{$hostpart};
							if($size{$hostpart} != 0) {
								printf " (%6.2f%%)", (100.0*$size{$hostpart})/$esize{$hostpart};
							}
							if( defined $starttime ) {
								print " (", &showtime($dump_time{$hostpart}), ")";
							}
							if(defined $dump_roomq{$hostpart}) {
								print " " . $error{$hostpart};
							}
							print "\n";
						}
						$dupartition++;
						$dusize += $size{$hostpart};
						$duesize += $esize{$hostpart};
					}
					elsif($dump_finished{$hostpart} == 1 &&
							$taper_started{$hostpart} != 1) {
						if( defined $opt_waittaper ) {
							printf "%8s ", $datestamp if defined $opt_date;
							printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
							printf "%9d$unit", $size{$hostpart};
							print " dump done";
							if( defined $starttime ) {
								print " (", &showtime($dump_time{$hostpart}), ")";
							}
							print ",";
							if ($dead_run) {
								print " process terminated while";
							}
							print " waiting for writing to tape";
							if(defined $partial{$hostpart} && $partial{$hostpart} == 1) {
								print ", PARTIAL";
								$exit_status |= $STATUS_FAILED;
							}
							print "\n";
						}
						$dpartition++;
						$dsize += $size{$hostpart};
						$desize += $esize{$hostpart};
						$twpartition++;
						$twsize += $size{$hostpart};
						$twesize += $esize{$hostpart};
					}
					else {
						printf "%8s ", $datestamp if defined $opt_date;
						printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
						print " unknown state DUMPER\n";
					}
				}
				elsif(defined $flush{$hostpart}) {
					if( defined $opt_waittaper ) {
						printf "%8s ", $datestamp if defined $opt_date;
						printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
						printf "%9d$unit", $size{$hostpart};
						if ($dead_run) {
							print " process terminated while";
						}
						print " waiting to flush";
						if(defined $partial{$hostpart} && $partial{$hostpart} == 1) {
							print ", PARTIAL";
							$exit_status |= $STATUS_FAILED;
						}
						print "\n";
					}
					$wfpartition++;
					$wfsize += $size{$hostpart};
				}
				elsif(defined $level{$hostpart}) {
					printf "%8s ", $datestamp if defined $opt_date;
					printf "%-${maxnamelength}s%2d ", "$host:$qpartition", $level{$hostpart};
					print " unknown state\n";
				}
			}
		}
	}
}

if (defined $opt_summary) {
	print "\n";
	print  "SUMMARY          part      real  estimated\n";
	print  "                           size       size\n";
	printf "partition       : %3d\n", $nb_partition;
	printf "estimated       : %3d %20d$unit\n", $epartition , $estsize;
	printf "flush           : %3d %9d$unit\n", $flpartition, $flsize;
	printf "failed          : %3d %20d$unit           (%6.2f%%)\n",
		$fpartition , $fsize,
		$estsize ? ($fsize * 1.0 / $estsize) * 100 : 0.0;
	printf "wait for dumping: %3d %20d$unit           (%6.2f%%)\n",
		$wpartition , $wsize,
		$estsize ? ($wsize * 1.0 / $estsize) * 100 : 0.0;
	if(defined($dtsize)) {
		printf "dumping to tape : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
			$dtpartition, $dtsize, $dtesize,
			$dtsize ? ($dtsize * 1.0 / $dtesize) * 100 : 0.0,
			$estsize ? ($dtesize * 1.0 / $estsize) * 100 : 0.0;
	} else {
		printf "dumping to tape : %3d %20d$unit           (%6.2f%%)\n",
			$dtpartition, $dtesize,
			$estsize ? ($dtesize * 1.0 / $estsize) * 100 : 0.0;
	}
	printf "dumping         : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$dupartition, $dusize, $duesize,
		$duesize ? ($dusize * 1.0 / $duesize) * 100 : 0.0,
		$estsize ? ($dusize * 1.0 / $estsize) * 100 : 0.0;
	printf "dumped          : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$dpartition , $dsize , $desize,
		$desize ? ($dsize * 1.0 / $desize) * 100 : 0.0,
		$estsize ? ($dsize * 1.0 / $estsize) * 100 : 0.0;
	printf "wait for writing: %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$twpartition, $twsize, $twesize,
		$twesize ? ($twsize * 1.0 / $twesize) * 100 : 0.0,
		$estsize ? ($twsize * 1.0 / $estsize) * 100 : 0.0;
	printf "wait to flush   : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$wfpartition, $wfsize, $wfsize, 100, 0;
	printf "writing to tape : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$tapartition, $tasize, $taesize,
		$taesize ? ($tasize * 1.0 / $taesize) * 100 : 0.0,
		$estsize ? ($tasize * 1.0 / $estsize) * 100 : 0.0;
	printf "failed to tape  : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$tfpartition, $tfsize, $tfesize,
		$tfesize ? ($tfsize * 1.0 / $tfesize) * 100 : 0.0,
		$estsize ? ($tfsize * 1.0 / $estsize) * 100 : 0.0;
	printf "taped           : %3d %9d$unit %9d$unit (%6.2f%%) (%6.2f%%)\n",
		$tpartition , $tsize , $tesize,
		$tesize ? ($tsize * 1.0 / $tesize) * 100 : 0.0,
		($estsize+$flsize) ? ($tsize * 1.0 / ($estsize + $flsize)) * 100 : 0.0;
	if($nb_tape > 1 || $tape_size != 0) {
		for($i=1; $i <= $nb_tape; $i++) {
			if($tape_size != 0) {
				printf "  tape %-3d      : %3d %9d$unit %9d$unit (%6.2f%%) %s",
					$i, $ntpartition{$i}, $ntsize{$i}, $ntesize{$i}, 100*$ntsize{$i}/$tape_size, $ntlabel{$i};
			}
			else {
				printf "  tape %-3d      : %3d %9d$unit %9d$unit %s",
					$i, $ntpartition{$i}, $ntsize{$i}, $ntesize{$i}, $ntlabel{$i};
			}
			if(defined($ntchunk{$i}) && $ntchunk{$i} > 0) {
				printf " (%d chunks)", $ntchunk{$i};
			}
			print "\n";
		}
	}
	if($idle_dumpers == 0) {
		printf "all dumpers active\n";
	}
	else {
		$c1 = ($idle_dumpers == 1) ? "" : "s";
		$c2 = ($idle_dumpers < 10) ? " " : "";
		$c3 = ($idle_dumpers == 1) ? " " : "";
		printf "%d dumper%s idle%s %s: %s\n", $idle_dumpers, $c1, $c2, $c3, $status_driver;
	}

printf "taper status: $status_taper\n";
	if (defined $qlen{"tapeq"}) {
		printf "taper qlen: %d\n", $qlen{"tapeq"};
	}
	if (defined ($free{"kps"})) {
		printf "network free kps: %9d\n", $free{"kps"};
	}
	if (defined ($free{"space"})) {
		if ($holding_space) {
			$hs = ($free{"space"} * 1.0 / $holding_space) * 100;
		} else {
			$hs = 0.0;
		}
		printf "holding space   : %9d$unit (%6.2f%%)\n", ($free{"space"}/$unitdivisor), $hs;
	}
}

if(defined $opt_stats) {
	if(defined($current_time) && $current_time != $start_time) {
		$total_time=$current_time-$start_time;
		foreach $key (sort byprocess keys %busy_time) {
			printf "%8s busy   : %8s  (%6.2f%%)\n",
				$key, &busytime($busy_time{$key}),
				($busy_time{$key} * 1.0 / $total_time) * 100;
		}
		for ($d = 0; $d <= $#dumpers_active; $d++) {
			$l = sprintf "%2d dumper%s busy%s : %8s  (%6.2f%%)",
				$d, ($d == 1) ? "" : "s", ($d == 1) ? " " : "",
				&busytime($dumpers_active[$d]),
				($dumpers_active[$d] * 1.0 / $total_time) * 100;
			print $l;
			$s1 = "";
			$s2 = " " x length($l);
			$r = $dumpers_held[$d];
			foreach $key (sort valuesort keys %$r) {
				next
				  unless $dumpers_held[$d]{$key} >= 1;
				printf "%s%20s: %8s  (%6.2f%%)\n",
					$s1,
					$key,
					&busytime($dumpers_held[$d]{$key}),
					($dumpers_held[$d]{$key} * 1.0 / $dumpers_active[$d]) * 100;
				$s1 = $s2;
			}
			if ($s1 eq "") {
				print "\n";
			}
		}
	}
}

exit $exit_status;

sub make_hostpart() {
	local($host,$partition,$datestamp) = @_;

if(! defined($hosts{$host})) {
		push @hosts, $host;
		$hosts{$host}=1;
	}
	my($new_part) = 1;
	foreach $pp (sort @$host) {
		$new_part = 0 if ($pp eq $partition);
	}
	push @$host, $partition if $new_part==1;

my($hostpart) = "$host$partition$datestamp";
	if(!defined $datestamp{$datestamp}) {
		$datestamp{$datestamp} = 1;
		push @datestamp, $datestamp;
	}

return $hostpart;
}

sub byprocess() {
	my(@tmp_a) = split(/(\d*)$/, $a, 2);
	my(@tmp_b) = split(/(\d*)$/, $b, 2);
	return ($tmp_a[0] cmp $tmp_b[0]) || ($tmp_a[1] <=> $tmp_b[1]);
}                               
 
sub valuesort() {
	$r->{$b} <=> $r->{$a};
}

sub dump_size() {
	local($filename) = @_;
	local($size);
	local($dsize) = 0;
	local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
		   $atime,$mtime,$ctime,$blksize,$blocks);
	while ($filename ne "") {
		$filename = "$filename.tmp" if (!(-e "$filename"));
		$filename = "/dev/null" if (!(-e "$filename"));
		($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
				$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
		$size=$size-32768 if $size > 32768;
		$dsize += $size;
		open(DUMP,$filename);
		$filename = "";
		while(<DUMP>) {
			if(/^CONT_FILENAME=(.*)$/) { $filename = $1; last }
			last if /^To restore, position tape at start of file and run/;
		}
		close(DUMP);
	}
	return $dsize;
}

sub unctime() {
	my (@MoY);
	my (@tl);
	my ($a);
	my ($m);
	my ($month);
	my ($time);

@MoY = ('Jan','Feb','Mar','Apr','May','Jun',
		'Jul','Aug','Sep','Oct','Nov','Dec');

# Preset an array of values in case some parts are not passed as
	# arguments.  This lets the date, etc, be omitted and default to
	# today.

@tl = localtime;

foreach $a (@_) {
		next
		  if ($a eq '');

# See if this argument looks like a month name.

$month = 0;
		foreach $m (@MoY) {
			last
			  if ($m eq $a);
			$month = $month + 1;
		}
		if ($month < 12) {
			$tl[4] = $month;
			next;
		}

# See if this is a day of the month.

if ($a =~ /^\d+$/ && $a >= 1 && $a <= 32) {
			$tl[3] = $a;
			next;
		}

# See if the next argument looks like a time.

if ($a =~ /^(\d+):(\d+)/) {
			$tl[2] = $1;
			$tl[1] = $2;
			if ($a =~ /^(\d+):(\d+):(\d+)/) {
				$tl[0] = $3;
			}
			next;
		}

# See if this is a year.

if ($a =~ /^\d\d\d\d$/ && $a >= 1900) {
			$tl[5] = $a;
			next;
		}
	}

$time = &timelocal (@tl);

return $time;
}

sub set_starttime() {
	my (@tl);
	my ($time);
	my ($date);

# Preset an array of values in case some parts are not passed as
	# arguments.  This lets the date, etc, be omitted and default to
	# today.

($date)=@_;
	@tl = localtime;

$tl[5] = substr($date,  0, 4)   if(length($date) >= 4);
	$tl[4] = substr($date,  4, 2)-1 if(length($date) >= 6);
	$tl[3] = substr($date,  6, 2)   if(length($date) >= 8);
	$tl[2] = substr($date,  8, 2)   if(length($date) >= 10);
	$tl[1] = substr($date, 10, 2)   if(length($date) >= 12);
	$tl[0] = substr($date, 12, 2)   if(length($date) >= 14);

$time = &timelocal (@tl);

return $time;
}

sub showtime() {
	my($delta) = shift;
	my($oneday) = 24*60*60;

my @starttime = localtime($starttime);
	my @now = localtime($starttime+$delta);
	$now_yday = $now[7];

# leap year
	if ($starttime[5] < $now[5]) {
		my $days_in_year = 364;
		my $startime1 = $starttime;
		while ($startime1 < $starttime+$delta) {
			my @starttime1 = localtime($starttime);
			if ($starttime1[7] > $days_in_year) {
				$days_in_year = $starttime1[7];
			}
			$startime1 += $oneday;
		}
		$now_yday += $days_in_year+1;
	}

if ($starttime[7] < $now_yday) {
		$result=sprintf("%d+", $now_yday - $starttime[7]);
	} else {
		$result="";
	}
	$result.=sprintf("%d:%02d:%02d",$now[2],$now[1],$now[0]);
	return $result;
}

sub busytime() {
	my($busy)=shift;
	my($oneday)=24*60*60;

if($busy > $oneday) {
		$days=int($busy/$oneday);
		$result=sprintf("%d+",$busy/$oneday);
		$busy-=$days*$oneday;
	} else {
		$result="";
	}
	$hours=int($busy/60/60);
	$busy-=$hours*60*60;
	$minutes=int($busy/60);
	$busy-=$minutes*60;
	$seconds=$busy;
	$result.=sprintf("%d:%02d:%02d",$hours,$minutes,$seconds);
	return $result;
}

${this.title}

Code Editor : amstatus