File Manager

X7ROOT File Manager

Current Path: /usr/sbin

📁 ..
📄 ModemManager(1.19 MB)
📄 NetworkManager(2.83 MB)
📄 abrt-auto-reporting(10.98 KB)
📄 abrt-configuration(31.66 KB)
📄 abrt-dbus(31.22 KB)
📄 abrt-harvest-pstoreoops(1.32 KB)
📄 abrt-harvest-vmcore(8.19 KB)
📄 abrt-install-ccpp-hook(2.85 KB)
📄 abrt-server(31.11 KB)
📄 abrtd(31.22 KB)
📄 accept(10.95 KB)
📄 accessdb(11.55 KB)
📄 accton(11.19 KB)
📄 activate-devpay(15.04 KB)
📄 addgnupghome(3.05 KB)
📄 addpart(19.69 KB)
📄 adduser(134.39 KB)
📄 agetty(48.48 KB)
📄 alsa-info(28.09 KB)
📄 alsa-info.sh(28.09 KB)
📄 alsabat-test.sh(4.04 KB)
📄 alsactl(99.15 KB)
📄 alternatives(27.61 KB)
📄 amaddclient(15.02 KB)
📄 amadmin(55.69 KB)
📄 amaespipe(3.29 KB)
📄 amandad(35.36 KB)
📄 amarchiver(15.3 KB)
📄 amcheck(63.25 KB)
📄 amcheckdb(1.79 KB)
📄 amcheckdump(14.25 KB)
📄 amcleanup(6.21 KB)
📄 amcleanupdisk(4.16 KB)
📄 amcrypt(1.02 KB)
📄 amcrypt-ossl(3.12 KB)
📄 amcrypt-ossl-asym(6.8 KB)
📄 amcryptsimple(4.55 KB)
📄 amdevcheck(4.51 KB)
📄 amdump(10.46 KB)
📄 amfetchdump(26.87 KB)
📄 amflush(27.13 KB)
📄 amgetconf(12.24 KB)
📄 amgpgcrypt(2.68 KB)
📄 amlabel(11.22 KB)
📄 amoverview(6.42 KB)
📄 amplot(5.94 KB)
📄 amreport(17.65 KB)
📄 amrestore(12.7 KB)
📄 amrmtape(8.91 KB)
📄 amserverconfig(20.99 KB)
📄 amservice(19.16 KB)
📄 amstatus(49.23 KB)
📄 amtape(19.47 KB)
📄 amtapetype(22.56 KB)
📄 amtoc(7.54 KB)
📄 amvault(29.59 KB)
📄 anaconda(54.99 KB)
📄 anacron(35.52 KB)
📄 apachectl(4.19 KB)
📄 applygnupgdefaults(2.21 KB)
📄 arp(63.98 KB)
📄 arpd(52.98 KB)
📄 arping(23.19 KB)
📄 atd(27.17 KB)
📄 atrun(67 B)
📄 attrd_updater(16.52 KB)
📄 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)
📄 avahi-daemon(133.04 KB)
📄 avcstat(11.25 KB)
📄 badblocks(27.69 KB)
📄 biosdecode(24.15 KB)
📄 biosdevname(36.57 KB)
📄 blkdeactivate(15.97 KB)
📄 blkdiscard(23.84 KB)
📄 blkid(77.92 KB)
📄 blkmapd(43.81 KB)
📄 blockdev(32.2 KB)
📄 brctl(32.13 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)
📄 cache_check(1.23 MB)
📄 cache_dump(1.23 MB)
📄 cache_metadata_size(1.23 MB)
📄 cache_repair(1.23 MB)
📄 cache_restore(1.23 MB)
📄 cache_writeback(1.23 MB)
📄 capsh(19.43 KB)
📄 cbq(32.73 KB)
📄 cfdisk(71.37 KB)
📄 cgdisk(176.87 KB)
📄 chat(27.3 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)
📄 cibadmin(27.2 KB)
📄 cifs.idmap(15.07 KB)
📄 cifs.upcall(31.23 KB)
📄 clamd(208.18 KB)
📄 clamonacc(200.67 KB)
📄 clock(48.44 KB)
📄 clockdiff(19.04 KB)
📄 consoletype(6.95 KB)
📄 convertquota(70.88 KB)
📄 corosync(284.76 KB)
📄 corosync-cfgtool(14.97 KB)
📄 corosync-cmapctl(23.31 KB)
📄 corosync-cpgtool(11 KB)
📄 corosync-keygen(11.12 KB)
📄 corosync-notifyd(33.63 KB)
📄 corosync-quorumtool(23.16 KB)
📄 cracklib-check(7.04 KB)
📄 cracklib-format(246 B)
📄 cracklib-packer(11.06 KB)
📄 cracklib-unpacker(7.02 KB)
📄 crda(11.34 KB)
📄 create-cracklib-dict(990 B)
📄 crm_attribute(21.51 KB)
📄 crm_diff(16.73 KB)
📄 crm_error(11.48 KB)
📄 crm_failcount(6.56 KB)
📄 crm_master(2.37 KB)
📄 crm_mon(84.05 KB)
📄 crm_node(24.93 KB)
📄 crm_report(15.9 KB)
📄 crm_resource(112.09 KB)
📄 crm_shadow(21.02 KB)
📄 crm_simulate(50.68 KB)
📄 crm_standby(3.33 KB)
📄 crm_ticket(31.15 KB)
📄 crm_verify(16.38 KB)
📄 crmadmin(21.1 KB)
📄 crond(68.48 KB)
📄 cryptsetup(85.41 KB)
📄 ctrlaltdel(11.2 KB)
📄 ctstat(20.09 KB)
📄 cups-browsed(136.9 KB)
📄 cups-genppd.5.2(56.05 KB)
📄 cups-genppdupdate(34.2 KB)
📄 cupsaccept(10.95 KB)
📄 cupsaddsmb(10.98 KB)
📄 cupsctl(14.97 KB)
📄 cupsd(427.17 KB)
📄 cupsdisable(10.95 KB)
📄 cupsenable(10.95 KB)
📄 cupsfilter(27.37 KB)
📄 cupsreject(10.95 KB)
📄 dcbtool(60.03 KB)
📄 ddns-confgen(19.44 KB)
📄 debugfs(120.65 KB)
📄 delpart(19.69 KB)
📄 depmod(143.24 KB)
📄 devlink(64.72 KB)
📄 dhclient(414.34 KB)
📄 dhclient-script(30.38 KB)
📄 dm_dso_reg_tool(11.29 KB)
📄 dmevent_tool(11.29 KB)
📄 dmeventd(39.56 KB)
📄 dmfilemapd(19.16 KB)
📄 dmidecode(120.2 KB)
📄 dmraid(22.1 KB)
📄 dmraid.static(22.1 KB)
📄 dmsetup(149.2 KB)
📄 dmstats(149.2 KB)
📄 dnsmasq(340.79 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.47 KB)
📄 dosfsck(56.24 KB)
📄 dosfslabel(52.23 KB)
📄 dovecot(88.1 KB)
📄 dracut(55.83 KB)
📄 dump-acct(19.63 KB)
📄 dump-utmp(15.47 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)
📄 ebtables(6.85 KB)
📄 ebtables-restore(10.88 KB)
📄 ebtables-save(851 B)
📄 editmap.sendmail(95.55 KB)
📄 edquota(83.09 KB)
📄 era_check(1.23 MB)
📄 era_dump(1.23 MB)
📄 era_invalidate(1.23 MB)
📄 era_restore(1.23 MB)
📄 ether-wake(73.26 KB)
📄 ethtool(293.87 KB)
📄 eventlogadm(39.17 KB)
📄 exportfs(76.91 KB)
📄 faillock(15.02 KB)
📄 fancontrol(14.01 KB)
📄 fatlabel(52.23 KB)
📄 fcgistarter(11 KB)
📄 fcgiwrap(19.8 KB)
📄 fcnsq(15.13 KB)
📄 fcoeadm(48.52 KB)
📄 fcoemon(69.21 KB)
📄 fcping(31.52 KB)
📄 fcrls(19.16 KB)
📄 fdformat(11.27 KB)
📄 fdisk(195.8 KB)
📄 fence_amt_ws(8.77 KB)
📄 fence_apc(7.49 KB)
📄 fence_apc_snmp(6.28 KB)
📄 fence_bladecenter(3.09 KB)
📄 fence_brocade(2.45 KB)
📄 fence_cisco_mds(2.62 KB)
📄 fence_cisco_ucs(5.53 KB)
📄 fence_compute(16.43 KB)
📄 fence_drac5(5 KB)
📄 fence_eaton_snmp(6.66 KB)
📄 fence_emerson(1.85 KB)
📄 fence_eps(3.52 KB)
📄 fence_evacuate(13 KB)
📄 fence_heuristics_ping(5.78 KB)
📄 fence_hpblade(3.66 KB)
📄 fence_ibmblade(1.96 KB)
📄 fence_idrac(6.5 KB)
📄 fence_ifmib(3.18 KB)
📄 fence_ilo(4.42 KB)
📄 fence_ilo2(4.42 KB)
📄 fence_ilo3(6.5 KB)
📄 fence_ilo3_ssh(2.03 KB)
📄 fence_ilo4(6.5 KB)
📄 fence_ilo4_ssh(2.03 KB)
📄 fence_ilo5(6.5 KB)
📄 fence_ilo5_ssh(2.03 KB)
📄 fence_ilo_moonshot(1.56 KB)
📄 fence_ilo_mp(1.29 KB)
📄 fence_ilo_ssh(2.03 KB)
📄 fence_imm(6.5 KB)
📄 fence_intelmodular(2.43 KB)
📄 fence_ipdu(3.86 KB)
📄 fence_ipmilan(6.5 KB)
📄 fence_kdump(23.4 KB)
📄 fence_mpath(9.98 KB)
📄 fence_redfish(5.34 KB)
📄 fence_rhevm(6.4 KB)
📄 fence_rsa(1.76 KB)
📄 fence_rsb(2.22 KB)
📄 fence_sbd(11.11 KB)
📄 fence_scsi(15.95 KB)
📄 fence_virt(57.66 KB)
📄 fence_vmware_rest(5.61 KB)
📄 fence_vmware_soap(8.44 KB)
📄 fence_wti(7.53 KB)
📄 fence_xvm(57.66 KB)
📄 filefrag(15.23 KB)
📄 findfs(11.2 KB)
📄 fipvlan(40.16 KB)
📄 firewalld(6.87 KB)
📄 firstboot(6.45 KB)
📄 fixfiles(11.03 KB)
📄 fixparts(61.65 KB)
📄 fsadm(23.97 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.fat(56.24 KB)
📄 fsck.minix(73.32 KB)
📄 fsck.msdos(56.24 KB)
📄 fsck.vfat(56.24 KB)
📄 fsck.xfs(433 B)
📄 fsfreeze(11.23 KB)
📄 fstrim(40.59 KB)
📄 ftpscrub(16.47 KB)
📄 ftpshut(10.98 KB)
📄 fuser(32.34 KB)
📄 fxload(19.26 KB)
📄 gdisk(184.49 KB)
📄 gdm(430.45 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.i686(700.2 KB)
📄 glibc_post_upgrade.x86_64(772.05 KB)
📄 gluster(465.84 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.03 MB)
📄 grub2-get-kernel-settings(2.08 KB)
📄 grub2-install(1.28 MB)
📄 grub2-macbless(1.01 MB)
📄 grub2-mkconfig(7.63 KB)
📄 grub2-ofpathname(225.54 KB)
📄 grub2-probe(1.03 MB)
📄 grub2-reboot(4 KB)
📄 grub2-rpm-sort(258.52 KB)
📄 grub2-set-default(3.46 KB)
📄 grub2-setpassword(2.96 KB)
📄 grub2-sparc64-setup(1.03 MB)
📄 grubby(71.27 KB)
📄 gssproxy(130.64 KB)
📄 halt(704.8 KB)
📄 handle-sshpw(2.35 KB)
📄 hardlink(15.29 KB)
📄 htcacheclean(31.16 KB)
📄 httpd(511.44 KB)
📄 hwclock(48.44 KB)
📄 hwloc-dump-hwdata(15.32 KB)
📄 hypervfcopyd(11.18 KB)
📄 hypervkvpd(27.38 KB)
📄 hypervvssd(15.23 KB)
📄 iconvconfig(22.15 KB)
📄 iconvconfig.i686(21.44 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)
📄 in.proftpd(988.23 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)
📄 ipmievd(488.98 KB)
📄 iprconfig(394.37 KB)
📄 iprdbg(135.94 KB)
📄 iprdump(123.67 KB)
📄 iprinit(123.64 KB)
📄 iprsos(2.18 KB)
📄 iprupdate(123.64 KB)
📄 ipsec(14.96 KB)
📄 ipset(7.02 KB)
📄 iptables(91.52 KB)
📄 iptables-restore(91.52 KB)
📄 iptables-save(91.52 KB)
📄 iptunnel(23.33 KB)
📄 irqbalance(48.5 KB)
📄 isadump(15.02 KB)
📄 isaset(10.98 KB)
📄 isc-hmac-fixup(11.2 KB)
📄 iscsi-iname(11.01 KB)
📄 iscsiadm(794.39 KB)
📄 iscsid(819.81 KB)
📄 iscsistart(361.05 KB)
📄 iscsiuio(182.09 KB)
📄 iso8601(16.04 KB)
📄 iw(157.97 KB)
📄 jk_check(11.2 KB)
📄 jk_chrootlaunch(20.77 KB)
📄 jk_chrootsh(32.73 KB)
📄 jk_cp(4.12 KB)
📄 jk_init(9.68 KB)
📄 jk_jailuser(11.81 KB)
📄 jk_list(4.93 KB)
📄 jk_lsh(24.66 KB)
📄 jk_socketd(29.05 KB)
📄 jk_update(9.11 KB)
📄 kexec(166.06 KB)
📄 key.dns_resolver(19.45 KB)
📄 killall5(23.17 KB)
📄 kpartx(39.47 KB)
📄 kpatch(14.53 KB)
📄 ksmtuned(3.36 KB)
📄 lchage(15.41 KB)
📄 ldattach(27.93 KB)
📄 ldconfig(952.08 KB)
📄 ledctl(61.97 KB)
📄 ledmon(62.15 KB)
📄 lgroupadd(11.28 KB)
📄 lgroupdel(11.26 KB)
📄 lgroupmod(15.44 KB)
📄 libvirtd(506.11 KB)
📄 lid(15.4 KB)
📄 liveinst(5.83 KB)
📄 lldpad(402.72 KB)
📄 lldptool(96.02 KB)
📄 lnewusers(15.46 KB)
📄 lnstat(20.09 KB)
📄 load_policy(10.97 KB)
📄 loaderinfo(40.91 KB)
📄 lockdev(10.95 KB)
📄 logrotate(68.61 KB)
📄 logsave(11.27 KB)
📄 losetup(82.45 KB)
📄 lpadmin(27.09 KB)
📄 lpasswd(15.5 KB)
📄 lpc(15.07 KB)
📄 lpc.cups(15.07 KB)
📄 lpinfo(14.96 KB)
📄 lpmove(10.98 KB)
📄 lsmod(143.24 KB)
📄 lsof(150.57 KB)
📄 lspci(73.67 KB)
📄 luseradd(15.38 KB)
📄 luserdel(11.3 KB)
📄 lusermod(19.43 KB)
📄 lvchange(2.15 MB)
📄 lvconvert(2.15 MB)
📄 lvcreate(2.15 MB)
📄 lvdisplay(2.15 MB)
📄 lvextend(2.15 MB)
📄 lvm(2.15 MB)
📄 lvmconf(12.55 KB)
📄 lvmconfig(2.15 MB)
📄 lvmdiskscan(2.15 MB)
📄 lvmdump(10.07 KB)
📄 lvmetad(71.66 KB)
📄 lvmpolld(64.07 KB)
📄 lvmsadc(2.15 MB)
📄 lvmsar(2.15 MB)
📄 lvreduce(2.15 MB)
📄 lvremove(2.15 MB)
📄 lvrename(2.15 MB)
📄 lvresize(2.15 MB)
📄 lvs(2.15 MB)
📄 lvscan(2.15 MB)
📄 lwresd(768.03 KB)
📄 mailstats(79.11 KB)
📄 makedumpfile(376.52 KB)
📄 makemap.sendmail(95.63 KB)
📄 matchpathcon(11.19 KB)
📄 mcelog(152.67 KB)
📄 mdadm(593.45 KB)
📄 mdmon(331.55 KB)
📄 mii-diag(20.08 KB)
📄 mii-tool(19.51 KB)
📄 milter-greylist(253.3 KB)
📄 mkdict(246 B)
📄 mkdosfs(28.05 KB)
📄 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.fat(28.05 KB)
📄 mkfs.minix(36.27 KB)
📄 mkfs.msdos(28.05 KB)
📄 mkfs.vfat(28.05 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)
📄 mount.cifs(40.05 KB)
📄 mount.fuse(11.1 KB)
📄 mount.nfs(114.68 KB)
📄 mount.nfs4(114.68 KB)
📄 mountstats(40.59 KB)
📄 mpathconf(10.6 KB)
📄 mpathpersist(27.91 KB)
📄 mtr(83.18 KB)
📄 mtx(49.87 KB)
📄 multipath(22.99 KB)
📄 multipathd(84.37 KB)
📄 named(768.03 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)
📄 netscsid(19.55 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)
📄 nmbd(249.07 KB)
📄 nologin(7.01 KB)
📄 nsec3hash(11.13 KB)
📄 nstat(23.88 KB)
📄 ntpdate(107.58 KB)
📄 ntsysv(36.24 KB)
📄 ocft(22.04 KB)
📄 oddjobd(72.11 KB)
📄 opendkim(158.3 KB)
📄 opendkim-default-keygen(1.4 KB)
📄 opendkim-genkey(6.29 KB)
📄 opendkim-genzone(66.68 KB)
📄 opendkim-reportstats(14.16 KB)
📄 opendkim-testkey(70.98 KB)
📄 opendkim-testmsg(15.27 KB)
📄 osd_login(2.55 KB)
📄 ownership(15.04 KB)
📄 pacemakerd(59.74 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)
📄 pcs(292 B)
📄 pdata_tools(1.23 MB)
📄 pethtool(8.94 KB)
📄 php-fpm(5.03 MB)
📄 pidof(23.17 KB)
📄 pifconfig(3.03 KB)
📄 ping6(64.63 KB)
📄 pivot_root(11.19 KB)
📄 plipconfig(11.06 KB)
📄 pluginviewer(15.23 KB)
📄 plymouth-set-default-theme(6.21 KB)
📄 plymouthd(84.22 KB)
📄 pm-hibernate(2.86 KB)
📄 pm-powersave(2.09 KB)
📄 pm-suspend(2.86 KB)
📄 pm-suspend-hybrid(2.86 KB)
📄 pm-utils-bugreport-info.sh(1.47 KB)
📄 portrelease(15.02 KB)
📄 portreserve(15.02 KB)
📄 postalias(253.87 KB)
📄 postcat(136.08 KB)
📄 postconf(363.19 KB)
📄 postdrop(213.44 KB)
📄 postfix(119.17 KB)
📄 postgrey(37.94 KB)
📄 postgreyreport(23.8 KB)
📄 postkick(131.43 KB)
📄 postlock(127.38 KB)
📄 postlog(119.38 KB)
📄 postmap(257.69 KB)
📄 postmulti(135.89 KB)
📄 postqueue(257.94 KB)
📄 postsuper(139.95 KB)
📄 poweroff(704.8 KB)
📄 ppp-watch(23.2 KB)
📄 pppd(372.98 KB)
📄 pppdump(52.77 KB)
📄 pppoe-discovery(18.04 KB)
📄 pppstats(14.99 KB)
📄 praliases(95.64 KB)
📄 proftpd(988.23 KB)
📄 pvchange(2.15 MB)
📄 pvck(2.15 MB)
📄 pvcreate(2.15 MB)
📄 pvdisplay(2.15 MB)
📄 pvmove(2.15 MB)
📄 pvremove(2.15 MB)
📄 pvresize(2.15 MB)
📄 pvs(2.15 MB)
📄 pvscan(2.15 MB)
📄 pwck(51.71 KB)
📄 pwconv(47.57 KB)
📄 pwhistory_helper(15.44 KB)
📄 pwmconfig(22.92 KB)
📄 pwunconv(47.59 KB)
📄 qb-blackbox(7.02 KB)
📄 quot(70.66 KB)
📄 quotacheck(107.29 KB)
📄 quotaoff(75.03 KB)
📄 quotaon(75.03 KB)
📄 quotastats(14.03 KB)
📄 radvd(101.59 KB)
📄 radvdump(23.64 KB)
📄 raid-check(3.7 KB)
📄 ras-mc-ctl(38.48 KB)
📄 rasdaemon(185.11 KB)
📄 rdisc(23.17 KB)
📄 rdma(73.42 KB)
📄 rdma-ndd(15.36 KB)
📄 readprofile(15.46 KB)
📄 realm(138.77 KB)
📄 reboot(704.8 KB)
📄 regdbdump(7.12 KB)
📄 reject(10.95 KB)
📄 repquota(75.16 KB)
📄 request-key(19.41 KB)
📄 resize2fs(48.41 KB)
📄 resizepart(32.36 KB)
📄 restorecon(27.16 KB)
📄 rfkill(11.29 KB)
📄 rmmod(143.24 KB)
📄 rndc(35.88 KB)
📄 rndc-confgen(19.44 KB)
📄 rngd(42.39 KB)
📄 rotatelogs(19.04 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)
📄 rtkitctl(10.88 KB)
📄 rtmon(48.67 KB)
📄 rtpr(37 B)
📄 rtstat(20.09 KB)
📄 runlevel(704.8 KB)
📄 runuser(32.21 KB)
📄 sa(36.77 KB)
📄 safe_finger(11.08 KB)
📄 saned(47.41 KB)
📄 sasl2-shared-mechlist(10.98 KB)
📄 saslauthd(92.59 KB)
📄 sasldblistusers2(19.26 KB)
📄 saslpasswd2(15.09 KB)
📄 scsieject(41.07 KB)
📄 scsitape(45.38 KB)
📄 sedispatch(15.56 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(242.11 KB)
📄 sendmail.postfix(242.11 KB)
📄 sendmail.sendmail(817.3 KB)
📄 sensors-detect(207.11 KB)
📄 service(3.17 KB)
📄 sestatus(15.02 KB)
📄 setcap(11.13 KB)
📄 setenforce(7.05 KB)
📄 setfiles(27.16 KB)
📄 setpci(23.4 KB)
📄 setquota(83.16 KB)
📄 setregdomain(1.7 KB)
📄 setroubleshootd(3.22 KB)
📄 setsebool(14.99 KB)
📄 setup(15.38 KB)
📄 sfdisk(83.25 KB)
📄 sgdisk(168.33 KB)
📄 sgpio(15.63 KB)
📄 showmount(19.56 KB)
📄 shutdown(704.8 KB)
📄 skdump(15.2 KB)
📄 sktest(6.98 KB)
📄 slattach(42.4 KB)
📄 sln(743.78 KB)
📄 sm-notify(68.43 KB)
📄 smartctl(864.48 KB)
📄 smartd(670.63 KB)
📄 smbd(91.84 KB)
📄 smrsh(74.97 KB)
📄 smtp-sink(90.91 KB)
📄 smtp-source(77.79 KB)
📄 sosreport(561 B)
📄 spice-vdagentd(43.73 KB)
📄 ss(128.44 KB)
📄 sshd(832.9 KB)
📄 sshd-keygen(3.53 KB)
📄 start-statd(842 B)
📄 stinit(35.52 KB)
📄 stonith_admin(25.69 KB)
📄 suexec(15.01 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)
📄 tapeinfo(45 KB)
📄 tc(384.66 KB)
📄 tcpd(36.62 KB)
📄 tcpdmatch(40.83 KB)
📄 tcpdump(920.16 KB)
📄 tcpslice(23.64 KB)
📄 tcsd(300.27 KB)
📄 telinit(704.8 KB)
📄 testsaslauthd(15.09 KB)
📄 thin_check(1.23 MB)
📄 thin_delta(1.23 MB)
📄 thin_dump(1.23 MB)
📄 thin_ls(1.23 MB)
📄 thin_metadata_size(1.23 MB)
📄 thin_repair(1.23 MB)
📄 thin_restore(1.23 MB)
📄 thin_rmap(1.23 MB)
📄 thin_trim(1.23 MB)
📄 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)
📄 umount.udisks2(10.98 KB)
📄 unbound-anchor(55.62 KB)
📄 unix_chkpwd(35.42 KB)
📄 unix_update(35.42 KB)
📄 update-alternatives(27.61 KB)
📄 update-pciids(1.71 KB)
📄 update-smart-drivedb(14.34 KB)
📄 usb_modeswitch(57.61 KB)
📄 usb_modeswitch_dispatcher(236.66 KB)
📄 usbmuxd(69.72 KB)
📄 useradd(134.39 KB)
📄 userdel(93.5 KB)
📄 userhelper(39.38 KB)
📄 usermod(130.33 KB)
📄 usernetctl(11.03 KB)
📄 vdptool(48.96 KB)
📄 vgcfgbackup(2.15 MB)
📄 vgcfgrestore(2.15 MB)
📄 vgchange(2.15 MB)
📄 vgck(2.15 MB)
📄 vgconvert(2.15 MB)
📄 vgcreate(2.15 MB)
📄 vgdisplay(2.15 MB)
📄 vgexport(2.15 MB)
📄 vgextend(2.15 MB)
📄 vgimport(2.15 MB)
📄 vgimportclone(2.15 MB)
📄 vgmerge(2.15 MB)
📄 vgmknodes(2.15 MB)
📄 vgreduce(2.15 MB)
📄 vgremove(2.15 MB)
📄 vgrename(2.15 MB)
📄 vgs(2.15 MB)
📄 vgscan(2.15 MB)
📄 vgsplit(2.15 MB)
📄 vigr(62.54 KB)
📄 vipw(62.54 KB)
📄 virt-what(11.57 KB)
📄 virtlockd(723.38 KB)
📄 virtlogd(719.13 KB)
📄 virtualmin(1.3 KB)
📄 visudo(200.89 KB)
📄 vmcore-dmesg(19.28 KB)
📄 vpddecode(15.33 KB)
📄 weak-modules(31.9 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)
📄 xfsdump(291.69 KB)
📄 xfsinvutil(61.87 KB)
📄 xfsrestore(353.2 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: 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;
}

X7ROOT File Manager

Editing: amstatus

Upload File

Create Folder