Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
a2disconf	15.89 KB	-rwxr-xr-x
a2dismod	15.89 KB	-rwxr-xr-x
a2dissite	15.89 KB	-rwxr-xr-x
a2enconf	15.89 KB	-rwxr-xr-x
a2enmod	15.89 KB	-rwxr-xr-x
a2ensite	15.89 KB	-rwxr-xr-x
a2query	9.64 KB	-rwxr-xr-x
aa-remove-unknown	3 KB	-rwxr-xr-x
aa-status	62.62 KB	-rwxr-xr-x
aa-teardown	137 B	-rwxr-xr-x
accessdb	14.55 KB	-rwxr-xr-x
accton	14.41 KB	-rwxr-xr-x
add-shell	1.03 KB	-rwxr-xr-x
addgnupghome	3 KB	-rwxr-xr-x
addgroup	37.35 KB	-rwxr-xr-x
adduser	37.35 KB	-rwxr-xr-x
agetty	55.56 KB	-rwxr-xr-x
apache2	740.89 KB	-rwxr-xr-x
apache2ctl	7.06 KB	-rwxr-xr-x
apachectl	7.06 KB	-rwxr-xr-x
apparmor_parser	1.48 MB	-rwxr-xr-x
apparmor_status	62.62 KB	-rwxr-xr-x
applygnupgdefaults	2.17 KB	-rwxr-xr-x
arp	61.61 KB	-rwxr-xr-x
arpd	26.33 KB	-rwxr-xr-x
arping	42.2 KB	-rwxr-xr-x
arptables	219.04 KB	-rwxr-xr-x
arptables-nft	219.04 KB	-rwxr-xr-x
arptables-nft-restore	219.04 KB	-rwxr-xr-x
arptables-nft-save	219.04 KB	-rwxr-xr-x
arptables-restore	219.04 KB	-rwxr-xr-x
arptables-save	219.04 KB	-rwxr-xr-x
aspell-autobuildhash	13.4 KB	-rwxr-xr-x
atd	30.16 KB	-rwxr-xr-x
auth-otp	18.54 KB	-rwxr-xr-x
badblocks	34.32 KB	-rwxr-xr-x
bcache-super-show	14.3 KB	-rwxr-xr-x
biosdecode	23.2 KB	-rwxr-xr-x
blkdeactivate	15.97 KB	-rwxr-xr-x
blkdiscard	22.38 KB	-rwxr-xr-x
blkid	50.41 KB	-rwxr-xr-x
blkmapd	38.3 KB	-rwxr-xr-x
blkzone	34.38 KB	-rwxr-xr-x
blockdev	30.38 KB	-rwxr-xr-x
bridge	92.49 KB	-rwxr-xr-x
cache_check	1.33 MB	-rwxr-xr-x
cache_dump	1.33 MB	-rwxr-xr-x
cache_metadata_size	1.33 MB	-rwxr-xr-x
cache_repair	1.33 MB	-rwxr-xr-x
cache_restore	1.33 MB	-rwxr-xr-x
cache_writeback	1.33 MB	-rwxr-xr-x
cachefilesd	34.29 KB	-rwxr-xr-x
capsh	30.3 KB	-rwxr-xr-x
cfdisk	94.73 KB	-rwxr-xr-x
cgclear	14.3 KB	-rwxr-xr-x
cgconfigparser	14.6 KB	-rwxr-xr-x
cgdisk	150.48 KB	-rwxr-xr-x
cgrulesengd	30.67 KB	-rwxr-xr-x
chcpu	30.38 KB	-rwxr-xr-x
check_forensic	952 B	-rwxr-xr-x
chgpasswd	58.13 KB	-rwxr-xr-x
chmem	34.38 KB	-rwxr-xr-x
chpasswd	54.16 KB	-rwxr-xr-x
chroot	38.51 KB	-rwxr-xr-x
courierlogger	22.63 KB	-rwxr-xr-x
cpgr	48.29 KB	-rwxr-xr-x
cppw	48.29 KB	-rwxr-xr-x
cron	50.58 KB	-rwxr-xr-x
cryptdisks_start	1.51 KB	-rwxr-xr-x
cryptdisks_stop	844 B	-rwxr-xr-x
cryptsetup	169.55 KB	-rwxr-xr-x
cryptsetup-reencrypt	90.38 KB	-rwxr-xr-x
cryptsetup-ssh	23.53 KB	-rwxr-xr-x
ctrlaltdel	14.38 KB	-rwxr-xr-x
dcb	80.52 KB	-rwxr-xr-x
debugfs	229.8 KB	-rwxr-xr-x
delgroup	16.11 KB	-rwxr-xr-x
deliverquota	38.23 KB	-rwxr-xr-x
deliverquota.maildrop	38.23 KB	-rwxr-xr-x
deluser	16.11 KB	-rwxr-xr-x
depmod	166.36 KB	-rwxr-xr-x
devlink	142.86 KB	-rwxr-xr-x
dhclient	442.66 KB	-rwxr-xr-x
dhclient-script	15.92 KB	-rwxr-xr-x
dkms	140.76 KB	-rwxr-xr-x
dmeventd	50.38 KB	-rwxr-xr-x
dmidecode	122.98 KB	-rwxr-xr-x
dmsetup	171.02 KB	-rwxr-xr-x
dmstats	171.02 KB	-rwxr-xr-x
dosfsck	82.38 KB	-rwxr-xr-x
dosfslabel	38.38 KB	-rwxr-xr-x
dpkg-preconfigure	3.58 KB	-rwxr-xr-x
dpkg-reconfigure	4.38 KB	-rwxr-xr-x
dump-acct	22.56 KB	-rwxr-xr-x
dump-utmp	14.47 KB	-rwxr-xr-x
dumpe2fs	30.31 KB	-rwxr-xr-x
e2freefrag	14.3 KB	-rwxr-xr-x
e2fsck	351.84 KB	-rwxr-xr-x
e2image	42.31 KB	-rwxr-xr-x
e2label	102.55 KB	-rwxr-xr-x
e2mmpstatus	30.31 KB	-rwxr-xr-x
e2scrub	7.13 KB	-rwxr-xr-x
e2scrub_all	5.27 KB	-rwxr-xr-x
e2undo	22.3 KB	-rwxr-xr-x
e4crypt	30.38 KB	-rwxr-xr-x
e4defrag	30.3 KB	-rwxr-xr-x
ebtables	219.04 KB	-rwxr-xr-x
ebtables-nft	219.04 KB	-rwxr-xr-x
ebtables-nft-restore	219.04 KB	-rwxr-xr-x
ebtables-nft-save	219.04 KB	-rwxr-xr-x
ebtables-restore	219.04 KB	-rwxr-xr-x
ebtables-save	219.04 KB	-rwxr-xr-x
era_check	1.33 MB	-rwxr-xr-x
era_dump	1.33 MB	-rwxr-xr-x
era_invalidate	1.33 MB	-rwxr-xr-x
era_restore	1.33 MB	-rwxr-xr-x
escapesrc	22.45 KB	-rwxr-xr-x
ethtool	551.48 KB	-rwxr-xr-x
faillock	14.15 KB	-rwxr-xr-x
fatlabel	38.38 KB	-rwxr-xr-x
fdisk	110.42 KB	-rwxr-xr-x
filefrag	18.32 KB	-rwxr-xr-x
findfs	14.38 KB	-rwxr-xr-x
fixparts	58.48 KB	-rwxr-xr-x
fsadm	23.94 KB	-rwxr-xr-x
fsck	42.42 KB	-rwxr-xr-x
fsck.btrfs	1.16 KB	-rwxr-xr-x
fsck.cramfs	30.44 KB	-rwxr-xr-x
fsck.ext2	351.84 KB	-rwxr-xr-x
fsck.ext3	351.84 KB	-rwxr-xr-x
fsck.ext4	351.84 KB	-rwxr-xr-x
fsck.fat	82.38 KB	-rwxr-xr-x
fsck.minix	54.41 KB	-rwxr-xr-x
fsck.msdos	82.38 KB	-rwxr-xr-x
fsck.vfat	82.38 KB	-rwxr-xr-x
fsck.xfs	1.89 KB	-rwxr-xr-x
fsfreeze	14.38 KB	-rwxr-xr-x
fstab-decode	18.3 KB	-rwxr-xr-x
fstrim	42.38 KB	-rwxr-xr-x
ftpasswd	37.11 KB	-rwxr-xr-x
ftpmail	13.63 KB	-rwxr-xr-x
ftpquota	32.2 KB	-rwxr-xr-x
ftpscrub	23.66 KB	-rwxr-xr-x
ftpshut	14.3 KB	-rwxr-xr-x
ftpstats	12.16 KB	-rwxr-xr-x
gdisk	174.48 KB	-rwxr-xr-x
genccode	14.73 KB	-rwxr-xr-x
gencmn	14.73 KB	-rwxr-xr-x
genl	90.44 KB	-rwxr-xr-x
gennorm2	62.9 KB	-rwxr-xr-x
gensprep	26.8 KB	-rwxr-xr-x
getcap	14.3 KB	-rwxr-xr-x
getpcaps	14.3 KB	-rwxr-xr-x
getty	55.56 KB	-rwxr-xr-x
gradm2	2.6 MB	-rwxr-xr-x
gradm_pam	14.15 KB	-rwxr-xr-x
grlearn	210.38 KB	-rwxr-xr-x
groupadd	66.91 KB	-rwxr-xr-x
groupdel	62.73 KB	-rwxr-xr-x
groupmems	54.19 KB	-rwxr-xr-x
groupmod	66.82 KB	-rwxr-xr-x
grpck	58.13 KB	-rwxr-xr-x
grpconv	50.01 KB	-rwxr-xr-x
grpunconv	50.01 KB	-rwxr-xr-x
grub-bios-setup	941.42 KB	-rwxr-xr-x
grub-install	1.15 MB	-rwxr-xr-x
grub-macbless	929.11 KB	-rwxr-xr-x
grub-mkconfig	8.6 KB	-rwxr-xr-x
grub-mkdevicemap	215.7 KB	-rwxr-xr-x
grub-probe	941.36 KB	-rwxr-xr-x
grub-reboot	4.73 KB	-rwxr-xr-x
grub-set-default	3.47 KB	-rwxr-xr-x
halt	1.06 MB	-rwxr-xr-x
hdparm	139.43 KB	-rwxr-xr-x
httxt2dbm	14.3 KB	-rwxr-xr-x
hwclock	50.5 KB	-rwxr-xr-x
icmpinfo	18.57 KB	-rwxr-xr-x
iconvconfig	30.4 KB	-rwxr-xr-x
icupkg	23.1 KB	-rwxr-xr-x
ifconfig	77.17 KB	-rwxr-xr-x
ifdown	93.55 KB	-rwxr-xr-x
ifenslave	3.44 KB	-rwxr-xr-x
ifenslave-2.6	3.44 KB	-rwxr-xr-x
ifquery	93.55 KB	-rwxr-xr-x
iftop	66.8 KB	-rwxr-xr-x
ifup	93.55 KB	-rwxr-xr-x
in.proftpd	1.17 MB	-rwxr-xr-x
init	1.76 MB	-rwxr-xr-x
insmod	166.36 KB	-rwxr-xr-x
install-sgmlcatalog	4.44 KB	-rwxr-xr-x
installkernel	2.6 KB	-rwxr-xr-x
integritysetup	54.07 KB	-rwxr-xr-x
invoke-rc.d	16.12 KB	-rwxr-xr-x
iotop	496 B	-rwxr-xr-x
iotop-py	496 B	-rwxr-xr-x
ip	702.05 KB	-rwxr-xr-x
ip6tables	219.04 KB	-rwxr-xr-x
ip6tables-apply	6.89 KB	-rwxr-xr-x
ip6tables-legacy	96.95 KB	-rwxr-xr-x
ip6tables-legacy-restore	96.95 KB	-rwxr-xr-x
ip6tables-legacy-save	96.95 KB	-rwxr-xr-x
ip6tables-nft	219.04 KB	-rwxr-xr-x
ip6tables-nft-restore	219.04 KB	-rwxr-xr-x
ip6tables-nft-save	219.04 KB	-rwxr-xr-x
ip6tables-restore	219.04 KB	-rwxr-xr-x
ip6tables-restore-translate	219.04 KB	-rwxr-xr-x
ip6tables-save	219.04 KB	-rwxr-xr-x
ip6tables-translate	219.04 KB	-rwxr-xr-x
ipmaddr	18.3 KB	-rwxr-xr-x
ipmievd	207.3 KB	-rwxr-xr-x
ipset	14.15 KB	-rwxr-xr-x
ipset-translate	14.15 KB	-rwxr-xr-x
iptables	219.04 KB	-rwxr-xr-x
iptables-apply	6.89 KB	-rwxr-xr-x
iptables-legacy	96.95 KB	-rwxr-xr-x
iptables-legacy-restore	96.95 KB	-rwxr-xr-x
iptables-legacy-save	96.95 KB	-rwxr-xr-x
iptables-nft	219.04 KB	-rwxr-xr-x
iptables-nft-restore	219.04 KB	-rwxr-xr-x
iptables-nft-save	219.04 KB	-rwxr-xr-x
iptables-restore	219.04 KB	-rwxr-xr-x
iptables-restore-translate	219.04 KB	-rwxr-xr-x
iptables-save	219.04 KB	-rwxr-xr-x
iptables-translate	219.04 KB	-rwxr-xr-x
iptraf	191 KB	-rwxr-xr-x
iptraf-ng	191 KB	-rwxr-xr-x
iptunnel	18.3 KB	-rwxr-xr-x
ircflush	14.3 KB	-rwxr-xr-x
ircio	14.3 KB	-rwxr-xr-x
irqbalance	66.86 KB	-rwxr-xr-x
irqbalance-ui	34.38 KB	-rwxr-xr-x
iscsi-iname	14.3 KB	-rwxr-xr-x
iscsi_discovery	5.17 KB	-rwxr-xr-x
iscsiadm	398.46 KB	-rwxr-xr-x
iscsid	298.55 KB	-rwxr-xr-x
iscsistart	278.56 KB	-rwxr-xr-x
isosize	14.38 KB	-rwxr-xr-x
ispell-autobuildhash	15.56 KB	-rwxr-xr-x
iucode-tool	58.34 KB	-rwxr-xr-x
iucode_tool	58.34 KB	-rwxr-xr-x
kbdrate	18.16 KB	-rwxr-xr-x
key.dns_resolver	30.39 KB	-rwxr-xr-x
killall5	30.38 KB	-rwxr-xr-x
kpartx	46.16 KB	-rwxr-xr-x
ldattach	26.38 KB	-rwxr-xr-x
ldconfig	387 B	-rwxr-xr-x
ldconfig.real	1.16 MB	-rwxr-xr-x
locale-gen	4.29 KB	-rwxr-xr-x
logrotate	102.24 KB	-rwxr-xr-x
logsave	14.16 KB	-rwxr-xr-x
losetup	70.52 KB	-rwxr-xr-x
lsmod	166.36 KB	-rwxr-xr-x
luksformat	3.32 KB	-rwxr-xr-x
lvchange	2.89 MB	-rwxr-xr-x
lvconvert	2.89 MB	-rwxr-xr-x
lvcreate	2.89 MB	-rwxr-xr-x
lvdisplay	2.89 MB	-rwxr-xr-x
lvextend	2.89 MB	-rwxr-xr-x
lvm	2.89 MB	-rwxr-xr-x
lvmconfig	2.89 MB	-rwxr-xr-x
lvmdiskscan	2.89 MB	-rwxr-xr-x
lvmdump	10.07 KB	-rwxr-xr-x
lvmpolld	236.2 KB	-rwxr-xr-x
lvmsadc	2.89 MB	-rwxr-xr-x
lvmsar	2.89 MB	-rwxr-xr-x
lvreduce	2.89 MB	-rwxr-xr-x
lvremove	2.89 MB	-rwxr-xr-x
lvrename	2.89 MB	-rwxr-xr-x
lvresize	2.89 MB	-rwxr-xr-x
lvs	2.89 MB	-rwxr-xr-x
lvscan	2.89 MB	-rwxr-xr-x
make-bcache	22.38 KB	-rwxr-xr-x
make-ssl-cert	6.65 KB	-rwxr-xr-x
mdadm	601.31 KB	-rwxr-xr-x
mdmon	258.44 KB	-rwxr-xr-x
megacli	2.58 MB	-rwxr-xr-x
mii-tool	26.73 KB	-rwxr-xr-x
mk-runscript	2.75 KB	-rwxr-xr-x
mkdosfs	50.83 KB	-rwxr-xr-x
mke2fs	130.62 KB	-rwxr-xr-x
mkfs	14.38 KB	-rwxr-xr-x
mkfs.bfs	22.38 KB	-rwxr-xr-x
mkfs.btrfs	471.25 KB	-rwxr-xr-x
mkfs.cramfs	34.32 KB	-rwxr-xr-x
mkfs.ext2	130.62 KB	-rwxr-xr-x
mkfs.ext3	130.62 KB	-rwxr-xr-x
mkfs.ext4	130.62 KB	-rwxr-xr-x
mkfs.fat	50.83 KB	-rwxr-xr-x
mkfs.minix	42.39 KB	-rwxr-xr-x
mkfs.msdos	50.83 KB	-rwxr-xr-x
mkfs.ntfs	70.38 KB	-rwxr-xr-x
mkfs.vfat	50.83 KB	-rwxr-xr-x
mkfs.xfs	382.77 KB	-rwxr-xr-x
mkhomedir_helper	22.17 KB	-rwxr-xr-x
mkinitramfs	12.16 KB	-rwxr-xr-x
mklost+found	14.3 KB	-rwxr-xr-x
mkntfs	70.38 KB	-rwxr-xr-x
mkswap	46.38 KB	-rwxr-xr-x
modinfo	166.36 KB	-rwxr-xr-x
modprobe	166.36 KB	-rwxr-xr-x
mount.fuse	18.3 KB	-rwxr-xr-x
mount.fuse3	18.3 KB	-rwxr-xr-x
mount.lowntfs-3g	114.98 KB	-rwxr-xr-x
mount.nfs	98.68 KB	-rwsr-xr-x
mount.nfs4	98.68 KB	-rwsr-xr-x
mount.ntfs	159.01 KB	-rwxr-xr-x
mount.ntfs-3g	159.01 KB	-rwxr-xr-x
mountstats	42.28 KB	-rwxr-xr-x
mpathpersist	31.05 KB	-rwxr-xr-x
mpt-status	18.07 KB	-rwxr-xr-x
multipath	34.15 KB	-rwxr-xr-x
multipathd	134.26 KB	-rwxr-xr-x
nameif	14.48 KB	-rwxr-xr-x
needrestart	38.73 KB	-rwxr-xr-x
netplan	798 B	-rwxr-xr-x
newusers	74.73 KB	-rwxr-xr-x
nfnl_osf	18.3 KB	-rwxr-xr-x
nfsconf	38.67 KB	-rwxr-xr-x
nfsidmap	22.31 KB	-rwxr-xr-x
nfsiostat	24.41 KB	-rwxr-xr-x
nfsstat	37.29 KB	-rwxr-xr-x
nft	26.23 KB	-rwxr-xr-x
nginx	1.48 MB	-rwxr-xr-x
nologin	14.3 KB	-rwxr-xr-x
ntfsclone	50.38 KB	-rwxr-xr-x
ntfscp	34.38 KB	-rwxr-xr-x
ntfslabel	22.38 KB	-rwxr-xr-x
ntfsresize	62.39 KB	-rwxr-xr-x
ntfsundelete	50.38 KB	-rwxr-xr-x
ntp-keygen	81.84 KB	-rwxr-xr-x
ntp-wait	3.12 KB	-rwxr-xr-x
ntpd	859.07 KB	-rwxr-xr-x
ntpdate	83.27 KB	-rwxr-xr-x
ntpdate-debian	534 B	-rwxr-xr-x
ntptime	22.26 KB	-rwxr-xr-x
on_ac_power	3.7 KB	-rwxr-xr-x
overlayroot-chroot	2.45 KB	-rwxr-xr-x
ownership	14.45 KB	-rwxr-xr-x
pam-auth-update	20.5 KB	-rwxr-xr-x
pam_extrausers_chkpwd	22.15 KB	-rwxr-sr-x
pam_extrausers_update	30.15 KB	-rwxr-xr-x
pam_getenv	2.82 KB	-rwxr-xr-x
pam_timestamp_check	14.15 KB	-rwxr-xr-x
paperconfig	4.07 KB	-rwxr-xr-x
parted	86.4 KB	-rwxr-xr-x
partprobe	14.38 KB	-rwxr-xr-x
passenger-memory-stats	6.95 KB	-rwxr-xr-x
passenger-status	11.16 KB	-rwxr-xr-x
paxctl	14.19 KB	-rwxr-xr-x
pdata_tools	1.33 MB	-rwxr-xr-x
phpdismod	7.11 KB	-rwxr-xr-x
phpenmod	7.11 KB	-rwxr-xr-x
phpquery	6.24 KB	-rwxr-xr-x
pivot_root	14.38 KB	-rwxr-xr-x
plipconfig	14.3 KB	-rwxr-xr-x
plymouthd	150.55 KB	-rwxr-xr-x
postalias	22.3 KB	-rwxr-xr-x
postcat	22.37 KB	-rwxr-xr-x
postconf	183.8 KB	-rwxr-xr-x
postdrop	22.42 KB	-r-xr-sr-x
postfix	18.38 KB	-rwxr-xr-x
postfix-add-filter	4.84 KB	-rwxr-xr-x
postfix-add-policy	3.77 KB	-rwxr-xr-x
postfix-collate	2.87 KB	-rwxr-xr-x
postkick	14.3 KB	-rwxr-xr-x
postlock	14.3 KB	-rwxr-xr-x
postlog	14.45 KB	-rwxr-xr-x
postmap	22.3 KB	-rwxr-xr-x
postmulti	30.69 KB	-rwxr-xr-x
postqueue	22.38 KB	-r-xr-sr-x
postsuper	30.59 KB	-rwxr-xr-x
posttls-finger	42.38 KB	-rwxr-xr-x
poweroff	1.06 MB	-rwxr-xr-x
proftpd	1.17 MB	-rwxr-xr-x
proftpd-gencert	1.64 KB	-rwxr-xr-x
pvchange	2.89 MB	-rwxr-xr-x
pvck	2.89 MB	-rwxr-xr-x
pvcreate	2.89 MB	-rwxr-xr-x
pvdisplay	2.89 MB	-rwxr-xr-x
pvmove	2.89 MB	-rwxr-xr-x
pvremove	2.89 MB	-rwxr-xr-x
pvresize	2.89 MB	-rwxr-xr-x
pvs	2.89 MB	-rwxr-xr-x
pvscan	2.89 MB	-rwxr-xr-x
pwck	50.13 KB	-rwxr-xr-x
pwconv	46.01 KB	-rwxr-xr-x
pwunconv	42.01 KB	-rwxr-xr-x
qmqp-sink	18.3 KB	-rwxr-xr-x
qmqp-source	22.31 KB	-rwxr-xr-x
qshape	12.55 KB	-rwxr-xr-x
rarp	32.33 KB	-rwxr-xr-x
readprofile	22.41 KB	-rwxr-xr-x
reboot	1.06 MB	-rwxr-xr-x
remove-default-ispell	2.86 KB	-rwxr-xr-x
remove-default-wordlist	2.86 KB	-rwxr-xr-x
remove-shell	1.07 KB	-rwxr-xr-x
request-key	26.31 KB	-rwxr-xr-x
rescan-scsi-bus	20.01 KB	-rwxr-xr-x
resize2fs	66.3 KB	-rwxr-xr-x
rmail	18.3 KB	-rwxr-xr-x
rmmod	166.36 KB	-rwxr-xr-x
rmt	58.57 KB	-rwxr-xr-x
rmt-tar	58.57 KB	-rwxr-xr-x
route	64.27 KB	-rwxr-xr-x
rpc.gssd	86.5 KB	-rwxr-xr-x
rpc.idmapd	46.48 KB	-rwxr-xr-x
rpc.statd	79.05 KB	-rwxr-xr-x
rpc.svcgssd	46.4 KB	-rwxr-xr-x
rpcbind	62.41 KB	-rwxr-xr-x
rpcdebug	18.38 KB	-rwxr-xr-x
rpcinfo	34.48 KB	-rwxr-xr-x
rsyslogd	767.19 KB	-rwxr-xr-x
rtacct	28.31 KB	-rwxr-xr-x
rtcwake	34.38 KB	-rwxr-xr-x
rtmon	90.39 KB	-rwxr-xr-x
runit	22.41 KB	-rwxr-xr-x
runlevel	1.06 MB	-rwxr-xr-x
runsvchdir	14.37 KB	-rwxr-xr-x
runuser	54.38 KB	-rwxr-xr-x
rush	133.52 KB	-rwsr-xr-x
sa	35.41 KB	-rwxr-xr-x
scsi-config	9.36 KB	-rwxr-xr-x
scsi-spin	15.38 KB	-rwxr-xr-x
scsidev	50.31 KB	-rwxr-xr-x
scsiformat	38.2 KB	-rwxr-xr-x
scsiinfo	30.24 KB	-rwxr-xr-x
select-default-ispell	3.23 KB	-rwxr-xr-x
select-default-wordlist	3.21 KB	-rwxr-xr-x
sendmail	30.45 KB	-rwxr-xr-x
service	8.88 KB	-rwxr-xr-x
setcap	14.3 KB	-rwxr-xr-x
setvesablank	14.23 KB	-rwxr-xr-x
setvtrgb	14.29 KB	-rwxr-xr-x
sfdisk	102.38 KB	-rwxr-xr-x
sgdisk	162.48 KB	-rwxr-xr-x
shadowconfig	885 B	-rwxr-xr-x
showmount	14.57 KB	-rwxr-xr-x
shutdown	1.06 MB	-rwxr-xr-x
slattach	36.08 KB	-rwxr-xr-x
slrn_getdescs	791 B	-rwxr-xr-x
sm-notify	50.48 KB	-rwxr-xr-x
smartctl	827.65 KB	-rwxr-xr-x
smartd	587.16 KB	-rwxr-xr-x
smtp-sink	35.27 KB	-rwxr-xr-x
smtp-source	30.32 KB	-rwxr-xr-x
split-logfile	2.36 KB	-rwxr-xr-x
sraw	10 KB	-rwxr-xr-x
sshd	899.7 KB	-rwxr-xr-x
start-statd	1023 B	-rwxr-xr-x
start-stop-daemon	47.35 KB	-rwxr-xr-x
sudo_logsrvd	200.1 KB	-rwxr-xr-x
sudo_sendlog	107.34 KB	-rwxr-xr-x
sulogin	42.38 KB	-rwxr-xr-x
swaplabel	18.38 KB	-rwxr-xr-x
swapoff	22.38 KB	-rwxr-xr-x
swapon	42.38 KB	-rwxr-xr-x
switch_root	22.38 KB	-rwxr-xr-x
sync-available	1.42 KB	-rwxr-xr-x
sysctl	30.23 KB	-rwxr-xr-x
tarcat	936 B	-rwxr-xr-x
tc	614.08 KB	-rwxr-xr-x
tcptraceroute	1.56 KB	-rwxr-xr-x
tcptraceroute.db	1.56 KB	-rwxr-xr-x
telinit	1.06 MB	-rwxr-xr-x
thermald	554.6 KB	-rwxr-xr-x
thin_check	1.33 MB	-rwxr-xr-x
thin_delta	1.33 MB	-rwxr-xr-x
thin_dump	1.33 MB	-rwxr-xr-x
thin_ls	1.33 MB	-rwxr-xr-x
thin_metadata_size	1.33 MB	-rwxr-xr-x
thin_repair	1.33 MB	-rwxr-xr-x
thin_restore	1.33 MB	-rwxr-xr-x
thin_rmap	1.33 MB	-rwxr-xr-x
thin_trim	1.33 MB	-rwxr-xr-x
tipc	90.44 KB	-rwxr-xr-x
tk_scsiformat	41.31 KB	-rwxr-xr-x
tmpreaper	30.61 KB	-rwxr-xr-x
traceroute	67.16 KB	-rwxr-xr-x
tune2fs	102.55 KB	-rwxr-xr-x
tzconfig	106 B	-rwxr-xr-x
ufw	4.82 KB	-rwxr-xr-x
umount.nfs	98.68 KB	-rwsr-xr-x
umount.nfs4	98.68 KB	-rwsr-xr-x
unix_chkpwd	26.15 KB	-rwxr-sr-x
unix_update	30.15 KB	-rwxr-xr-x
update-ca-certificates	5.29 KB	-rwxr-xr-x
update-catalog	9.15 KB	-rwxr-xr-x
update-default-aspell	1 KB	-rwxr-xr-x
update-default-ispell	9.68 KB	-rwxr-xr-x
update-default-wordlist	7.5 KB	-rwxr-xr-x
update-dictcommon-aspell	1 KB	-rwxr-xr-x
update-dictcommon-hunspell	782 B	-rwxr-xr-x
update-fmtutil	9.58 KB	-rwxr-xr-x
update-grub	64 B	-rwxr-xr-x
update-grub-gfxpayload	301 B	-rwxr-xr-x
update-grub2	64 B	-rwxr-xr-x
update-gsfontmap	470 B	-rwxr-xr-x
update-icon-caches	596 B	-rwxr-xr-x
update-info-dir	1.66 KB	-rwxr-xr-x
update-initramfs	6.74 KB	-rwxr-xr-x

Code Editor : tk_scsiformat

#!/bin/sh
# the next lines restarts using wish or abort with a message \
type wish > /dev/null 2>&1 && exec wish -f "$0" "$@" || \
echo "no /usr/bin/wish found: please install the tk package." && exit 1
#!/usr/bin/wish -f
# Based in parts on scsi-config by:
#     Copyright 1993 Yggdrasil Computing, Incorporated
# Copyright 1997 Michael Weller (eowmob@exp-math.uni-essen.de)
# You may copy this file according to the terms and conditions of version 2
# of the GNU General Public License as published by the Free Software
# Foundation.

# This variable is set if WE issued a format command. Only when set, we will
# issue an mkfs command if a format completes.
set format_initiator 0

set textwidth 28
set winwidth 64
set butwidth 18
set butwidth2 25
set sdevice $argv
set par_fov "-o"
set par_inter "0"
set par_query ""
set par_estim 600
set par_initpat ""
set par_initmode "none"
set par_defform "-d"
set par_erase ""
set par_defects ""
set par_partstyle "-fdos"
set par_parttype "-y83"
set par_partmin "99999"
set par_geomdetect ""
set par_heads "64"
set par_sectors "32"
set par_mkfs "mke2fs -m0 -q <DEVICE>1"

set par_mkfsnames [list \
    "None" \
    "Ext2 (standard)" \
    "Ext2 (no reserved blocks)" \
    "DOS-FAT (1K clusters, up to 32MB)" \
    "DOS-FAT (2K clusters, up to 64MB)" \
    "DOS-FAT (4K clusters, up to 128MB)" \
    "DOS-FAT (8K clusters), up to 256MB)" \
    "DOS-FAT (16K clusters, up to 512MB)" \
    ]
# Value for None is not a valid command at all:
set par_mkfscmds [list \
    "<DEVICE>1" \
    "mke2fs -q <DEVICE>1" \
    "mke2fs -m0 -q <DEVICE>1" \
    "mkdosfs -s2 <DEVICE>1" \
    "mkdosfs -s4 <DEVICE>1" \
    "mkdosfs -s8 <DEVICE>1" \
    "mkdosfs -s16 <DEVICE>1" \
    "mkdosfs -s32 <DEVICE>1" \
    ]
set vars2save [list par_fov par_inter par_query par_estim par_initpat par_initmode \
    par_defform par_erase par_partstyle par_parttype par_partmin par_geomdetect par_heads \
    par_sectors par_disprim par_nvram par_discert par_stop par_mkfs\
    ]

set whoami [exec whoami]

proc save_var {fd var} {
   upvar #0 $var myval
   puts $fd "set $var \"$myval\""
}

proc change_fov {} {
   global par_fov

if { [string compare $par_fov -o] != 0 } then {
       if { [winfo exists .init_win] == 1 } then {
	  destroy .init_win
       }
       .f_opt.col1.init configure -state disabled
       .f_opt.col1.disprim configure -state disabled
       .f_opt.col1.nvram configure -state disabled
       .f_opt.col2.discert configure -state disabled
       .f_opt.col2.stop configure -state disabled
   } else {
       .f_opt.col1.init configure -state normal
       .f_opt.col1.disprim configure -state normal
       .f_opt.col1.nvram configure -state normal
       .f_opt.col2.discert configure -state normal
       .f_opt.col2.stop configure -state normal
   }
}

proc simple {} {
   global par_inter par_fov par_erase par_defform par_defects par_query

set par_inter "0"
   set par_fov ""
   set par_erase ""
   change_fov
   if { [winfo exists .defs_win] == 1 } {
	destroy .defs_win
   }
   set par_defform "-d"
   set par_defects ""
   set par_query "-b"
   block_change $par_query
}

proc change_partmin {} {
   global par_partmin

if { [string compare $par_partmin ""] == 0} then {
	set par_partmin 0
   }
   .f_def.part.menu entryconfigure 9 -label "Maximal Partition Size ${par_partmin}MB"
}

proc change_geom {geomdetect heads sectors} {
   if { [string compare $geomdetect "-G"] == 0} then {
	.f_def.part.menu entryconfigure 8 -label \
	     "Disk Geometry is ${heads} Heads and ${sectors} Sectors"
   } else {
	.f_def.part.menu entryconfigure 8 -label "Autodetect Disk Geometry"
   }
}

proc change_mkfs {} {
    global par_mkfscmds par_mkfs

if { [lsearch -exact $par_mkfscmds "$par_mkfs"] >= 0 } then {
	set label "Other"
    } else {
	set label "Other ($par_mkfs)"
    }
    .f_def.part.menu.mkfs entryconfigure [expr [llength $par_mkfscmds] + 2] -label "$label"
}

proc bind_eedit {w} {
    bind $w <Key-Delete> {
	%W select clear
	%W delete insert insert
    }
    bind $w <Key-BackSpace> {
	%W select clear
	%W delete [expr [%W index insert] - 1] \
		[expr [%W index insert] - 1]
    }
    bind $w <Key-Left> {
	%W select clear
	%W icursor [expr [%W index insert] - 1]
    }
    bind $w <Key-Right> {
	%W select clear
	%W icursor [expr [%W index insert] + 1]
    }
    bind $w <Button-2> {
	catch {
		%W insert insert [selection get]
	}
    }
}

proc bind_entry {w} {
    bind_eedit $w
    bind $w <Key> {
	if { [ string length [%W get] ] < 5 } {
	    if { [ string first %A "0123456789" ] >= 0 } then {
	        %W insert insert %A
	    }
	}
    }
    bind $w <Control-Key> {set x 1}
    bind $w <Meta-Key> {set x 1}
    bind $w <Alt-Key> {set x 1}
    bind $w <Control-Meta-Key> {set x 1}
    bind $w <Control-Alt-Key> {set x 1}
    bind $w <Meta-Alt-Control-Key> {set x 1}
    bind $w <Button-2> {
	catch {
		set sel [selection get]
		regsub -all "\[^0-9\]" $sel "" sel2
		%W insert insert $sel2
		%W delete 5 end
	}
    }
}

proc bind_text {w} {
   bind $w <Control-Key> {set x 1}
   bind $w <Meta-Key> {set x 1}
   bind $w <Alt-Key> {set x 1}
   bind $w <Control-Meta-Key> {set x 1}
   bind $w <Control-Alt-Key> {set x 1}
   bind $w <Meta-Alt-Control-Key> {set x 1}
   bind $w <Key-Delete> {
	%W delete insert {insert + 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-BackSpace> {
	%W delete {insert - 1 chars} insert
	%W yview -pickplace insert
   }
   bind $w <Key-Left> {
	%W mark set insert {insert - 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-Right> {
	%W mark set insert {insert + 1 chars}
	%W yview -pickplace insert
   }
   bind $w <Key-Up> {
	%W mark set insert {insert - 1 lines}
	%W yview -pickplace insert
   }
   bind $w <Key-Down> {
	%W mark set insert {insert + 1 lines}
	%W yview -pickplace insert
   }
}

proc block_change { block } {
    if { [ string compare $block "-b" ] == 0 } then {
	.f_block.f_estim configure -foreground black
	.f_block.f_estim.t configure -state normal
	.f_block.f_estim.t configure -background white
    } else {
	.f_block.f_estim configure -foreground gray70
	.f_block.f_estim.t configure -state disabled
	.f_block.f_estim.t configure -background bisque
    }
}

proc copyrights {} {
  global butwidth butwidth2
  if { [winfo exists .version] == 1 } {
	raise .version
	return;
  }
  toplevel .version
  wm title .version "TkScsiformat Version Information"
  wm group .
  frame .version.header
  label .version.header.label -bitmap info -bg pink
  message .version.header.message -width 400 -bg pink -text \
	"Version Information."

pack .version.header.label .version.header.message -side left -padx 15
  message .version.copy0 -width 400 -background yellow -justify center -text \
     { This is version 1.0, 20th Aug 1997 of tk_scsiformat.}
  pack .version.header .version.copy0\
         -side top -pady 10 -padx 15

message .version.copy1 -width 400 -background green -justify left -text\
     {Copyright 1993 Yggdrasil Computing, Incorporated.
Copyright 1997 Michael Weller (eowmob@exp-math.uni-essen.de).}

message .version.copy2 -width 400 -justify center -text {This configuration\
     script may be copied and modified according to the terms and conditions\
     of version 2 of the GNU General Public License as published by the\
     Free Software Foundation (Cambridge, Massachusetts),\
     provided that this notice is not removed.

This script was originally the control panel from the Yggdrasil\
     distribution.  Eric Youngdale thought it looked pretty keen, and it was easy\
     to adapt, so he used it as the basis for the SCSI configuration manager.\

The configuration manager was extended by Michael Weller, and finally \
     this utility was written and based on it.

Well, honestly, not more than ten or twenty lines are copied from scsi-config. \
     Thus repeating the copyrights above is probably not required. This is released \
     under GPL nevertheless, though.
}

button .version.dismiss -text "Dismiss" -activebackground green \
	-command {destroy .version} -width $butwidth2
   pack .version.copy1 .version.copy2 .version.dismiss\
         -side top -pady 10 -padx 15

tkwait window .version
}

proc enter_init {} {
   global butwidth2 par_initpat par_initmode textwidth winwidth
   global my_initmode

set my_initmode ${par_initmode}

if { [winfo exists .init_win] == 1 } {
	raise .init_win
	return;
   }
   toplevel .init_win
   wm title .init_win "Initialization of Logical Blocks"
   wm group .

frame .init_win.header
   label .init_win.header.label -bitmap questhead -bg pink
   message .init_win.header.message -width 400 -bg pink -text \
	"Initialization Pattern for the Logical Blocks."

pack .init_win.header.label .init_win.header.message \
	 -side left -padx 15
   pack .init_win.header -side top -pady 10 -padx 15

frame .init_win.row1
   frame .init_win.row2
   radiobutton .init_win.row1.log -text "of each logical block" \
	-variable my_initmode -value "-L" -width $textwidth
   radiobutton .init_win.row1.phy -text "of each physical block" \
	-variable my_initmode -value "-P" -width $textwidth
   radiobutton .init_win.row2.def -text "Don't write them anywhere" \
	-variable my_initmode -value "none" -width $textwidth

pack .init_win.row1.log .init_win.row1.phy \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2
   pack .init_win.row2.def \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2

label .init_win.mess1 -width $winwidth -text \
	"Write the corresponding logical block number in the first 4 bytes:"
   pack .init_win.mess1 -side top -pady 5 -padx 15
   pack .init_win.row1 -side top -pady 5 -padx 15
   pack .init_win.row2 -side top -pady 5 -padx 15

label .init_win.mess2 -width $winwidth -text \
	"Enter an (optional) sequence of hexnumbers to fill the blocks with:"
   pack .init_win.mess2 -side top -pady 5 -padx 15

frame .init_win.frame
   scrollbar .init_win.frame.yscroll -relief sunken \
        -command ".init_win.frame.page yview"
   text .init_win.frame.page -width $winwidth -background white -relief sunken \
	-borderwidth 2 -height 8 -wrap char -exportselection 1 \
	-yscrollcommand ".init_win.frame.yscroll set"
   .init_win.frame.page insert 1.0 $par_initpat
   pack .init_win.frame.yscroll -side right -fill y
   pack .init_win.frame.page -side top -expand 1 -fill both

bind .init_win.frame.page <Key> {
	if { [ string first %A " 0123456789abcdefgABCDEF" ] >= 0 } then {
	    .init_win.frame.page insert insert [string toupper %A]
	    .init_win.frame.page yview -pickplace insert
	}
	if { [ string first %A "
" ] >= 0 } then {
	    .init_win.frame.page insert insert "\x0a"
	    .init_win.frame.page yview -pickplace insert
	}
   }
   bind .init_win.frame.page <Button-2> {
	catch {
		set sel [string toupper [selection get]]
		regsub -all "\[^ 0123456789ABCDEF\x0a\]" $sel "" sel2
		%W insert insert $sel2
	}
   }
   bind_text .init_win.frame.page
   pack .init_win.frame -side top -pady 5 -padx 15
   frame .init_win.f_bot
   button .init_win.f_bot.ok -text "Ok" \
        -activebackground green -command {
		set par_initpat [ .init_win.frame.page get 1.0 end ]
		set par_initmode $my_initmode
		destroy .init_win
        } -width $butwidth2
   button .init_win.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .init_win} -width $butwidth2
   pack .init_win.f_bot.ok .init_win.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .init_win.f_bot -side top -pady 10 -padx 15

tkwait window .init_win
}

proc set_msg { form } {
    switch -- $form {
	-D { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer>:<integer>:<integer> with three numbers \
             for cylinder, head, physical sector. Specifying sector -1 marks the whole \
             track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
	-B { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer>:<integer>:<integer> with three numbers \
             for cylinder, head, bytes from index. This marks that number of bytes from \
	     the index mark as bad. Specifying -1 marks the whole \
             track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
	-d { .defs_win.mess3 configure -text \
	    {Enter defects in the format <integer> where <integer> is the number of the \
	     defect logical block. You may preceed numbers with 0x or 0 for hexadecimal or \
	     octal representation }
	}
    }
}

proc enter_defs {} {
   global butwidth2 par_defform par_defects textwidth winwidth
   global my_defform

set my_defform $par_defform
   if { [winfo exists .defs_win] == 1 } {
	raise .defs_win
	return;
   }
   toplevel .defs_win
   wm title .defs_win "Manual Defects Addition"
   wm group .
   frame .defs_win.header
   label .defs_win.header.label -bitmap questhead -bg pink
   message .defs_win.header.message -width 400 -bg pink -text \
	"Defects to be added manually."

pack .defs_win.header.label .defs_win.header.message \
	 -side left -padx 15
   pack .defs_win.header -side top -pady 10 -padx 15

frame .defs_win.row1
   frame .defs_win.row2
   radiobutton .defs_win.row1.phy -text "By Physical Sectors" \
	-variable my_defform -value "-D" -width $textwidth -command { set_msg $my_defform }
   radiobutton .defs_win.row1.byt -text "By Bytes from Index" \
	-variable my_defform -value "-B" -width $textwidth -command { set_msg $my_defform }
   radiobutton .defs_win.row2.def -text "By Logical Block Numbers" \
	-variable my_defform -value "-d" -width $textwidth -command { set_msg $my_defform }

pack .defs_win.row1.phy .defs_win.row1.byt \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2
   pack .defs_win.row2.def \
	 -side left -pady 5 -padx 15 -ipadx 2 -pady 2

label .defs_win.mess1 -width $winwidth -text \
	"Select the format in which you want to enter the defects:"
   pack .defs_win.mess1 -side top -pady 5 -padx 15
   pack .defs_win.row1 -side top -pady 5 -padx 15
   pack .defs_win.row2 -side top -pady 5 -padx 15

label .defs_win.mess2 -width $winwidth -text \
	"Enter an (optional) sequence of of defects:"
   pack .defs_win.mess2 -side top -pady 5 -padx 15

frame .defs_win.frame
   scrollbar .defs_win.frame.yscroll -relief sunken \
        -command ".defs_win.frame.page yview"
   text .defs_win.frame.page -width $winwidth -background white -relief sunken \
	-borderwidth 2 -height 8 -wrap char -exportselection 1 \
	-yscrollcommand ".defs_win.frame.yscroll set"
   .defs_win.frame.page insert 1.0 $par_defects
   pack .defs_win.frame.yscroll -side right -fill y
   pack .defs_win.frame.page -side top -expand 1 -fill both

bind .defs_win.frame.page <Key> {
	if { [ string first %A " 0123456789abcdefgABCDEF:-" ] >= 0 } then {
	    .defs_win.frame.page insert insert [string toupper %A]
	}
	if { [ string compare %A "
" ] == 0 } then {
	    .defs_win.frame.page insert insert "\x0a"
	}
	if { [ string first %A "xX" ] >= 0 } then {
	    .defs_win.frame.page insert insert "x"
	}
	.defs_win.frame.page yview -pickplace insert
   }
   bind .defs_win.frame.page <Button-2> {
	catch {
		set sel [string toupper [selection get]]
		regsub -all "\[^ 0123456789ABCDEFX:\x0a-\]" $sel "" sel2
		regsub -all "X" $sel2 "x" sel
		%W insert insert $sel
	}
   }
   bind_text .defs_win.frame.page
   pack .defs_win.frame -side top -pady 5 -padx 15

message .defs_win.mess3 -justify center -text "X" -background green \
	-aspect 800

set_msg $my_defform

pack .defs_win.mess3 -side top -pady 5 -padx 15

frame .defs_win.f_bot
   button .defs_win.f_bot.ok -text "Ok" \
        -activebackground green -command {
		set par_defects [ .defs_win.frame.page get 1.0 end ]
		set par_defform $my_defform
		destroy .defs_win
        } -width $butwidth2
   button .defs_win.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .defs_win} -width $butwidth2
   pack .defs_win.f_bot.ok .defs_win.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .defs_win.f_bot -side top -pady 10 -padx 15

tkwait window .defs_win
}

proc handle_trans {w ontop} {
   wm transient $w $ontop
   wm withdraw $w
   update idletasks
   set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
            - [winfo vrootx [winfo parent $w]]]
   set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
            - [winfo vrooty [winfo parent $w]]]
   wm geom $w +$x+$y
   wm deiconify $w

set oldFocus [focus]
   grab $w
   focus $w

tkwait window $w
   if { [string compare $ontop "."] != 0 } then {
	grab $ontop
   }
   focus $oldFocus
}

proc post_partsize {} {
   global butwidth2 par_partmin

toplevel .partsize
   frame .partsize.f_bot
   wm title .partsize "Maximal partition size"
   wm group .
   frame .partsize.header
   label .partsize.header.label -bitmap questhead -bg pink
   message .partsize.header.message -width 400 -bg pink -text \
	"Maximal partition size."

pack .partsize.header.label .partsize.header.message \
	 -side left -padx 15
   pack .partsize.header -side top -pady 10 -padx 15

message .partsize.expl -bg green -width 400 -text \
	"Enter the maximal partition size in Megabyte. If it is zero, \
	no partition is created and the partition table is left empty. \
	Otherwise a partition of this size is created as primary \
	partition 1. If the size does not fit the partition is made as \
	large as possible."

pack .partsize.expl -side top -pady 10 -padx 15

label .partsize.f_inter -text "Maximal partition size in MB:             "
   entry .partsize.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .partsize.f_inter.t insert 0 $par_partmin
   bind_entry .partsize.f_inter.t
   place .partsize.f_inter.t -in .partsize.f_inter -anchor e -relx 1.0 -rely 0.5

pack .partsize.f_inter -side top -pady 20 -padx 15

button .partsize.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_partmin [ .partsize.f_inter.t get ]
	   change_partmin
	   destroy .partsize
        } -width $butwidth2
   button .partsize.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .partsize} -width $butwidth2
   pack .partsize.f_bot.ok .partsize.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .partsize.f_bot -side top -pady 10 -padx 15

handle_trans .partsize .
}

proc change_geodet { geodet } {
    if { [ string compare $geodet "-G" ] == 0 } then {
	.geom.hese.heads configure -foreground black
	.geom.hese.heads.t configure -state normal
	.geom.hese.heads.t configure -background white
	.geom.hese.sectors configure -foreground black
	.geom.hese.sectors.t configure -state normal
	.geom.hese.sectors.t configure -background white
    } else {
	.geom.hese.heads configure -foreground gray70
	.geom.hese.heads.t configure -state disabled
	.geom.hese.heads.t configure -background bisque
	.geom.hese.sectors configure -foreground gray70
	.geom.hese.sectors.t configure -state disabled
	.geom.hese.sectors.t configure -background bisque
    }
}

proc post_geom {} {
   global winwidth butwidth2 par_geomdetect par_heads par_sectors textwidth
   global my_geomdetect

set my_geomdetect $par_geomdetect

toplevel .geom
   frame .geom.f_bot
   wm title .geom "Disk Drive Geometry"
   wm group .
   frame .geom.header
   label .geom.header.label -bitmap questhead -bg pink
   message .geom.header.message -width 400 -bg pink -text \
	"Disk Drive Geometry."

pack .geom.header.label .geom.header.message \
	 -side left -padx 15
   pack .geom.header -side top -pady 10 -padx 15

message .geom.expl -bg green -width 400 -text \
	"Enter the geometry of the disk. Not the real one, but the one \
	DOS will see, s.t. the partition table can be build in a way that \
	DOS and other OS's will be able to handle it. Generally, linux \
	device drivers report the setting back which the corresponding adapters \
	use under DOS. If this fails, 64 heads and 32 are usually used. "

pack .geom.expl -side top -pady 10 -padx 15

checkbutton .geom.auto -variable my_geomdetect -onvalue "" -offvalue "-G" \
	-text " Query Geometry from Scsidriver " -command {change_geodet $my_geomdetect}
   
   pack .geom.auto -side top -pady 20 -padx 15

frame .geom.hese

label .geom.hese.heads -text   "Heads:             "
   entry .geom.hese.heads.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .geom.hese.heads.t insert 0 $par_heads
   bind_entry .geom.hese.heads.t
   place .geom.hese.heads.t -in .geom.hese.heads -anchor e -relx 1.0 -rely 0.5

label .geom.hese.sectors -text "Sectors:           "
   entry .geom.hese.sectors.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   .geom.hese.sectors.t insert 0 $par_sectors
   bind_entry .geom.hese.sectors.t
   place .geom.hese.sectors.t -in .geom.hese.sectors -anchor e -relx 1.0 -rely 0.5

pack .geom.hese.heads  .geom.hese.sectors  -side left -pady 15 -padx 15
   pack .geom.hese -side top
   change_geodet $my_geomdetect

button .geom.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_heads [ .geom.hese.heads.t get ]
	   set par_sectors [ .geom.hese.sectors.t get ]
	   set par_geomdetect $my_geomdetect
	   change_geom $par_geomdetect $par_heads $par_sectors
	   destroy .geom
        } -width $butwidth2
   button .geom.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .geom} -width $butwidth2
   pack .geom.f_bot.ok .geom.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .geom.f_bot -side top -pady 10 -padx 15

handle_trans .geom .
}

proc post_mkfs {} {
   global butwidth2 par_mkfs

toplevel .mkfs
   frame .mkfs.f_bot
   wm title .mkfs "Make FileSystem Command"
   wm group .
   frame .mkfs.header
   label .mkfs.header.label -bitmap questhead -bg pink
   message .mkfs.header.message -width 400 -bg pink -text \
	"Make FileSystem Command."

pack .mkfs.header.label .mkfs.header.message \
	 -side left -padx 15
   pack .mkfs.header -side top -pady 10 -padx 15

message .mkfs.expl -bg green -width 400 -text \
	"Enter a command to execute to make a filesystem on the freshly created partition.\
         The string <DEVICE> in the string will be replaced by the name of disk device\
	 being formatted. Generally you'll have to use <DEVICE>1 to refer to the first\
	 partition."

pack .mkfs.expl -side top -pady 10 -padx 15

frame .mkfs.f_inter
   scrollbar .mkfs.f_inter.s -relief sunken -orient horiz -command \
            ".mkfs.f_inter.t xview"
   entry .mkfs.f_inter.t -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -xscrollcommand ".mkfs.f_inter.s set"
   .mkfs.f_inter.t insert 0 $par_mkfs

bind_eedit .mkfs.f_inter.t
   bind .mkfs.f_inter.t <Key-KP_Enter> { .mkfs.f_bot.ok invoke }
   bind .mkfs.f_inter.t <Key-Return> { .mkfs.f_bot.ok invoke }

pack .mkfs.f_inter.t .mkfs.f_inter.s -side top -fill both -expand yes
   pack .mkfs.f_inter -side top -pady 20 -padx 15 -fill both -expand yes

button .mkfs.f_bot.ok -text "Ok" \
        -activebackground green -command {
	   set par_mkfs [ .mkfs.f_inter.t get ]
	   change_mkfs
	   destroy .mkfs
        } -width $butwidth2
   button .mkfs.f_bot.dismiss -text "Abort" \
        -activebackground red -activeforeground white \
	-command {destroy .mkfs} -width $butwidth2
   pack .mkfs.f_bot.ok .mkfs.f_bot.dismiss \
	 -side left -pady 15 -padx 15 -ipadx 2 -pady 2

pack .mkfs.f_bot -side top -pady 10 -padx 15

handle_trans .mkfs .
}

proc set_rands {} {
   set tworands [exec /usr/lib/scsi/tworands]
   .conf.equa.sol delete 0 end
   .conf.equa.a configure -state normal
   .conf.equa.b configure -state normal
   .conf.equa.a delete 0 end
   .conf.equa.b delete 0 end
   .conf.equa.a insert 0 [lindex $tworands 0]
   .conf.equa.b insert 0 [lindex $tworands 1]
   .conf.equa.a configure -state disabled
   .conf.equa.b configure -state disabled
}

proc query_format {} {
   global winwidth butwidth2 textwidth format_cmd sdevice par_fov par_inter par_query \
	  par_estim par_initpat par_initmode par_defform par_defects par_erase par_partstyle \
	  par_parttype par_partmin par_geomdetect par_heads par_sectors par_disprim par_nvram \
	  par_discert par_stop

toplevel .conf
   frame .conf.f_bot
   wm title .conf "Format Confirmation Request"
   wm group .
   frame .conf.header
   label .conf.header.label -bitmap warning -bg pink
   message .conf.header.message -width 400 -bg pink -text \
	"Format Confirmation Request."

pack .conf.header.label .conf.header.message \
	 -side left -padx 15
   pack .conf.header -side top -pady 10 -padx 15

message .conf.expl -bg red -fg white -width 400 -justify center -text \
"Formatting will erase all data on $sdevice, regardless on which \
partition, and there will be NO way to recover your data.

Therefore, please check now if you really want to format this device. \
To ensure that your are really with me and know what you do, please \
answer the simple question below."

pack .conf.expl -side top -pady 10 -padx 15

frame .conf.equa

entry .conf.equa.a -width 3 -relief sunken -borderwidth 2 -state disabled
   label .conf.equa.times -text "*"
   entry .conf.equa.b -width 3 -relief sunken -borderwidth 2 -state disabled
   label .conf.equa.equa -text "="
   entry .conf.equa.sol -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1
   bind_entry .conf.equa.sol
   set_rands

pack .conf.equa.a .conf.equa.times .conf.equa.b .conf.equa.equa .conf.equa.sol \
	-side left -pady 10 -padx 3
   pack .conf.equa -side top

message .conf.result -bg red -fg white -aspect 900 -text "Wrong! Please retry or bail out!"

frame .conf.space
   pack .conf.space -side top -pady 8

button .conf.f_bot.ok -text "Confirm" \
        -activebackground yellow -command {
	  if { [expr [.conf.equa.a get] * [.conf.equa.b get]] == [.conf.equa.sol get] } then {
	    destroy .conf
	    do_format $format_cmd
	  } else {
	    set_rands
	    pack .conf.result -after .conf.equa -side top -pady 2 -padx 15
          }
        } -width $butwidth2
   button .conf.f_bot.show -text "Show ScsiFormat Command" \
        -activebackground green -command {
	     show_format "$format_cmd $sdevice"
        } -width $butwidth2

pack .conf.f_bot.ok .conf.f_bot.show -side left -pady 15 -padx 15 -ipadx 2 -pady 2

button .conf.dismiss -text "Bail Out" \
        -activebackground red -activeforeground white \
	-command {destroy .conf} -width $butwidth2

pack .conf.f_bot -side top -padx 15
   pack .conf.dismiss -side top -pady 10

set format_cmd "/usr/sbin/scsiformat $par_erase -i$par_inter"

regsub -all "\x0a" [string trim $par_defects] " " tmpstr
   regsub -all " +" $tmpstr "," tmpstr
   if { [string length $tmpstr] > 0 } then {
	append format_cmd " $par_defform$tmpstr"
   }
   if { [string compare $par_partstyle "none"] != 0 } then {
	append format_cmd " $par_partstyle $par_parttype -M$par_partmin"
   }
   if { [string compare $par_geomdetect "-G"] == 0 } then {
	append format_cmd " $par_geomdetect${par_heads}x$par_sectors"
   }
   if { [string compare $par_fov "-o"] == 0} then {
	append format_cmd " $par_fov"
	if { [string compare $par_initmode "none"] != 0 } then {
	    append format_cmd " $par_initmode"
	}
	regsub -all "\[ \x0a\]" [string trim $par_initpat] "" tmpstr
	if { [string length $tmpstr] > 0 } then {
	    append format_cmd " -I$tmpstr"
	}
	append format_cmd " $par_discert $par_disprim $par_stop $par_nvram"
   }
   if { [string compare $par_query "-b"] == 0 } then {
	append format_cmd " -b$par_estim"
   }
   #trim unneccessary spaces:
   regsub -all " +" [string trim $format_cmd] " " format_cmd
   handle_trans .conf .
}

proc show_format {cmd} {
   global winwidth butwidth2 textwidth

toplevel .showcmd
   frame .showcmd.f_bot
   wm title .showcmd "Show ScsiFormat Command"
   wm group .
   frame .showcmd.header
   label .showcmd.header.label -bitmap info -bg pink
   message .showcmd.header.message -width 400 -bg pink -text \
	"Show ScsiFormat Command."

pack .showcmd.header.label .showcmd.header.message \
	 -side left -padx 15
   pack .showcmd.header -side top -pady 10 -padx 15

message .showcmd.expl -width 400 -text \
	"This is the command which will perform the scsi low level format you requested:"
   pack .showcmd.expl -side top -pady 10 -padx 15

message .showcmd.cmd -width 400 -text $cmd -relief sunken
   pack .showcmd.cmd -side top -pady 10 -padx 15

button .showcmd.dismiss -text "Dismiss" \
        -activebackground red -activeforeground white \
	-command {destroy .showcmd} -width $butwidth2

pack .showcmd.dismiss -side top -pady 10

handle_trans .showcmd .conf
}

proc do_format {fcmd} {
   global par_query par_estim sdevice
   global winwidth butwidth2 textwidth
   global check_cmd format_initiator

set security "-F'Ene Mene Meck, und Du bist weg!'"
   append fcmd " $security -t0 -X $sdevice"
   
   if { [catch {exec sh -c "$fcmd" >& /var/run/scsiformat.[pid] } err] != 0 } then {
        set fd [open /var/run/scsiformat.[pid] r]
	set err "$err\x0a[read $fd]"
	close $fd
        exec rm /var/run/scsiformat.[pid]
	show_err scsiformat $err
	return;
   }
   exec rm /var/run/scsiformat.[pid]
   set format_initiator 1
   show_busy
}

proc show_err {cmd msg} {
   global winwidth butwidth2 textwidth

if { [winfo exists .error] == 1 } {
	.error.msg configure -text $msg
	raise .error
        tkwait window .error
	return;
   }
   toplevel .error
   frame .error.f_bot
   wm title .error "ScsiFormat Error"
   wm group .
   frame .error.header
   label .error.header.label -bitmap error -bg pink
   message .error.header.message -width 400 -bg pink -text \
	"Show $cmd Error Message."

pack .error.header.label .error.header.message \
	 -side left -padx 15
   pack .error.header -side top -pady 10 -padx 15

message .error.expl -width 600 -text \
	"$cmd returned the following error message:"
   pack .error.expl -side top -pady 10 -padx 15

message .error.msg -width 600 -text $msg -relief sunken
   pack .error.msg -side top -pady 10 -padx 15

button .error.dismiss -text "Dismiss" \
        -activebackground red -activeforeground white \
	-command {destroy .error} -width $butwidth2

pack .error.dismiss -side top -pady 10

tkwait window .error
}

proc query_prog {} {
   global sdevice errorCode wasbusy format_initiator par_mkfs

set check_cmd "/usr/sbin/scsiformat -T -t1 -X $sdevice"

if { [winfo exists .showprog] != 1 } {
	return;
   }
   set errorCode [list CHILDSTATUS 0 0]
   catch {exec sh -c "$check_cmd"} err
   if { ([string compare [lindex $errorCode 0] CHILDSTATUS] != 0) 
				|| ([lindex $errorCode 2] > 1) } then {
	show_err scsiformat $err
   } elseif { [lindex $errorCode 2] == 1 } then {
	if {[catch {
	    .showprog.row2.start configure -text [lindex $err 0]
	    .showprog.row2.end configure -text [lindex $err 3]
	    set percent [lindex $err 1]
	    if { [string compare $percent "-"] != 0} then {
		.showprog.expl configure -text [format "%.10g%% in %s" [expr 100 * $percent] \
		    [lindex $err 2] ]
		if { $percent >= 1.0 } then { set percent 1.0 }
	    } else {
		.showprog.expl configure -text [lindex $err 2]
		set percent 0
	    }
	    place .showprog.slider.inner -in .showprog.slider -relwidth $percent -relheight 1.0 \
		-anchor nw -x 0 -y 0
	    set wasbusy 1
	    after 5000 query_prog}] != 0} then {
#Something weird went on. Like illegal device name, read-only device, etc..
		destroy .showprog
	}
   } else {
	destroy .showprog
	if { $format_initiator == 1} then {
	    set format_initiator 0
	    if { [string compare $par_mkfs "<DEVICE>1"] != 0} then {
		regsub "<DEVICE>" $par_mkfs "${sdevice}" cmd
#
#it seems that we have to wait even more...
#
#a mayor reason is that the format might have completed, but scsiformat is
#still creating the partion which will also include some sleep()'s
#
		exec sync
		exec sh -c "sleep 10"
		set errorCode [list NONE 0 0]
		catch {exec sh -c "$cmd"} err
		if { ([string compare [lindex $errorCode 0] CHILDSTATUS] == 0) } then {
		    show_err "Filesystem maker"\
		         "'$cmd' exited with errorcode - [lindex $errorCode 2]\x0a$err"
		}
	    }
	}
	if { $wasbusy == 1 } then {
	    puts -nonewline stderr "\x0a"
	    flush stderr
	}
   }
}

proc show_busy {} {
   global textwidth wasbusy

toplevel .showprog
   frame .showprog.f_bot
   wm title .showprog "Show ScsiFormat Progress"
   wm group .
   frame .showprog.header
   label .showprog.header.label -bitmap hourglass -bg pink
   message .showprog.header.message -width 400 -bg pink -text \
	"Formatting in Progress."

pack .showprog.header.label .showprog.header.message \
	 -side left -padx 15
   pack .showprog.header -side top -pady 10 -padx 15
   frame .showprog.space
   pack .showprog.space -side top -pady 5
   frame .showprog.row1
   frame .showprog.row2
   pack .showprog.row1 .showprog.row2 -side top -expand yes -fill both -padx 4

label .showprog.row1.start -text "Started" -borderwidth -1
   pack .showprog.row1.start -side left
   frame .showprog.row1.space
   pack .showprog.row1.space -after .showprog.row1.start -side left -expand yes -fill both
   label .showprog.row1.end -text "Estimated End" -borderwidth -1
   pack .showprog.row1.end -side right

label .showprog.row2.start -borderwidth -1
   pack .showprog.row2.start -side left
   frame .showprog.row2.space
   pack .showprog.row2.space -after .showprog.row2.start -side left -expand yes -fill both
   label .showprog.row2.end -borderwidth -1
   pack .showprog.row2.end -side right

frame .showprog.slider -borderwidth 2 -height 20 -relief sunken
   pack .showprog.slider -side top -expand yes -fill both -pady 4 -padx 4
   frame .showprog.slider.inner -borderwidth 2 -relief raised -bg SlateGray1

message .showprog.expl -width 400 -text "X" -borderwidth -1
   pack .showprog.expl -side top
   frame .showprog.space2
   pack .showprog.space2 -side top -pady 2

set wasbusy 0
   query_prog
   if { [winfo exists .showprog] != 1 } {
	return;
   }
   handle_trans .showprog .
}

wm title . "TkScsiformat Version 1.0"

if { [string compare $whoami root] != 0} then {
    frame .warn
    frame .warn.h
    label .warn.h.l -bitmap info -background pink
    message .warn.h.m -aspect 200 -background pink -justify center -text \
	{You need to be root in order to format a SCSI device!}
    pack .warn.h.l .warn.h.m -side left -padx 10
    button .warn.quit -text "Quit" -command exit \
	-activeforeground white -activebackground red
    pack .warn.h .warn.quit -side top -pady 10
    pack .warn
    tkwait window .warn
}

if { [llength $argv] > 1 } then {
    puts stderr "Usage: tk_scsiformat \[device\]"
    exit
}

while { [string compare [lindex $sdevice 0] ""] == 0 } {
    frame .select
    frame .select.h
    label .select.h.l -bitmap questhead -background pink
    message .select.h.m -justify center -aspect 500 -background pink -text \
	{Select a SCSI device to low level format.}
    frame .select.f
    button .select.f.quit -text "    Quit    " -command exit \
	-activeforeground white -activebackground red
    button .select.f.continue -text " Continue " -activebackground green \
	-command {destroy .select}
    pack .select.f.continue .select.f.quit -side left -padx 10
    pack .select.h.l .select.h.m -side left -padx 10
    pack .select.h -pady 10
    pack .select
    set line [exec /sbin/scsiinfo -l]
    set n 0
    foreach x $line { 
        if {[string first "/dev/sd" "$x"] != 0} continue;
        radiobutton .select.$n -text "$x" -width 10 \
           -variable sdevice -value $x -anchor w
	pack .select.$n  -padx 3
        set n [expr $n+1]
    }
    if { $n == 0 } then {
	.select.f.continue configure -state disabled
    } else {
	.select.0 select
    }
    pack .select.f -pady 10
    tkwait window .select
}

set save_file "/usr/lib/scsi/scsiformat.defs.[file tail $sdevice]"
catch {source $save_file}

frame .header
label .header.label -bitmap question -bg pink
message .header.message -width 400 -bg pink -text \
	"Scsi Low Level Format - $sdevice."

pack .header.label .header.message -side left -padx 15

frame .f_bot1
button .f_bot1.copyrights -activebackground green -text "Version Info"    \
	-command { copyrights } -width $butwidth
button .f_bot1.filesave -activebackground green -text "Save Defaults"    \
	-width $butwidth -command {
          global vars2save save_file
          set fd [open $save_file w]
	  foreach var $vars2save { save_var $fd $var }
	  close $fd
        }
button .f_bot1.simple -activebackground green -text "Simple Format Cmd"    \
	-command "simple" -width $butwidth
pack .f_bot1.copyrights .f_bot1.filesave .f_bot1.simple \
        -side left -padx 12 -ipadx 2 -ipady 2 -pady 5

frame .f_bot2
button .f_bot2.format -text "Format" -command { query_format } \
	-activebackground yellow -activeforeground black -width $butwidth2
button .f_bot2.quit -text "Quit" -command { exit } \
	-activebackground red -activeforeground white -width $butwidth2
pack .f_bot2.format .f_bot2.quit -side left -padx 12 -ipadx 2 -ipady 2 -pady 5

frame .f_mand -width $winwidth
checkbutton .f_mand.erase -offvalue "" -onvalue "-e" -variable par_erase -text \
	"Erase Grown Defect List" -width [expr $textwidth - 1]

label .f_mand.f_inter -text "Interleave (0 for default):            " -width $textwidth
entry .f_mand.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -textvariable par_inter
bind_entry .f_mand.f_inter.t
place .f_mand.f_inter.t -in .f_mand.f_inter -anchor e -relx 1.0 -rely 0.5

pack .f_mand.erase .f_mand.f_inter -side left -padx 12 -ipadx 2 -ipady 2

frame .f_def
button .f_def.defects -text "Add Defects Manually" -activebackground yellow -command enter_defs \
	-width [expr $textwidth]
menubutton .f_def.part -text "Simple Partioning" \
	-width [expr $textwidth] -relief raised -menu .f_def.part.menu \
	-activebackground SlateGray1
menu .f_def.part.menu -background SlateGray1 -activebackground SlateGray2
.f_def.part.menu add radiobutton -label "Don't touch Partion Sector" \
	-variable par_partstyle -value "none"
.f_def.part.menu add radiobutton -label "DOS Style Partion" \
	-variable par_partstyle -value "-fdos"
.f_def.part.menu add radiobutton -label "Tight Style Partion (not on Cylinder Boundary)" \
	-variable par_partstyle -value "-ftight"
.f_def.part.menu add separator
.f_def.part.menu add cascade -menu .f_def.part.menu.types -label "Partition type"
.f_def.part.menu add cascade -menu .f_def.part.menu.mkfs -label "Filesystem type"
.f_def.part.menu add separator
.f_def.part.menu add command -command post_geom
.f_def.part.menu add command -command post_partsize

menu .f_def.part.menu.types -background SlateGray1 -activebackground SlateGray2
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux/Minix" -value "-y81"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux swap" -value "-y82"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "Linux native" -value "-y83"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 12-bit FAT" -value "-y01"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 16-bit FAT <32M" -value "-y52"
.f_def.part.menu.types add radiobutton -variable par_parttype \
	-label "DOS 16-bit FAT >=32M" -value "-y64"

menu .f_def.part.menu.mkfs -background SlateGray1 -activebackground SlateGray2
for {set i 0} {$i < [llength $par_mkfsnames]} {incr i} {
    .f_def.part.menu.mkfs add radiobutton -variable par_mkfs -command change_mkfs \
	-label "[lindex $par_mkfsnames $i]" -value "[lindex $par_mkfscmds $i]"
}
.f_def.part.menu.mkfs add separator
.f_def.part.menu.mkfs add command -command post_mkfs
change_mkfs

change_partmin
change_geom $par_geomdetect $par_heads $par_sectors

pack .f_def.defects .f_def.part -side left -padx 12 -ipadx 2 -ipady 2

frame .f_opt -width $winwidth -relief raised -borderwidth 2
checkbutton .f_opt.fov -offvalue "" -onvalue "-o" -variable par_fov -text \
	"    Use Custom Format Parameters" -command change_fov -activebackground yellow \
	-width [expr $winwidth - 2]
pack .f_opt.fov -side top -padx 12 -ipadx 2 -ipady 2 -pady 5
frame .f_opt.col1
frame .f_opt.col2

button .f_opt.col1.init -text "Enter initialization pattern" -activebackground yellow \
         -command enter_init -width [expr $textwidth + 2]
checkbutton .f_opt.col1.disprim -offvalue "" -onvalue "-p" -variable par_disprim -text \
	"Ignore Primary Defects" -width $textwidth
checkbutton .f_opt.col1.nvram -offvalue "" -onvalue "-S" -variable par_nvram -text \
	"Erase MODE SELECT Nvram" -width $textwidth
pack .f_opt.col1.init .f_opt.col1.disprim .f_opt.col1.nvram \
	-side top -padx 12 -ipadx 2 -ipady 2 -pady 5
checkbutton .f_opt.col2.discert -offvalue "" -onvalue "-c" -variable par_discert -text \
	"Disable Media Certification" -width $textwidth
checkbutton .f_opt.col2.stop -offvalue "" -onvalue "-s" -variable par_stop -text \
	"Stop On Missing Defectlist" -width $textwidth
label .f_opt.col2.dummy 
pack .f_opt.col2.discert .f_opt.col2.stop .f_opt.col2.dummy \
	-side top -padx 12 -ipadx 2 -ipady 2 -pady 5
pack .f_opt.col1 .f_opt.col2 -side left

frame .f_block
checkbutton .f_block.par_block -offvalue "-b" -onvalue "" -variable par_query -text \
	"Query progress from target" -width $textwidth -command { block_change $par_query }

label .f_block.f_estim -text "Estimated run time in sec:             " -width $textwidth
entry .f_block.f_estim.t -width 5 -background white -relief sunken -borderwidth 2 \
	-exportselection 1 -textvariable par_estim
bind_entry .f_block.f_estim.t

place .f_block.f_estim.t -in .f_block.f_estim -anchor e -relx 1.0 -rely 0.5
pack  .f_block.par_block .f_block.f_estim -side left -padx 12 -ipadx 2 -ipady 2
block_change $par_query

change_fov

pack .header -padx 10 -pady 10
pack .f_mand .f_def -pady 4
pack .f_opt -padx 10 -pady 10
pack .f_block -padx 10 -pady 4
pack .f_bot1 .f_bot2 -padx 10 -pady 4

show_busy

${this.title}

Code Editor : tk_scsiformat