Gecko [ sachasauda.akalacademy.ac.in ]

/ usr / bin / [ HOME SHELL ]

Name	Size	Permission	Action
fm-agent	[ DIR ]	drwxr-xr-x
2to3	95 B	-rwxr-xr-x
GET	14.71 KB	-rwxr-xr-x
HEAD	14.71 KB	-rwxr-xr-x
Mail	383.67 KB	-rwxr-xr-x
POST	14.71 KB	-rwxr-xr-x
[	40.52 KB	-rwxr-xr-x
a2p	105.32 KB	-rwxr-xr-x
ab	157.59 KB	-rwxr-xr-x
aclocal	35.87 KB	-rwxr-xr-x
aclocal-1.13	35.87 KB	-rwxr-xr-x
addr2line	28.42 KB	-rwxr-xr-x
agentxtrap	19.16 KB	-rwxr-xr-x
alias	29 B	-rwxr-xr-x
alt-mysql-reconfigure	21.15 KB	-rwxr-xr-x
alt-php-mysql-reconfigure	21.15 KB	-rwxr-xr-x
alt-php-mysql-reconfigure.py	21.15 KB	-rwxr-xr-x
animate	7.05 KB	-rwxr-xr-x
annotate	11.13 KB	-rwxr-xr-x
apropos	45.49 KB	-rwxr-xr-x
ar	61.21 KB	-rwxr-xr-x
arch	32.3 KB	-rwxr-xr-x
arpaname	7.03 KB	-rwxr-xr-x
as	377.28 KB	-rwxr-xr-x
aserver	28.21 KB	-rwxr-xr-x
aspell	163.35 KB	-rwxr-xr-x
at	51.73 KB	-rwsr-xr-x
atq	51.73 KB	-rwsr-xr-x
atrm	51.73 KB	-rwsr-xr-x
audit2allow	14.21 KB	-rwxr-xr-x
audit2why	14.21 KB	-rwxr-xr-x
aulast	15.48 KB	-rwxr-xr-x
aulastlog	11.35 KB	-rwxr-xr-x
ausyscall	11.18 KB	-rwxr-xr-x
autoconf	14.42 KB	-rwxr-xr-x
autoheader	8.33 KB	-rwxr-xr-x
autom4te	31.43 KB	-rwxr-xr-x
automake	246.44 KB	-rwxr-xr-x
automake-1.13	246.44 KB	-rwxr-xr-x
autopoint	25.95 KB	-rwxr-xr-x
autoreconf	20.57 KB	-rwxr-xr-x
autoscan	16.72 KB	-rwxr-xr-x
autoupdate	33.08 KB	-rwxr-xr-x
auvirt	31.93 KB	-rwxr-xr-x
awk	418.55 KB	-rwxr-xr-x
base64	36.48 KB	-rwxr-xr-x
basename	28.35 KB	-rwxr-xr-x
bash	941.93 KB	-rwxr-xr-x
bashbug	6.8 KB	-rwxr-xr-x
bashbug-64	6.8 KB	-rwxr-xr-x
batch	137 B	-rwxr-xr-x
bc	81.47 KB	-rwxr-xr-x
bdftogd	3.91 KB	-rwxr-xr-x
bdftopcf	44.19 KB	-rwxr-xr-x
bdftruncate	11.2 KB	-rwxr-xr-x
berkeley_db47_svc	58.46 KB	-rwxr-xr-x
bg	26 B	-rwxr-xr-x
bind9-config	3.47 KB	-rwxr-xr-x
bison	393.34 KB	-rwxr-xr-x
bond2team	22.74 KB	-rwxr-xr-x
bootctl	68.99 KB	-rwxr-xr-x
bunzip2	31.89 KB	-rwxr-xr-x
busctl	403.15 KB	-rwxr-xr-x
bzcat	31.89 KB	-rwxr-xr-x
bzcmp	2.08 KB	-rwxr-xr-x
bzdiff	2.08 KB	-rwxr-xr-x
bzgrep	1.64 KB	-rwxr-xr-x
bzip2	31.89 KB	-rwxr-xr-x
bzip2recover	15.24 KB	-rwxr-xr-x
bzless	1.23 KB	-rwxr-xr-x
bzmore	1.23 KB	-rwxr-xr-x
c++	754.59 KB	-rwxr-xr-x
c++filt	27.92 KB	-rwxr-xr-x
c2ph	35.75 KB	-rwxr-xr-x
c89	224 B	-rwxr-xr-x
c99	215 B	-rwxr-xr-x
ca-legacy	1.6 KB	-rwxr-xr-x
cairo-sphinx	69.99 KB	-rwxr-xr-x
cal	36.8 KB	-rwxr-xr-x
captoinfo	64.26 KB	-rwxr-xr-x
cat	52.81 KB	-rwxr-xr-x
catchsegv	3.26 KB	-rwxr-xr-x
catman	36.75 KB	-rwxr-xr-x
cc	750.59 KB	-rwxr-xr-x
cd	26 B	-rwxr-xr-x
centrino-decode	6.13 KB	-rwxr-xr-x
certutil	179.75 KB	-rwxr-xr-x
chacl	15.27 KB	-rwxr-xr-x
chage	72.16 KB	-rwxr-xr-x
chardetect	307 B	-rwxr-xr-x
chattr	11.27 KB	-rwxr-xr-x
chcat	13.12 KB	-rwxr-xr-x
chcon	61.46 KB	-rwxr-xr-x
checkmodule	400.48 KB	-rwxr-xr-x
checkpolicy	412.46 KB	-rwxr-xr-x
chfn	23.41 KB	-rws--x--x
chgrp	61.32 KB	-rwxr-xr-x
chmem	40.43 KB	-rwxr-xr-x
chmod	57.21 KB	-rwxr-xr-x
chown	61.36 KB	-rwxr-xr-x
chronyc	85.03 KB	-rwxr-xr-x
chrt	32.17 KB	-rwxr-xr-x
chsh	23.32 KB	-rwx--x--x
chvt	11.14 KB	-rwxr-xr-x
ci	801 B	-rwxr-xr-x
cifsiostat	48.52 KB	-rwxr-xr-x
cksum	32.38 KB	-rwxr-xr-x
cl-linksafe-reconfigure	5.15 KB	-rwxr-xr-x
clear	7.02 KB	-rwxr-xr-x
cloud-init	316 B	-rwxr-xr-x
cloud-init-per	1.74 KB	-rwxr-xr-x
cmp	44.14 KB	-rwxr-xr-x
cmsutil	110.59 KB	-rwxr-xr-x
co	801 B	-rwxr-xr-x
col	23.88 KB	-rwxr-xr-x
colcrt	11.29 KB	-rwxr-xr-x
colrm	23.77 KB	-rwxr-xr-x
column	27.99 KB	-rwxr-xr-x
comm	36.55 KB	-rwxr-xr-x
command	31 B	-rwxr-xr-x
compare	11.09 KB	-rwxr-xr-x
compile_et	1.45 KB	-rwxr-xr-x
composite	7.05 KB	-rwxr-xr-x
config_data	7.05 KB	-rwxr-xr-x
conjure	7.05 KB	-rwxr-xr-x
convert	7.05 KB	-rwxr-xr-x
coredumpctl	154.52 KB	-rwxr-xr-x
corelist	10.02 KB	-rwxr-xr-x
cp	151.55 KB	-rwxr-xr-x
cpan	4.97 KB	-rwxr-xr-x
cpan-mirrors	4.27 KB	-r-xr-xr-x
cpan2dist	21.31 KB	-rwxr-xr-x
cpanp	3.31 KB	-rwxr-xr-x
cpanp-run-perl	553 B	-rwxr-xr-x
cpapi1	3.02 MB	-rwxr-xr-x
cpapi2	3.02 MB	-rwxr-xr-x
cpapi3	3.02 MB	-rwxr-xr-x
cpio	142.58 KB	-rwxr-xr-x
cpp	754.58 KB	-rwxr-xr-x
cpupower	66.34 KB	-rwxr-xr-x
crlutil	127 KB	-rwxr-xr-x
crontab	56.23 KB	-rwsr-xr-x
csplit	48.82 KB	-rwxr-xr-x
csslint-0.6	19.55 KB	-rwxr-xr-x
curl	153 KB	-rwxr-xr-x
cut	40.61 KB	-rwxr-xr-x
cvtsudoers	241.7 KB	-rwxr-xr-x
cxpm	28.05 KB	-rwxr-xr-x
date	60.74 KB	-rwxr-xr-x
db47_archive	10.21 KB	-rwxr-xr-x
db47_checkpoint	10.27 KB	-rwxr-xr-x
db47_codegen	22.25 KB	-rwxr-xr-x
db47_deadlock	10.28 KB	-rwxr-xr-x
db47_dump	14.25 KB	-rwxr-xr-x
db47_hotbackup	18.38 KB	-rwxr-xr-x
db47_load	26.33 KB	-rwxr-xr-x
db47_printlog	62.8 KB	-rwxr-xr-x
db47_recover	10.27 KB	-rwxr-xr-x
db47_stat	14.22 KB	-rwxr-xr-x
db47_upgrade	10.23 KB	-rwxr-xr-x
db47_verify	10.22 KB	-rwxr-xr-x
db_archive	11.23 KB	-rwxr-xr-x
db_checkpoint	11.3 KB	-rwxr-xr-x
db_deadlock	11.31 KB	-rwxr-xr-x
db_dump	15.33 KB	-rwxr-xr-x
db_dump185	64.45 KB	-rwxr-xr-x
db_hotbackup	15.34 KB	-rwxr-xr-x
db_load	27.51 KB	-rwxr-xr-x
db_log_verify	15.34 KB	-rwxr-xr-x
db_printlog	32.26 KB	-rwxr-xr-x
db_recover	11.33 KB	-rwxr-xr-x
db_replicate	15.34 KB	-rwxr-xr-x
db_stat	15.26 KB	-rwxr-xr-x
db_tuner	19.33 KB	-rwxr-xr-x
db_upgrade	11.23 KB	-rwxr-xr-x
db_verify	11.25 KB	-rwxr-xr-x
dbilogstrip	1.43 KB	-rwxr-xr-x
dbiprof	6.15 KB	-rwxr-xr-x
dbiproxy	5.35 KB	-rwxr-xr-x
dbus-binding-tool	94.49 KB	-rwxr-xr-x
dbus-cleanup-sockets	11 KB	-rwxr-xr-x
dbus-daemon	218 KB	-rwxr-xr-x
dbus-monitor	23.13 KB	-rwxr-xr-x
dbus-run-session	14.97 KB	-rwxr-xr-x
dbus-send	27.07 KB	-rwxr-xr-x
dbus-test-tool	23.13 KB	-rwxr-xr-x
dbus-update-activation-environ...	15.02 KB	-rwxr-xr-x
dbus-uuidgen	10.98 KB	-rwxr-xr-x
dc	44.33 KB	-rwxr-xr-x
dd	73.14 KB	-rwxr-xr-x
deallocvt	11.16 KB	-rwxr-xr-x
debuginfo-install	7.88 KB	-rwxr-xr-x
delv	39.98 KB	-rwxr-xr-x
df	102.55 KB	-rwxr-xr-x
dgawk	502.12 KB	-rwxr-xr-x
diff	195.46 KB	-rwxr-xr-x
diff3	60.65 KB	-rwxr-xr-x
dig	146.96 KB	-rwxr-xr-x
dir	114.85 KB	-rwxr-xr-x
dircolors	40.44 KB	-rwxr-xr-x
dirname	28.31 KB	-rwxr-xr-x
display	7.05 KB	-rwxr-xr-x
dltest	11.05 KB	-rwxr-xr-x
dmesg	48.52 KB	-rwxr-xr-x
dnsdomainname	15.41 KB	-rwxr-xr-x
domainname	15.41 KB	-rwxr-xr-x
doveadm	2.94 MB	-rwxr-xr-x
doveconf	541.95 KB	-rwxr-xr-x
dovecot-sysreport	5.81 KB	-rwxr-xr-x
dpkg	275.27 KB	-rwxr-xr-x
dpkg-deb	140.41 KB	-rwxr-xr-x
dpkg-divert	132.63 KB	-rwxr-xr-x
dpkg-maintscript-helper	18.58 KB	-rwxr-xr-x
dpkg-query	140.8 KB	-rwxr-xr-x
dpkg-split	111.28 KB	-rwxr-xr-x
dpkg-statoverride	70.52 KB	-rwxr-xr-x
dpkg-trigger	66.26 KB	-rwxr-xr-x
dracut	55.83 KB	-rwxr-xr-x
dsync	2.94 MB	-rwxr-xr-x
dtrace	16.66 KB	-rwxr-xr-x
du	110.34 KB	-rwxr-xr-x
dumpkeys	77.51 KB	-rwxr-xr-x
dumpsexp	15.19 KB	-rwxr-xr-x
dvipdf	1 KB	-rwxr-xr-x
dwp	3.03 MB	-rwxr-xr-x
ea-php54	3.89 MB	-rwxr-xr-x
ea-php54-pear	383 B	-rwxr-xr-x
ea-php54-pecl	299 B	-rwxr-xr-x
ea-php55	3.98 MB	-rwxr-xr-x
ea-php55-pear	383 B	-rwxr-xr-x
ea-php55-pecl	299 B	-rwxr-xr-x
ea-php56	4 MB	-rwxr-xr-x
ea-php56-pear	383 B	-rwxr-xr-x
ea-php56-pecl	299 B	-rwxr-xr-x
ea-php72	4.26 MB	-rwxr-xr-x
ea-php72-pear	383 B	-rwxr-xr-x
ea-php72-pecl	299 B	-rwxr-xr-x
ea-php73	4.65 MB	-rwxr-xr-x
ea-php73-pear	383 B	-rwxr-xr-x
ea-php73-pecl	299 B	-rwxr-xr-x
ea-php80	6.54 MB	-rwxr-xr-x
ea-php80-pear	383 B	-rwxr-xr-x
ea-php80-pecl	299 B	-rwxr-xr-x
ea-php81	6.57 MB	-rwxr-xr-x
ea-php81-pear	383 B	-rwxr-xr-x
ea-php81-pecl	299 B	-rwxr-xr-x
ea-php82	6.73 MB	-rwxr-xr-x
ea-php82-pear	383 B	-rwxr-xr-x
ea-php82-pecl	299 B	-rwxr-xr-x
easy_install	320 B	-rwxr-xr-x
easy_install-2.7	328 B	-rwxr-xr-x
easy_install-3.6	234 B	-rwxr-xr-x
echo	32.31 KB	-rwxr-xr-x
egrep	290 B	-rwxr-xr-x
eject	48.81 KB	-rwxr-xr-x
elfedit	32.18 KB	-rwxr-xr-x
elinks	1.3 MB	-rwxr-xr-x
enchant	15.29 KB	-rwxr-xr-x
enchant-lsmod	11.13 KB	-rwxr-xr-x
env	28.33 KB	-rwxr-xr-x
envsubst	36.01 KB	-rwxr-xr-x
eps2eps	639 B	-rwxr-xr-x
eqn	144.41 KB	-rwxr-xr-x
ex	906.4 KB	-rwxr-xr-x
expand	32.48 KB	-rwxr-xr-x
expr	36.53 KB	-rwxr-xr-x
factor	93.29 KB	-rwxr-xr-x
fallocate	27.84 KB	-rwxr-xr-x
false	28.25 KB	-rwxr-xr-x
fc	26 B	-rwxr-xr-x
fc-cache	132 B	-rwxr-xr-x
fc-cache-64	15.45 KB	-rwxr-xr-x
fc-cat	15.4 KB	-rwxr-xr-x
fc-conflist	11.2 KB	-rwxr-xr-x
fc-list	11.26 KB	-rwxr-xr-x
fc-match	11.32 KB	-rwxr-xr-x
fc-pattern	11.26 KB	-rwxr-xr-x
fc-query	11.23 KB	-rwxr-xr-x
fc-scan	11.27 KB	-rwxr-xr-x
fc-validate	11.27 KB	-rwxr-xr-x
fg	26 B	-rwxr-xr-x
fgconsole	11.16 KB	-rwxr-xr-x
fgrep	290 B	-rwxr-xr-x
filan	89.13 KB	-rwxr-xr-x
file	19.3 KB	-rwxr-xr-x
find	194.63 KB	-rwxr-xr-x
find-repos-of-install	4.27 KB	-rwxr-xr-x
find2perl	23.06 KB	-rwxr-xr-x
findmnt	58.38 KB	-rwxr-xr-x
fipscheck	15.37 KB	-rwxr-xr-x
fipshmac	11.3 KB	-rwxr-xr-x
firewall-cmd	113.48 KB	-rwxr-xr-x
firewall-offline-cmd	101.18 KB	-rwxr-xr-x
flex	318.07 KB	-rwxr-xr-x
flex++	318.07 KB	-rwxr-xr-x
flock	23.88 KB	-rwxr-xr-x
fmt	36.48 KB	-rwxr-xr-x
fold	36.46 KB	-rwxr-xr-x
fonttosfnt	35.99 KB	-rwxr-xr-x
formail	43.68 KB	-rwxr-xr-x
free	19.33 KB	-rwxr-xr-x
freetype-config	4.39 KB	-rwxr-xr-x
fribidi	16.09 KB	-rwxr-xr-x
ftp	85.5 KB	-rwxr-xr-x
funzip	31.38 KB	-rwxr-xr-x
g++	754.59 KB	-rwxr-xr-x
gapplication	19.48 KB	-rwxr-xr-x
gawk	418.55 KB	-rwxr-xr-x
gcc	750.59 KB	-rwxr-xr-x
gcc-ar	26.45 KB	-rwxr-xr-x
gcc-nm	26.45 KB	-rwxr-xr-x
gcc-ranlib	26.45 KB	-rwxr-xr-x
gcov	307.45 KB	-rwxr-xr-x
gd2copypal	7.06 KB	-rwxr-xr-x
gd2togif	7.05 KB	-rwxr-xr-x
gd2topng	11.06 KB	-rwxr-xr-x
gdbus	40.17 KB	-rwxr-xr-x
gdcmpgif	11.08 KB	-rwxr-xr-x
gdk-pixbuf-query-loaders-64	15.38 KB	-rwxr-xr-x
gdk-pixbuf-thumbnailer	15.59 KB	-rwxr-xr-x
gdlib-config	2.52 KB	-rwxr-xr-x
gdparttopng	11.07 KB	-rwxr-xr-x
gdtopng	7.04 KB	-rwxr-xr-x
gencat	22.11 KB	-rwxr-xr-x
genl-ctrl-list	11.27 KB	-rwxr-xr-x
geoiplookup	15.28 KB	-rwxr-xr-x
geoiplookup6	11.16 KB	-rwxr-xr-x
geoipupdate	31.28 KB	-rwxr-xr-x
geqn	144.41 KB	-rwxr-xr-x
getconf	22.02 KB	-rwxr-xr-x
getent	26.39 KB	-rwxr-xr-x
getfacl	24.29 KB	-rwxr-xr-x
getkeycodes	11.16 KB	-rwxr-xr-x
getopt	15.38 KB	-rwxr-xr-x
getopts	31 B	-rwxr-xr-x
gettext	35.94 KB	-rwxr-xr-x
gettext.sh	4.52 KB	-rwxr-xr-x
gettextize	42.69 KB	-rwxr-xr-x
ghostscript	10.97 KB	-rwxr-xr-x
giftogd2	7.05 KB	-rwxr-xr-x
gio	73.41 KB	-rwxr-xr-x
gio-querymodules-64	11.31 KB	-rwxr-xr-x
git	1.46 MB	-rwxr-xr-x
git-receive-pack	1.46 MB	-rwxr-xr-x
git-shell	722.04 KB	-rwxr-xr-x
git-upload-archive	1.46 MB	-rwxr-xr-x
git-upload-pack	795.48 KB	-rwxr-xr-x
glib-compile-schemas	44.38 KB	-rwxr-xr-x
gmake	178.47 KB	-rwxr-xr-x
gneqn	271 B	-rwxr-xr-x
gnroff	3.31 KB	-rwxr-xr-x
gpasswd	76.57 KB	-rwsr-xr-x
gpg	732.4 KB	-rwxr-xr-x
gpg-agent	289.74 KB	-rwxr-xr-x
gpg-connect-agent	152.69 KB	-rwxr-xr-x
gpg-error	23.18 KB	-rwxr-xr-x
gpg-error-config	1.83 KB	-rwxr-xr-x
gpg-zip	3.23 KB	-rwxr-xr-x
gpg2	732.4 KB	-rwxr-xr-x
gpgconf	140.31 KB	-rwxr-xr-x
gpgparsemail	23.7 KB	-rwxr-xr-x
gpgsplit	48.88 KB	-rwxr-xr-x
gpgv	345.38 KB	-rwxr-xr-x
gpgv2	345.38 KB	-rwxr-xr-x
gpic	180.41 KB	-rwxr-xr-x
gprof	98.41 KB	-rwxr-xr-x
gr2fonttest	23.66 KB	-rwxr-xr-x
grep	155.3 KB	-rwxr-xr-x
groff	81.63 KB	-rwxr-xr-x
grops	140.85 KB	-rwxr-xr-x
grotty	98.59 KB	-rwxr-xr-x
groups	32.41 KB	-rwxr-xr-x
growpart	21.13 KB	-rwxr-xr-x
grub2-editenv	396.07 KB	-rwxr-xr-x
grub2-file	834.34 KB	-rwxr-xr-x
grub2-fstest	1.03 MB	-rwxr-xr-x
grub2-glue-efi	258.84 KB	-rwxr-xr-x
grub2-kbdcomp	1.63 KB	-rwxr-xr-x
grub2-menulst2cfg	241.85 KB	-rwxr-xr-x
grub2-mkfont	287.58 KB	-rwxr-xr-x
grub2-mkimage	379.21 KB	-rwxr-xr-x
grub2-mklayout	264.9 KB	-rwxr-xr-x
grub2-mknetdir	429.8 KB	-rwxr-xr-x
grub2-mkpasswd-pbkdf2	271.29 KB	-rwxr-xr-x
grub2-mkrelpath	258.48 KB	-rwxr-xr-x
grub2-mkrescue	1021.84 KB	-rwxr-xr-x
grub2-mkstandalone	534.33 KB	-rwxr-xr-x
grub2-render-label	839.14 KB	-rwxr-xr-x
grub2-script-check	295.41 KB	-rwxr-xr-x
grub2-syslinux2cfg	763.57 KB	-rwxr-xr-x
gs	10.97 KB	-rwxr-xr-x
gsbj	350 B	-rwxr-xr-x
gsdj	352 B	-rwxr-xr-x
gsdj500	352 B	-rwxr-xr-x
gsettings	23.8 KB	-rwxr-xr-x
gslj	353 B	-rwxr-xr-x
gslp	350 B	-rwxr-xr-x
gsnd	277 B	-rwxr-xr-x
gsoelim	32.59 KB	-rwxr-xr-x
gss-client	23.17 KB	-rwxr-xr-x
gtar	338.02 KB	-rwxr-xr-x
gtbl	115.96 KB	-rwxr-xr-x
gtroff	512.96 KB	-rwxr-xr-x
gunzip	2.2 KB	-rwxr-xr-x
gzexe	5.79 KB	-rwxr-xr-x
gzip	98.43 KB	-rwxr-xr-x
h2ph	27.65 KB	-rwxr-xr-x
h2xs	59.15 KB	-rwxr-xr-x
hdsploader	11.18 KB	-rwxr-xr-x
head	40.51 KB	-rwxr-xr-x
hesinfo	11.09 KB	-rwxr-xr-x
hexdump	32.02 KB	-rwxr-xr-x
hmac256	15.67 KB	-rwxr-xr-x
host	127.02 KB	-rwxr-xr-x
hostid	28.32 KB	-rwxr-xr-x
hostname	15.41 KB	-rwxr-xr-x
hostnamectl	318.07 KB	-rwxr-xr-x
htdbm	56.14 KB	-rwxr-xr-x
htdigest	29.35 KB	-rwxr-xr-x
htpasswd	54.2 KB	-rwxr-xr-x
httxt2dbm	21.69 KB	-rwxr-xr-x
hunspell	53.11 KB	-rwxr-xr-x
i386	15.27 KB	-rwxr-xr-x
iceauth	31.73 KB	-rwxr-xr-x
iconv	58.14 KB	-rwxr-xr-x
id	36.52 KB	-rwxr-xr-x
ident	110.45 KB	-rwxr-xr-x
identify	7.06 KB	-rwxr-xr-x
idiag-socket-details	11.34 KB	-rwxr-xr-x
idle	93 B	-rwxr-xr-x
idn	32.45 KB	-rwxr-xr-x
ifnames	4.03 KB	-rwxr-xr-x
igawk	3.11 KB	-rwxr-xr-x
import	7.05 KB	-rwxr-xr-x
imunify-antivirus	1 KB	-rwxr-xr-x
imunify-service	1023 B	-rwxr-xr-x
imunify360-agent	1 KB	-rwxr-xr-x
imunify360-command-wrapper	8.28 KB	-rwxr-xr-x
info	265.19 KB	-rwxr-xr-x
infocmp	56.07 KB	-rwxr-xr-x
infokey	21.47 KB	-rwxr-xr-x
infotocap	64.26 KB	-rwxr-xr-x
innochecksum	9.68 MB	-rwxr-xr-x
install	139.59 KB	-rwxr-xr-x
instmodsh	4.15 KB	-rwxr-xr-x
ionice	23.86 KB	-rwxr-xr-x
iostat	60.79 KB	-rwxr-xr-x
ipcalc	15.05 KB	-rwxr-xr-x
ipcmk	24 KB	-rwxr-xr-x
ipcrm	27.85 KB	-rwxr-xr-x
ipcs	48.37 KB	-rwxr-xr-x
iptables-xml	91.52 KB	-rwxr-xr-x
isc-config.sh	3.47 KB	-rwxr-xr-x
isosize	23.83 KB	-rwxr-xr-x
ispell	988 B	-rwxr-xr-x
isql	31.69 KB	-rwxr-xr-x
iusql	23.61 KB	-rwxr-xr-x
jobs	28 B	-rwxr-xr-x
join	48.75 KB	-rwxr-xr-x
journalctl	537.88 KB	-rwxr-xr-x
js	3.36 MB	-rwxr-xr-x
json_pp	3.82 KB	-rwxr-xr-x
json_reformat	35.89 KB	-rwxr-xr-x
json_verify	27.52 KB	-rwxr-xr-x
json_xs	6.74 KB	-rwxr-xr-x
jsonpointer	1.31 KB	-rwxr-xr-x
kbd_mode	11.16 KB	-rwxr-xr-x
kbdinfo	11.19 KB	-rwxr-xr-x
kbdrate	11.22 KB	-rwxr-xr-x
kdumpctl	33.18 KB	-rwxr-xr-x
kernel-install	4.7 KB	-rwxr-xr-x
keyctl	27.94 KB	-rwxr-xr-x
kill	32.82 KB	-rwxr-xr-x
killall	24.14 KB	-rwxr-xr-x
kmod	143.24 KB	-rwxr-xr-x
krb5-config	6.96 KB	-rwxr-xr-x
last	19.11 KB	-rwxr-xr-x
lastb	19.11 KB	-rwxr-xr-x
lastlog	19.15 KB	-rwxr-xr-x
lchfn	15.52 KB	-rwxr-xr-x
lchsh	15.49 KB	-rwxr-xr-x
ld	982.58 KB	-rwxr-xr-x
ld.bfd	982.58 KB	-rwxr-xr-x
ld.gold	5.11 MB	-rwxr-xr-x
ldd	5.18 KB	-rwxr-xr-x
less	154.57 KB	-rwxr-xr-x
lessecho	11.13 KB	-rwxr-xr-x
lesskey	16.67 KB	-rwxr-xr-x
lesspipe.sh	2.24 KB	-rwxr-xr-x
lex	318.07 KB	-rwxr-xr-x
lexgrog	85.09 KB	-rwxr-xr-x
libgcrypt-config	3.78 KB	-rwxr-xr-x
libnetcfg	15.36 KB	-rwxr-xr-x
libpng-config	2.38 KB	-rwxr-xr-x
libpng15-config	2.38 KB	-rwxr-xr-x
libtool	314.04 KB	-rwxr-xr-x
libtoolize	76.8 KB	-rwxr-xr-x
libwmf-fontmap	12.78 KB	-rwxr-xr-x
link	28.3 KB	-rwxr-xr-x
links	1.3 MB	-rwxr-xr-x
linux-boot-prober	5.85 KB	-rwxr-xr-x
linux32	15.27 KB	-rwxr-xr-x
linux64	15.27 KB	-rwxr-xr-x
ln	57.22 KB	-rwxr-xr-x
loadkeys	110.48 KB	-rwxr-xr-x
loadunimap	23.88 KB	-rwxr-xr-x
locale	37.11 KB	-rwxr-xr-x
localectl	326.23 KB	-rwxr-xr-x
localedef	318.31 KB	-rwxr-xr-x
lockfile	19.36 KB	-rwxr-xr-x
logger	28.62 KB	-rwxr-xr-x
login	36.38 KB	-rwxr-xr-x
loginctl	489.6 KB	-rwxr-xr-x
logname	28.31 KB	-rwxr-xr-x
logresolve	28.58 KB	-rwxr-xr-x
look	11.27 KB	-rwxr-xr-x
lprsetup.sh	5.34 KB	-rwxr-xr-x
ls	114.85 KB	-rwxr-xr-x
lsattr	11.25 KB	-rwxr-xr-x
lsblk	79.17 KB	-rwxr-xr-x
lscpu	60.75 KB	-rwxr-xr-x
lsinitrd	6.26 KB	-rwxr-xr-x
lsipc	60.95 KB	-rwxr-xr-x
lslocks	41.01 KB	-rwxr-xr-x
lslogins	52.88 KB	-rwxr-xr-x
lsmem	40.78 KB	-rwxr-xr-x
lsns	36.43 KB	-rwxr-xr-x
lsphp	937 B	-rwxr-xr-x
lsscsi	56.48 KB	-rwxr-xr-x
lua	15.47 KB	-rwxr-xr-x
luac	119.03 KB	-rwxr-xr-x
lwp-download	8.43 KB	-rwxr-xr-x
lwp-dump	2.73 KB	-rwxr-xr-x
lwp-mirror	2.42 KB	-rwxr-xr-x
lwp-request	14.71 KB	-rwxr-xr-x
lynx	1.43 MB	-rwxr-xr-x
lz4	105.87 KB	-rwxr-xr-x
lz4_decompress	627 KB	-rwxr-xr-x
lz4c	105.87 KB	-rwxr-xr-x
lz4cat	105.87 KB	-rwxr-xr-x
lzcat	73.52 KB	-rwxr-xr-x
lzcmp	6.48 KB	-rwxr-xr-x
lzdiff	6.48 KB	-rwxr-xr-x
lzegrep	5.76 KB	-rwxr-xr-x
lzfgrep	5.76 KB	-rwxr-xr-x
lzgrep	5.76 KB	-rwxr-xr-x
lzless	1.76 KB	-rwxr-xr-x
lzma	73.52 KB	-rwxr-xr-x
lzmadec	11.21 KB	-rwxr-xr-x
lzmainfo	11.2 KB	-rwxr-xr-x
lzmore	2.11 KB	-rwxr-xr-x
m4	151.17 KB	-rwxr-xr-x
machinectl	533.93 KB	-rwxr-xr-x
mail	383.67 KB	-rwxr-xr-x
mailstat	5.72 KB	-rwxr-xr-x
mailx	383.67 KB	-rwxr-xr-x
make	178.47 KB	-rwxr-xr-x
makedb	18.11 KB	-rwxr-xr-x
man	100.44 KB	-rwxr-xr-x
mandb	122.25 KB	-rwxr-xr-x
manpath	32.55 KB	-rwxr-xr-x
mapscrn	19.78 KB	-rwxr-xr-x
mcookie	15.44 KB	-rwxr-xr-x
md5sum	40.53 KB	-rwxr-xr-x
mdig	44.2 KB	-rwxr-xr-x
merge	110.43 KB	-rwxr-xr-x
mesg	10.98 KB	-rwxr-xr-x
miniterm.py	25.48 KB	-rwxr-xr-x
mixartloader	15.38 KB	-rwxr-xr-x
mkdir	77.9 KB	-rwxr-xr-x
mkfifo	61.59 KB	-rwxr-xr-x
mkfontdir	65 B	-rwxr-xr-x
mkfontscale	32.48 KB	-rwxr-xr-x
mkinitrd	2.94 KB	-rwxr-xr-x
mknod	65.61 KB	-rwxr-xr-x
mktemp	40.66 KB	-rwxr-xr-x
modutil	165.78 KB	-rwxr-xr-x
mogrify	7.05 KB	-rwxr-xr-x
montage	7.05 KB	-rwxr-xr-x
more	40.15 KB	-rwxr-xr-x
mount	43.23 KB	-rwsr-xr-x
mountpoint	15.32 KB	-rwxr-xr-x
mpstat	56.54 KB	-rwxr-xr-x
msgattrib	23.36 KB	-rwxr-xr-x
msgcat	23.34 KB	-rwxr-xr-x
msgcmp	23.59 KB	-rwxr-xr-x
msgcomm	19.31 KB	-rwxr-xr-x
msgconv	19.3 KB	-rwxr-xr-x
msgen	19.3 KB	-rwxr-xr-x
msgexec	15.33 KB	-rwxr-xr-x
msgfilter	27.56 KB	-rwxr-xr-x
msgfmt	77.05 KB	-rwxr-xr-x
msgfmt.py	6.33 KB	-rwxr-xr-x
msggrep	35.97 KB	-rwxr-xr-x
msghack	12.45 KB	-rwxr-xr-x
msginit	44.38 KB	-rwxr-xr-x
msgmerge	52.6 KB	-rwxr-xr-x
msgunfmt	31.7 KB	-rwxr-xr-x
msguniq	19.31 KB	-rwxr-xr-x
mv	127.3 KB	-rwxr-xr-x
my_print_defaults	8.81 MB	-rwxr-xr-x
myisam_ftdump	11.08 MB	-rwxr-xr-x
myisamchk	11.55 MB	-rwxr-xr-x
myisamlog	7.42 MB	-rwxr-xr-x
myisampack	11.21 MB	-rwxr-xr-x
mysql	12.1 MB	-rwxr-xr-x
mysql_config	840 B	-rwxr-xr-x
mysql_config-64	5.11 KB	-rwxr-xr-x
mysql_config_editor	8.98 MB	-rwxr-xr-x
mysql_install_db	11.44 MB	-rwxr-xr-x
mysql_plugin	8.88 MB	-rwxr-xr-x
mysql_secure_installation	10.71 MB	-rwxr-xr-x
mysql_ssl_rsa_setup	9.23 MB	-rwxr-xr-x
mysql_tzinfo_to_sql	4.99 MB	-rwxr-xr-x
mysql_upgrade	14.18 MB	-rwxr-xr-x
mysqladmin	10.76 MB	-rwxr-xr-x
mysqlbinlog	12.69 MB	-rwxr-xr-x
mysqlcheck	11.04 MB	-rwxr-xr-x
mysqld_pre_systemd	3.74 KB	-rwxr-xr-x
mysqldump	11.13 MB	-rwxr-xr-x
mysqldumpslow	7.66 KB	-rwxr-xr-x
mysqlimport	10.76 MB	-rwxr-xr-x
mysqlpump	20.23 MB	-rwxr-xr-x
mysqlshow	10.72 MB	-rwxr-xr-x
mysqlslap	10.82 MB	-rwxr-xr-x
nail	383.67 KB	-rwxr-xr-x
named-rrchecker	15.32 KB	-rwxr-xr-x
namei	27.95 KB	-rwxr-xr-x
nano	201.08 KB	-rwxr-xr-x
nc	371.27 KB	-rwxr-xr-x
ncat	371.27 KB	-rwxr-xr-x
ncurses5-config	5.68 KB	-rwxr-xr-x
ncursesw5-config	5.68 KB	-rwxr-xr-x
ndptool	23.63 KB	-rwxr-xr-x
needs-restarting	8.17 KB	-rwxr-xr-x
neqn	271 B	-rwxr-xr-x
net-snmp-create-v3-user	2.98 KB	-rwxr-xr-x
netstat	151.38 KB	-rwxr-xr-x
newgidmap	38.09 KB	-rwxr-xr-x
newgrp	40.95 KB	-rwxr-xr-x
newuidmap	38.06 KB	-rwxr-xr-x
nf-ct-add	11.8 KB	-rwxr-xr-x
nf-ct-list	15.84 KB	-rwxr-xr-x
nf-exp-add	16.21 KB	-rwxr-xr-x
nf-exp-delete	15.99 KB	-rwxr-xr-x
nf-exp-list	11.8 KB	-rwxr-xr-x
nf-log	11.23 KB	-rwxr-xr-x
nf-monitor	11.18 KB	-rwxr-xr-x
nf-queue	11.27 KB	-rwxr-xr-x
nfsiostat-sysstat	52.55 KB	-rwxr-xr-x
ngettext	35.95 KB	-rwxr-xr-x
nice	32.32 KB	-rwxr-xr-x
nisdomainname	15.41 KB	-rwxr-xr-x
nl	40.6 KB	-rwxr-xr-x
nl-addr-add	11.65 KB	-rwxr-xr-x
nl-addr-delete	11.73 KB	-rwxr-xr-x
nl-addr-list	15.88 KB	-rwxr-xr-x
nl-class-add	11.7 KB	-rwxr-xr-x
nl-class-delete	11.55 KB	-rwxr-xr-x
nl-class-list	11.48 KB	-rwxr-xr-x
nl-classid-lookup	11.29 KB	-rwxr-xr-x
nl-cls-add	11.76 KB	-rwxr-xr-x
nl-cls-delete	11.68 KB	-rwxr-xr-x
nl-cls-list	11.58 KB	-rwxr-xr-x
nl-fib-lookup	11.41 KB	-rwxr-xr-x
nl-link-enslave	7.05 KB	-rwxr-xr-x
nl-link-ifindex2name	7.06 KB	-rwxr-xr-x
nl-link-list	11.52 KB	-rwxr-xr-x
nl-link-name2ifindex	7.05 KB	-rwxr-xr-x
nl-link-release	7.05 KB	-rwxr-xr-x
nl-link-set	11.64 KB	-rwxr-xr-x
nl-link-stats	11.39 KB	-rwxr-xr-x
nl-list-caches	11.08 KB	-rwxr-xr-x
nl-list-sockets	7.06 KB	-rwxr-xr-x
nl-monitor	11.2 KB	-rwxr-xr-x
nl-neigh-add	11.51 KB	-rwxr-xr-x
nl-neigh-delete	11.57 KB	-rwxr-xr-x
nl-neigh-list	11.46 KB	-rwxr-xr-x
nl-neightbl-list	11.27 KB	-rwxr-xr-x
nl-pktloc-lookup	11.36 KB	-rwxr-xr-x
nl-qdisc-add	11.6 KB	-rwxr-xr-x
nl-qdisc-delete	11.54 KB	-rwxr-xr-x
nl-qdisc-list	11.63 KB	-rwxr-xr-x
nl-route-add	11.73 KB	-rwxr-xr-x
nl-route-delete	15.86 KB	-rwxr-xr-x
nl-route-get	11.18 KB	-rwxr-xr-x
nl-route-list	11.77 KB	-rwxr-xr-x
nl-rule-list	11.3 KB	-rwxr-xr-x
nl-tctree-list	11.53 KB	-rwxr-xr-x
nl-util-addr	7.03 KB	-rwxr-xr-x
nm	45.43 KB	-rwxr-xr-x
nohup	32.42 KB	-rwxr-xr-x
nproc	32.37 KB	-rwxr-xr-x
nroff	3.31 KB	-rwxr-xr-x
nsenter	28.22 KB	-rwxr-xr-x
nslookup	130.93 KB	-rwxr-xr-x
nss-policy-check	15.26 KB	-rwxr-xr-x
nsupdate	65.2 KB	-rwxr-xr-x
numfmt	64.71 KB	-rwxr-xr-x
objcopy	227.34 KB	-rwxr-xr-x
objdump	357.76 KB	-rwxr-xr-x
od	64.81 KB	-rwxr-xr-x
odbc_config	11.04 KB	-rwxr-xr-x
odbcinst	27.69 KB	-rwxr-xr-x
oldfind	186.41 KB	-rwxr-xr-x
open	19.48 KB	-rwxr-xr-x
openssl	542.27 KB	-rwxr-xr-x
openvt	19.48 KB	-rwxr-xr-x
os-prober	5.51 KB	-rwxr-xr-x
p11-kit	32.18 KB	-rwxr-xr-x
package-cleanup	17.39 KB	-rwxr-xr-x
page_owner_sort	10.2 KB	-rwxr-xr-x
pango-list	11.1 KB	-rwxr-xr-x
pango-querymodules-64	28.26 KB	-rwxr-xr-x
pango-view	49.47 KB	-rwxr-xr-x
paperconf	11.23 KB	-rwxr-xr-x
passwd	27.2 KB	-rwsr-xr-x
paste	32.34 KB	-rwxr-xr-x
patch	147 KB	-rwxr-xr-x
pathchk	32.31 KB	-rwxr-xr-x
pchrt	3.93 KB	-rwxr-xr-x
pcre-config	2.09 KB	-rwxr-xr-x
pdf2dsc	698 B	-rwxr-xr-x
pdf2ps	909 B	-rwxr-xr-x
pdns_control	7.58 MB	-rwxr-xr-x
pdnsutil	70.52 MB	-rwxr-xr-x
peekfd	11.21 KB	-rwxr-xr-x
perl	11.14 KB	-rwxr-xr-x
perl5.16.3	11.14 KB	-rwxr-xr-x
perlbug	43.61 KB	-rwxr-xr-x
perldoc	203 B	-rwxr-xr-x
perlivp	10.52 KB	-rwxr-xr-x
perlml	5.98 KB	-rwxr-xr-x
perlthanks	43.61 KB	-rwxr-xr-x
perror	8.95 MB	-rwxr-xr-x
pf2afm	498 B	-rwxr-xr-x
pfbtopfa	516 B	-rwxr-xr-x
pflags	2.06 KB	-rwxr-xr-x
pftp	85.5 KB	-rwxr-xr-x
pgawk	418.59 KB	-rwxr-xr-x
pgrep	27.67 KB	-rwxr-xr-x
php	937 B	-rwxr-xr-x
pic	180.41 KB	-rwxr-xr-x
piconv	7.99 KB	-rwxr-xr-x
pidstat	68.91 KB	-rwxr-xr-x
pinentry	2.54 KB	-rwxr-xr-x
pinentry-curses	49.19 KB	-rwxr-xr-x
ping	64.63 KB	-rwxr-xr-x
ping6	64.63 KB	-rwxr-xr-x
pinky	36.57 KB	-rwxr-xr-x
pip-3	407 B	-rwxr-xr-x
pip-3.6	407 B	-rwxr-xr-x
pip3	407 B	-rwxr-xr-x
pip3.6	407 B	-rwxr-xr-x
pk12util	103.22 KB	-rwxr-xr-x
pkaction	15 KB	-rwxr-xr-x
pkcheck	23.03 KB	-rwxr-xr-x
pkexec	27.02 KB	-rwsr-xr-x
pkg-config	44.38 KB	-rwxr-xr-x
pkill	27.67 KB	-rwxr-xr-x
pkla-admin-identities	19.23 KB	-rwxr-xr-x
pkla-check-authorization	27.3 KB	-rwxr-xr-x
pkttyagent	18.98 KB	-rwxr-xr-x
pl2pm	4.42 KB	-rwxr-xr-x
pldd	14.11 KB	-rwxr-xr-x
plesk_configure	450 B	-rwxr-xr-x
plymouth	39.77 KB	-rwxr-xr-x
pmap	27.61 KB	-rwxr-xr-x
pngtogd	7.05 KB	-rwxr-xr-x
pngtogd2	7.05 KB	-rwxr-xr-x
pod2html	4 KB	-rwxr-xr-x
pod2latex	10.1 KB	-rwxr-xr-x
pod2man	13.26 KB	-rwxr-xr-x
pod2text	10.75 KB	-rwxr-xr-x
pod2usage	3.67 KB	-rwxr-xr-x
podchecker	3.7 KB	-rwxr-xr-x
podselect	2.55 KB	-rwxr-xr-x
post-grohtml	187.55 KB	-rwxr-xr-x
powernow-k8-decode	6.15 KB	-rwxr-xr-x
pphs	404 B	-rwxr-xr-x
pr	65.11 KB	-rwxr-xr-x
pre-grohtml	86.24 KB	-rwxr-xr-x
precat	5.52 KB	-rwxr-xr-x
preconv	40.88 KB	-rwxr-xr-x
preunzip	5.52 KB	-rwxr-xr-x
prezip	5.52 KB	-rwxr-xr-x
prezip-bin	11.05 KB	-rwxr-xr-x
printafm	395 B	-rwxr-xr-x
printenv	28.28 KB	-rwxr-xr-x
printf	48.61 KB	-rwxr-xr-x
prlimit	41.2 KB	-rwxr-xr-x
procan	76.99 KB	-rwxr-xr-x
procmail	105.45 KB	-rwxr-xr-x
prove	13.13 KB	-rwxr-xr-x
prtstat	15.25 KB	-rwxr-xr-x
ps	97.77 KB	-rwxr-xr-x
ps2ascii	631 B	-rwxr-xr-x
ps2epsi	2.69 KB	-rwxr-xr-x
ps2pdf	272 B	-rwxr-xr-x
ps2pdf12	215 B	-rwxr-xr-x
ps2pdf13	215 B	-rwxr-xr-x
ps2pdf14	215 B	-rwxr-xr-x
ps2pdfwr	1.07 KB	-rwxr-xr-x
ps2ps	647 B	-rwxr-xr-x
ps2ps2	669 B	-rwxr-xr-x
psed	52.08 KB	-rwxr-xr-x
psfaddtable	19.48 KB	-rwxr-xr-x
psfgettable	19.48 KB	-rwxr-xr-x
psfstriptable	19.48 KB	-rwxr-xr-x
psfxtable	19.48 KB	-rwxr-xr-x
pstree	27.84 KB	-rwxr-xr-x
pstree.x11	27.84 KB	-rwxr-xr-x
pstruct	35.75 KB	-rwxr-xr-x
ptar	3.43 KB	-rwxr-xr-x
ptardiff	2.41 KB	-rwxr-xr-x
ptargrep	4.13 KB	-rwxr-xr-x
ptaskset	3.8 KB	-rwxr-xr-x
ptx	65.08 KB	-rwxr-xr-x
pure-pw	33.97 KB	-rwxr-xr-x
pure-pwconvert	9.93 KB	-rwxr-xr-x
pure-statsdecode	9.93 KB	-rwxr-xr-x
pwd	32.45 KB	-rwxr-xr-x
pwdx	11.27 KB	-rwxr-xr-x
pwmake	11.13 KB	-rwxr-xr-x
pwscore	11.13 KB	-rwxr-xr-x
pydoc	78 B	-rwxr-xr-x
pydoc3	78 B	-rwxr-xr-x
pydoc3.6	78 B	-rwxr-xr-x
pygettext.py	21.57 KB	-rwxr-xr-x
pynche	137 B	-rwxr-xr-x
python	6.98 KB	-rwxr-xr-x
python-config	1.79 KB	-rwxr-xr-x
python2	6.98 KB	-rwxr-xr-x
python2-config	1.79 KB	-rwxr-xr-x
python2.7	6.98 KB	-rwxr-xr-x
python2.7-config	1.79 KB	-rwxr-xr-x
python3	11.07 KB	-rwxr-xr-x
python3.6	11.07 KB	-rwxr-xr-x
python3.6m	11.07 KB	-rwxr-xr-x
pyvenv	435 B	-rwxr-xr-x
pyvenv-3.6	435 B	-rwxr-xr-x
pyzor	165 B	-rwxr-xr-x
pyzor-migrate	181 B	-rwxr-xr-x
pyzord	167 B	-rwxr-xr-x
qemu-ga	267.8 KB	-rwxr-xr-x
quota	83.31 KB	-rwsr-xr-x
quotasync	70.84 KB	-rwxr-xr-x
ranlib	61.21 KB	-rwxr-xr-x
raw	15.27 KB	-rwxr-xr-x
rcs	175.6 KB	-rwxr-xr-x
rcsclean	819 B	-rwxr-xr-x
rcsdiff	816 B	-rwxr-xr-x
rcsfreeze	4.34 KB	-rwxr-xr-x
rcsmerge	819 B	-rwxr-xr-x
rdate	10.3 KB	-rwxr-xr-x
read	28 B	-rwxr-xr-x
readelf	509.84 KB	-rwxr-xr-x
readlink	40.82 KB	-rwxr-xr-x
realpath	61.23 KB	-rwxr-xr-x
recode-sr-latin	15.29 KB	-rwxr-xr-x
rename	11.26 KB	-rwxr-xr-x
renice	11.21 KB	-rwxr-xr-x
replace	5.16 MB	-rwxr-xr-x
repo-graph	4.09 KB	-rwxr-xr-x
repo-rss	10.07 KB	-rwxr-xr-x
repoclosure	11.42 KB	-rwxr-xr-x
repodiff	13.97 KB	-rwxr-xr-x
repomanage	6.88 KB	-rwxr-xr-x
repoquery	55.68 KB	-rwxr-xr-x
reposync	14.14 KB	-rwxr-xr-x
repotrack	9.86 KB	-rwxr-xr-x
reset	19.59 KB	-rwxr-xr-x
resizecons	19.63 KB	-rwxr-xr-x
resolve_stack_dump	8.88 MB	-rwxr-xr-x
resolveip	8.81 MB	-rwxr-xr-x
rev	11.26 KB	-rwxr-xr-x
rlog	807 B	-rwxr-xr-x
rm	61.4 KB	-rwxr-xr-x
rmdir	44.46 KB	-rwxr-xr-x
rnano	201.08 KB	-rwxr-xr-x
rpcgen	90.45 KB	-rwxr-xr-x
rpm	15.75 KB	-rwxr-xr-x
rpm2cpio	11.16 KB	-rwxr-xr-x
rpmdb	11.73 KB	-rwxr-xr-x
rpmkeys	11.73 KB	-rwxr-xr-x
rpmquery	15.75 KB	-rwxr-xr-x
rpmverify	15.75 KB	-rwxr-xr-x
rsync	488.38 KB	-rwxr-xr-x
rsyslog-recover-qi.pl	5.96 KB	-rwxr-xr-x
run-parts	2.04 KB	-rwxr-xr-x
run-with-aspell	85 B	-rwxr-xr-x
runcon	32.47 KB	-rwxr-xr-x
rvi	906.4 KB	-rwxr-xr-x
rview	906.4 KB	-rwxr-xr-x
rvim	2.23 MB	-rwxr-xr-x
s2p	52.08 KB	-rwxr-xr-x
sadf	168.46 KB	-rwxr-xr-x
sandbox	17.52 KB	-rwxr-xr-x
sar	95.4 KB	-rwxr-xr-x
scl	19.5 KB	-rwxr-xr-x
scl_enabled	258 B	-rwxr-xr-x
scl_source	1.83 KB	-rwxr-xr-x
scp	89.23 KB	-rwxr-xr-x
screen	464.1 KB	-rwxr-sr-x
script	19.61 KB	-rwxr-xr-x
scriptreplay	15.29 KB	-rwxr-xr-x
sdiff	48.41 KB	-rwxr-xr-x
secon	24.06 KB	-rwxr-xr-x
sed	74.29 KB	-rwxr-xr-x
sedismod	249.42 KB	-rwxr-xr-x
sedispol	176.32 KB	-rwxr-xr-x
semodule_package	15.3 KB	-rwxr-xr-x
seq	48.48 KB	-rwxr-xr-x
sessreg	11.24 KB	-rwxr-xr-x
setarch	15.27 KB	-rwxr-xr-x
setfacl	36.73 KB	-rwxr-xr-x
setfont	40.38 KB	-rwxr-xr-x
setkeycodes	11.16 KB	-rwxr-xr-x
setleds	11.16 KB	-rwxr-xr-x
setmetamode	11.21 KB	-rwxr-xr-x
setpriv	36.06 KB	-rwxr-xr-x
setsid	11.23 KB	-rwxr-xr-x
setterm	27.48 KB	-rwxr-xr-x
setup-nsssysinit	1.5 KB	-rwxr-xr-x
setup-nsssysinit.sh	1.5 KB	-rwxr-xr-x
setvtrgb	11.34 KB	-rwxr-xr-x
sftp	142.01 KB	-rwxr-xr-x
sg	40.95 KB	-rwxr-xr-x
sh	941.93 KB	-rwxr-xr-x
sha1sum	36.57 KB	-rwxr-xr-x
sha224sum	40.63 KB	-rwxr-xr-x
sha256sum	40.63 KB	-rwxr-xr-x
sha384sum	40.65 KB	-rwxr-xr-x
sha512sum	40.65 KB	-rwxr-xr-x
shasum	8.4 KB	-rwxr-xr-x
show-changed-rco	10.13 KB	-rwxr-xr-x
show-installed	16.18 KB	-rwxr-xr-x
showconsolefont	15.47 KB	-rwxr-xr-x
showkey	15.23 KB	-rwxr-xr-x
showrgb	7.08 KB	-rwxr-xr-x
shred	52.94 KB	-rwxr-xr-x
shuf	49.13 KB	-rwxr-xr-x
signver	102.6 KB	-rwxr-xr-x
sim_client	14.97 KB	-rwxr-xr-x
size	32.35 KB	-rwxr-xr-x
skill	23.62 KB	-rwxr-xr-x
slabinfo	34.96 KB	-rwxr-xr-x
slabtop	19.52 KB	-rwxr-xr-x
sleep	32.35 KB	-rwxr-xr-x
slogin	760.45 KB	-rwxr-xr-x
smtpd.py	18.1 KB	-rwxr-xr-x
snice	23.62 KB	-rwxr-xr-x
snmpconf	25.52 KB	-rwxr-xr-x
socat	380.43 KB	-rwxr-xr-x
soelim	32.59 KB	-rwxr-xr-x
sort	114.94 KB	-rwxr-xr-x
sotruss	4.24 KB	-rwxr-xr-x
spell	122 B	-rwxr-xr-x
splain	18.03 KB	-rwxr-xr-x
split	69.47 KB	-rwxr-xr-x
sprof	22.1 KB	-rwxr-xr-x
sqlite3	54.95 KB	-rwxr-xr-x
ssh	760.45 KB	-rwxr-xr-x
ssh-add	352.46 KB	-rwxr-xr-x
ssh-agent	373.25 KB	---x--s--x
ssh-copy-id	10.22 KB	-rwxr-xr-x
ssh-keygen	409.38 KB	-rwxr-xr-x
ssh-keyscan	434.7 KB	-rwxr-xr-x
ssltap	118.41 KB	-rwxr-xr-x
stat	77.19 KB	-rwxr-xr-x
stdbuf	64.88 KB	-rwxr-xr-x
strace	1009.22 KB	-rwxr-xr-x
strace-log-merge	1.28 KB	-rwxr-xr-x
stream	7.05 KB	-rwxr-xr-x
strings	36.53 KB	-rwxr-xr-x
strip	227.32 KB	-rwxr-xr-x
stty	68.61 KB	-rwxr-xr-x
su	31.38 KB	-rwsr-x---
sudo	147.88 KB	---s--x--x
sudoedit	147.88 KB	---s--x--x
sudoreplay	56.11 KB	---x--x--x
sum	36.55 KB	-rwxr-xr-x
sxpm	19.83 KB	-rwxr-xr-x
sync	28.33 KB	-rwxr-xr-x
systemctl	704.8 KB	-rwxr-xr-x
systemd-analyze	1.49 MB	-rwxr-xr-x
systemd-ask-password	60.38 KB	-rwxr-xr-x
systemd-cat	39.98 KB	-rwxr-xr-x
systemd-cgls	326.31 KB	-rwxr-xr-x
systemd-cgtop	85.09 KB	-rwxr-xr-x
systemd-coredumpctl	154.52 KB	-rwxr-xr-x
systemd-delta	76.84 KB	-rwxr-xr-x
systemd-detect-virt	39.97 KB	-rwxr-xr-x
systemd-escape	48.2 KB	-rwxr-xr-x
systemd-firstboot	101.52 KB	-rwxr-xr-x
systemd-hwdb	85.31 KB	-rwxr-xr-x
systemd-inhibit	309.83 KB	-rwxr-xr-x
systemd-loginctl	489.6 KB	-rwxr-xr-x
systemd-machine-id-setup	52.23 KB	-rwxr-xr-x
systemd-notify	48.13 KB	-rwxr-xr-x
systemd-nspawn	545.88 KB	-rwxr-xr-x
systemd-path	52.16 KB	-rwxr-xr-x
systemd-run	387.05 KB	-rwxr-xr-x
systemd-stdio-bridge	305.77 KB	-rwxr-xr-x
systemd-sysv-convert	3.89 KB	-rwxr-xr-x
systemd-tmpfiles	146.13 KB	-rwxr-xr-x
systemd-tty-ask-password-agent	84.75 KB	-rwxr-xr-x
tabs	15.3 KB	-rwxr-xr-x
tac	32.48 KB	-rwxr-xr-x
tail	65.25 KB	-rwxr-xr-x
tailf	23.88 KB	-rwxr-xr-x
tapestat	52.56 KB	-rwxr-xr-x
tar	338.02 KB	-rwxr-xr-x
taskset	32.22 KB	-rwxr-xr-x
tbl	115.96 KB	-rwxr-xr-x
tcamgr	23.47 KB	-rwxr-xr-x
tcamttest	19.37 KB	-rwxr-xr-x
tcatest	52.78 KB	-rwxr-xr-x
tcbmgr	27.66 KB	-rwxr-xr-x
tcbmttest	47.96 KB	-rwxr-xr-x
tcbtest	64.47 KB	-rwxr-xr-x
tcfmgr	19.5 KB	-rwxr-xr-x
tcfmttest	31.79 KB	-rwxr-xr-x
tcftest	43.86 KB	-rwxr-xr-x
tchmgr	23.52 KB	-rwxr-xr-x
tchmttest	43.87 KB	-rwxr-xr-x
tchtest	52.29 KB	-rwxr-xr-x
tclsh	7 KB	-rwxr-xr-x
tclsh8.5	7 KB	-rwxr-xr-x
tcptraceroute	1.44 KB	-rwxr-xr-x
tctmgr	31.82 KB	-rwxr-xr-x
tctmttest	39.72 KB	-rwxr-xr-x
tcttest	51.9 KB	-rwxr-xr-x
tcucodec	31.75 KB	-rwxr-xr-x
tcumttest	19.52 KB	-rwxr-xr-x
tcutest	65.61 KB	-rwxr-xr-x
teamd	155.09 KB	-rwxr-xr-x
teamdctl	28.98 KB	-rwxr-xr-x
teamnl	19.09 KB	-rwxr-xr-x
tee	32.38 KB	-rwxr-xr-x
telnet	99.41 KB	-rwxr-xr-x
test	36.46 KB	-rwxr-xr-x
testgdbm	29.77 KB	-rwxr-xr-x
tic	64.26 KB	-rwxr-xr-x
timedatectl	330.2 KB	-rwxr-xr-x
timeout	53.31 KB	-rwxr-xr-x
tload	15.38 KB	-rwxr-xr-x
tmon	31.11 KB	-rwxr-xr-x
tmpwatch	27.87 KB	-rwxr-xr-x
toe	15.42 KB	-rwxr-xr-x
top	104.38 KB	-rwxr-xr-x
touch	61.02 KB	-rwxr-xr-x
tput	15.43 KB	-rwxr-xr-x
tr	44.61 KB	-rwxr-xr-x
tracepath	15.05 KB	-rwxr-xr-x
tracepath6	15.05 KB	-rwxr-xr-x
traceroute	61.86 KB	-rwxr-xr-x
traceroute6	61.86 KB	-rwxr-xr-x
troff	512.96 KB	-rwxr-xr-x
true	28.26 KB	-rwxr-xr-x
truncate	52.68 KB	-rwxr-xr-x
trust	179.08 KB	-rwxr-xr-x
tset	19.59 KB	-rwxr-xr-x
tsort	36.47 KB	-rwxr-xr-x
tty	28.29 KB	-rwxr-xr-x
turbostat	113.15 KB	-rwxr-xr-x
tzselect	7.17 KB	-rwxr-xr-x
uapi	3.02 MB	-rwxr-xr-x
ucs2any	19.47 KB	-rwxr-xr-x
udevadm	414.27 KB	-rwxr-xr-x
ul	19.47 KB	-rwxr-xr-x
umask	29 B	-rwxr-xr-x
umount	31.23 KB	-rwsr-xr-x
unalias	31 B	-rwxr-xr-x
uname	32.3 KB	-rwxr-xr-x
unexpand	32.45 KB	-rwxr-xr-x
unicode_start	2.5 KB	-rwxr-xr-x
unicode_stop	363 B	-rwxr-xr-x
uniq	44.71 KB	-rwxr-xr-x
unix-lpr.sh	4.07 KB	-rwxr-xr-x
unlink	28.3 KB	-rwxr-xr-x
unlz4	105.87 KB	-rwxr-xr-x
unlzma	73.52 KB	-rwxr-xr-x
unshare	15.45 KB	-rwxr-xr-x
unxz	73.52 KB	-rwxr-xr-x
unzip	185.16 KB	-rwxr-xr-x
unzipsfx	88.66 KB	-rwxr-xr-x
update-ca-trust	1.03 KB	-rwxr-xr-x
update-mime-database	52.82 KB	-rwxr-xr-x
uptime	11.22 KB	-rwxr-xr-x
urlgrabber	12.17 KB	-rwxr-xr-x
users	32.42 KB	-rwxr-xr-x
usleep	10.95 KB	-rwxr-xr-x
usx2yloader	15.41 KB	-rwxr-xr-x
utmpdump	15.45 KB	-rwxr-xr-x
uuclient	14.97 KB	-rwxr-xr-x
uuidgen	11.21 KB	-rwxr-xr-x
vdir	114.85 KB	-rwxr-xr-x
verifytree	10.79 KB	-rwxr-xr-x
vi	906.4 KB	-rwxr-xr-x
view	906.4 KB	-rwxr-xr-x
vim	2.23 MB	-rwxr-xr-x
vimdiff	2.23 MB	-rwxr-xr-x
vimtutor	2.04 KB	-rwxr-xr-x
vlock	15.73 KB	-rwxr-xr-x
vmstat	31.48 KB	-rwxr-xr-x
vxloader	15.38 KB	-rwxr-xr-x
w	19.45 KB	-rwxr-xr-x
wait	28 B	-rwxr-xr-x
wall	14.98 KB	-r-xr-sr-x
watch	24.14 KB	-rwxr-xr-x
watchgnupg	15.35 KB	-rwxr-xr-x
wc	40.67 KB	-rwxr-xr-x
wdctl	40.7 KB	-rwxr-xr-x
webpng	11.15 KB	-rwxr-xr-x
wget	408.97 KB	-rwxr-xr-x
whatis	45.49 KB	-rwxr-xr-x
whereis	20.2 KB	-rwxr-xr-x
which	23.77 KB	-rwxr-xr-x
whiptail	27.84 KB	-rwxr-xr-x
who	48.7 KB	-rwxr-xr-x
whoami	28.3 KB	-rwxr-xr-x
wish	7.04 KB	-rwxr-xr-x
wish8.5	7.04 KB	-rwxr-xr-x
wmf2eps	15.29 KB	-rwxr-xr-x
wmf2fig	15.27 KB	-rwxr-xr-x
wmf2gd	15.26 KB	-rwxr-xr-x
wmf2svg	15.3 KB	-rwxr-xr-x
wmf2x	15.25 KB	-rwxr-xr-x
word-list-compress	11.03 KB	-rwxr-xr-x
write	19.09 KB	-rwxr-sr-x
x86_64	15.27 KB	-rwxr-xr-x
x86_64-redhat-linux-c++	754.59 KB	-rwxr-xr-x
x86_64-redhat-linux-g++	754.59 KB	-rwxr-xr-x
x86_64-redhat-linux-gcc	750.59 KB	-rwxr-xr-x
x86_energy_perf_policy	10.23 KB	-rwxr-xr-x
xargs	60.91 KB	-rwxr-xr-x
xgamma	11.15 KB	-rwxr-xr-x
xgettext	265.35 KB	-rwxr-xr-x
xhost	15.38 KB	-rwxr-xr-x
xinput	52.81 KB	-rwxr-xr-x
xkill	15.27 KB	-rwxr-xr-x
xml2-config	1.68 KB	-rwxr-xr-x
xmlcatalog	15.3 KB	-rwxr-xr-x
xmllint	61.94 KB	-rwxr-xr-x
xmlwf	24 KB	-rwxr-xr-x
xmodmap	32.28 KB	-rwxr-xr-x
xorg-x11-fonts-update-dirs	1.29 KB	-rwxr--r--
xrandr	60.06 KB	-rwxr-xr-x
xrdb	27.78 KB	-rwxr-xr-x
xrefresh	11.16 KB	-rwxr-xr-x
xset	31.72 KB	-rwxr-xr-x
xsetmode	11.1 KB	-rwxr-xr-x
xsetpointer	11.13 KB	-rwxr-xr-x
xsetroot	19.38 KB	-rwxr-xr-x
xslt-config	2.36 KB	-rwxr-xr-x
xsltproc	23.5 KB	-rwxr-xr-x
xstdcmap	15.77 KB	-rwxr-xr-x
xsubpp	4.45 KB	-rwxr-xr-x
xxd	14.42 KB	-rwxr-xr-x
xz	73.52 KB	-rwxr-xr-x
xzcat	73.52 KB	-rwxr-xr-x
xzcmp	6.48 KB	-rwxr-xr-x
xzdec	11.21 KB	-rwxr-xr-x
xzdiff	6.48 KB	-rwxr-xr-x
xzegrep	5.76 KB	-rwxr-xr-x
xzfgrep	5.76 KB	-rwxr-xr-x
xzgrep	5.76 KB	-rwxr-xr-x
xzless	1.76 KB	-rwxr-xr-x
xzmore	2.11 KB	-rwxr-xr-x
yes	28.3 KB	-rwxr-xr-x
ypdomainname	15.41 KB	-rwxr-xr-x
yum	801 B	-rwxr-xr-x
yum-builddep	9.95 KB	-rwxr-xr-x
yum-config-manager	9.35 KB	-rwxr-xr-x
yum-debug-dump	8.34 KB	-rwxr-xr-x
yum-debug-restore	7.72 KB	-rwxr-xr-x
yum-groups-manager	10.77 KB	-rwxr-xr-x
yumdownloader	10.85 KB	-rwxr-xr-x
zcat	1.9 KB	-rwxr-xr-x
zcmp	1.72 KB	-rwxr-xr-x
zdiff	5.63 KB	-rwxr-xr-x
zegrep	123 B	-rwxr-xr-x
zfgrep	123 B	-rwxr-xr-x
zforce	2.09 KB	-rwxr-xr-x
zgrep	5.98 KB	-rwxr-xr-x
zip	210.78 KB	-rwxr-xr-x
zipcloak	98.1 KB	-rwxr-xr-x
zipcmp	11.71 KB	-rwxr-xr-x
zipdetails	47.32 KB	-rwxr-xr-x
zipgrep	2.88 KB	-rwxr-xr-x
zipinfo	185.16 KB	-rwxr-xr-x
zipmerge	11.76 KB	-rwxr-xr-x
zipnote	93.73 KB	-rwxr-xr-x
zipsplit	97.75 KB	-rwxr-xr-x
ziptorrent	11.6 KB	-rwxr-xr-x
zless	1.99 KB	-rwxr-xr-x
zlib_decompress	164.46 KB	-rwxr-xr-x
zmore	2.79 KB	-rwxr-xr-x
znew	5.22 KB	-rwxr-xr-x
zone2json	21.39 MB	-rwxr-xr-x
zone2sql	21.88 MB	-rwxr-xr-x
zsoelim	32.59 KB	-rwxr-xr-x

Code Editor : perlbug

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

my $config_tag1 = '5.16.3 - Wed Oct 25 12:40:04 UTC 2023';

my $patchlevel_date = 1698237603;
my $patch_tags = '+Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +Fedora +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL +RHEL ';
my @patches = (
    'Fedora Patch1: Removes date check, Fedora/RHEL specific',
    'Fedora Patch3: support for libdir64',
    'Fedora Patch4: use libresolv instead of libbind',
    'Fedora Patch5: USE_MM_LD_RUN_PATH',
    'Fedora Patch6: Skip hostname tests, due to builders not being network capable',
    'Fedora Patch7: Dont run one io test due to random builder failures',
    'Fedora Patch9: Fix find2perl to translate ? glob properly (RT#113054)',
    'Fedora Patch10: Fix broken atof (RT#109318)',
    'Fedora Patch13: Clear $@ before \\"do\\" I/O error (RT#113730)',
    'Fedora Patch14: Do not truncate syscall() return value to 32 bits (RT#113980)',
    'Fedora Patch15: Override the Pod::Simple::parse_file (CPANRT#77530)',
    'Fedora Patch16: Do not leak with attribute on my variable (RT#114764)',
    'Fedora Patch17: Allow operator after numeric keyword argument (RT#105924)',
    'Fedora Patch18: Extend stack in File::Glob::glob, (RT#114984)',
    'Fedora Patch19: Do not crash when vivifying $|',
    'Fedora Patch20: Fix misparsing of maketext strings (CVE-2012-6329)',
    'Fedora Patch21: Add NAME headings to CPAN modules (CPANRT#73396)',
    'Fedora Patch22: Fix leaking tied hashes (RT#107000) [1]',
    'Fedora Patch23: Fix leaking tied hashes (RT#107000) [2]',
    'Fedora Patch24: Fix leaking tied hashes (RT#107000) [3]',
    'Fedora Patch25: Fix dead lock in PerlIO after fork from thread (RT#106212)',
    'Fedora Patch26: Make regexp safe in a signal handler (RT#114878)',
    'Fedora Patch27: Update h2ph(1) documentation (RT#117647)',
    'Fedora Patch28: Update pod2html(1) documentation (RT#117623)',
    'Fedora Patch29: Document Math::BigInt::CalcEmu requires Math::BigInt (CPAN RT#85015)',
    'RHEL Patch30: Use stronger algorithm needed for FIPS in t/op/crypt.t (RT#121591)',
    'RHEL Patch31: Make *DBM_File desctructors thread-safe (RT#61912)',
    'RHEL Patch32: Use stronger algorithm needed for FIPS in t/op/taint.t (RT#123338)',
    'RHEL Patch33: Remove CPU-speed-sensitive test in Benchmark test',
    'RHEL Patch34: Make File::Glob work with threads again',
    'RHEL Patch35: Fix CRLF conversion in ASCII FTP upload (CPAN RT#41642)',
    'RHEL Patch36: Do not leak the temp utf8 copy of namepv (CPAN RT#123786)',
    'RHEL Patch37: Fix duplicating PerlIO::encoding when spawning threads (RT#31923)',
    'RHEL Patch38: Add SSL support to Net::SMTP (CPAN RT#93823) [1]',
    'RHEL Patch39: Add SSL support to Net::SMTP (CPAN RT#93823) [2]',
    'RHEL Patch40: Add SSL support to Net::SMTP (CPAN RT#93823) [3]',
    'RHEL Patch41: Add SSL support to Net::SMTP (CPAN RT#93823) [4]',
    'RHEL Patch42: Do not overload \\"..\\" in Math::BigInt (CPAN RT#80182)',
    'RHEL Patch43: Fix CVE-2018-18311 Integer overflow leading to buffer overflow',
    'RHEL Patch44: Fix a spurious timeout in Net::FTP::close (CPAN RT#18504)',
    'RHEL Patch45: Fix day of year parsing (CPAN RT#88211)',
    'RHEL Patch47: Fix CVE-2020-12723 (GH#16947)',
    'RHEL Patch48: Fix CVE-2020-10543',
    'RHEL Patch49: Fix CVE-2020-10878'
);

use warnings;
use strict;
use Config;
use File::Spec;		# keep perlbug Perl 5.005 compatible
use Getopt::Std;
use File::Basename 'basename';

sub paraprint;

BEGIN {
    eval { require Mail::Send;};
    $::HaveSend = ($@ eq "");
    eval { require Mail::Util; } ;
    $::HaveUtil = ($@ eq "");
    # use secure tempfiles wherever possible
    eval { require File::Temp; };
    $::HaveTemp = ($@ eq "");
    eval { require Module::CoreList; };
    $::HaveCoreList = ($@ eq "");
};

my $Version = "1.39";

#TODO:
#       make sure failure (transmission-wise) of Mail::Send is accounted for.
#       (This may work now. Unsure of the original author's issue -JESSE 2008-06-08)
#       - Test -b option

my( $file, $usefile, $cc, $address, $bugaddress, $testaddress, $thanksaddress,
    $filename, $messageid, $domain, $subject, $from, $verbose, $ed, $outfile,
    $fh, $me, $body, $andcc, %REP, $ok, $thanks, $progname,
    $Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,
    $report_about_module, $category, $severity,
    %opt,
);

my $perl_version = $^V ? sprintf("%vd", $^V) : $];

my $config_tag2 = "$perl_version - $Config{cf_time}";

Init();

if ($opt{h}) { Help(); exit; }
if ($opt{d}) { Dump(*STDOUT); exit; }
if (!-t STDIN && !($ok and not $opt{n})) {
    paraprint <<"EOF";
Please use $progname interactively. If you want to
include a file, you can use the -f switch.
EOF
    die "\n";
}

Query();
Edit() unless $usefile || ($ok and not $opt{n});
NowWhat();
if ($outfile) {
    save_message_to_disk($outfile);
} else {
    Send();
    if ($thanks) {
	print "\nThank you for taking the time to send a thank-you message!\n\n";
    } else {
	print "\nThank you for taking the time to file a bug report!\n\n";
    }
}

exit;

sub ask_for_alternatives { # (category|severity)
    my $name = shift;
    my %alts = (
	'category' => {
	    'default' => 'core',
	    'ok'      => 'install',
	    # Inevitably some of these will end up in RT whatever we do:
	    'thanks'  => 'thanks',
	    'opts'    => [qw(core docs install library utilities)], # patch, notabug
	},
	'severity' => {
	    'default' => 'low',
	    'ok'      => 'none',
	    'thanks'  => 'none',
	    'opts'    => [qw(critical high medium low wishlist none)], # zero
	},
    );
    die "Invalid alternative ($name) requested\n" unless grep(/^$name$/, keys %alts);
    my $alt = "";
    my $what = $ok || $thanks;
    if ($what) {
	$alt = $alts{$name}{$what};
    } else {
 	my @alts = @{$alts{$name}{'opts'}};
    print "\n\n";
	paraprint <<EOF;
Please pick a $name from the following list:

@alts
EOF
	my $err = 0;
	do {
	    if ($err++ > 5) {
		die "Invalid $name: aborting.\n";
	    }
        $alt = _prompt('', "\u$name", $alts{$name}{'default'});
		$alt ||= $alts{$name}{'default'};
	} while !((($alt) = grep(/^$alt/i, @alts)));
    }
    lc $alt;
}

sub Init {
    # -------- Setup --------

$Is_MSWin32 = $^O eq 'MSWin32';
    $Is_VMS = $^O eq 'VMS';
    $Is_Linux = lc($^O) eq 'linux';
    $Is_OpenBSD = lc($^O) eq 'openbsd';

if (!getopts("Adhva:s:b:f:F:r:e:SCc:to:n:T", \%opt)) { Help(); exit; };

# This comment is needed to notify metaconfig that we are
    # using the $perladmin, $cf_by, and $cf_time definitions.

# -------- Configuration ---------

# perlbug address
    $bugaddress = 'perlbug@perl.org';

# Test address
    $testaddress = 'perlbug-test@perl.org';

# Thanks address
    $thanksaddress = 'perl-thanks@perl.org';

if (basename ($0) =~ /^perlthanks/i) {
	# invoked as perlthanks
	$opt{T} = 1;
	$opt{C} = 1; # don't send a copy to the local admin
    }

if ($opt{T}) {
	$thanks = 'thanks';
    }
    
    $progname = $thanks ? 'perlthanks' : 'perlbug';
    # Target address
    $address = $opt{a} || ($opt{t} ? $testaddress
			    : $thanks ? $thanksaddress : $bugaddress);

# Users address, used in message and in From and Reply-To headers
    $from = $opt{r} || "";

# Include verbose configuration information
    $verbose = $opt{v} || 0;

# Subject of bug-report message
    $subject = $opt{s} || "";

# Send a file
    $usefile = ($opt{f} || 0);

# File to send as report
    $file = $opt{f} || "";

# File to output to
    $outfile = $opt{F} || "";

# Body of report
    $body = $opt{b} || "";
	
    # Editor
    $ed = $opt{e} || $ENV{VISUAL} || $ENV{EDITOR} || $ENV{EDIT}
	|| ($Is_VMS && "edit/tpu")
	|| ($Is_MSWin32 && "notepad")
	|| "vi";

# Not OK - provide build failure template by finessing OK report
    if ($opt{n}) {
	if (substr($opt{n}, 0, 2) eq 'ok' )	{
	    $opt{o} = substr($opt{n}, 1);
	} else {
	    Help();
	    exit();
	}
    }

# OK - send "OK" report for build on this system
    $ok = '';
    if ($opt{o}) {
	if ($opt{o} eq 'k' or $opt{o} eq 'kay') {
	    # force these options
	    unless ($opt{n}) {
		$opt{S} = 1; # don't prompt for send
		$opt{b} = 1; # we have a body
		$body = "Perl reported to build OK on this system.\n";
	    }
	    $opt{C} = 1; # don't send a copy to the local admin
	    $opt{s} = 1; # we have a subject line
	    $subject = ($opt{n} ? 'Not ' : '')
		    . "OK: perl $perl_version ${patch_tags}on"
		    ." $::Config{'archname'} $::Config{'osvers'} $subject";
	    $ok = 'ok';
	} else {
	    Help();
	    exit();
	}
    }

# Possible administrator addresses, in order of confidence
    # (Note that cf_email is not mentioned to metaconfig, since
    # we don't really want it. We'll just take it if we have to.)
    #
    # This has to be after the $ok stuff above because of the way
    # that $opt{C} is forced.
    $cc = $opt{C} ? "" : (
	$opt{c} || $::Config{'perladmin'}
	|| $::Config{'cf_email'} || $::Config{'cf_by'}
    );

if ($::HaveUtil) {
		$domain = Mail::Util::maildomain();
    } elsif ($Is_MSWin32) {
		$domain = $ENV{'USERDOMAIN'};
    } else {
		require Sys::Hostname;
		$domain = Sys::Hostname::hostname();
    }

# Message-Id - rjsf
    $messageid = "<$::Config{'version'}_${$}_".time."\@$domain>";

# My username
    $me = $Is_MSWin32 ? $ENV{'USERNAME'}
	    : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
	    : eval { getpwuid($<) };	# May be missing

$from = $::Config{'cf_email'}
       if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me &&
               ($me eq $::Config{'cf_by'});
} # sub Init

sub Query {
    # Explain what perlbug is
    unless ($ok) {
	if ($thanks) {
	    paraprint <<'EOF';
This program provides an easy way to send a thank-you message back to the
authors and maintainers of perl.

If you wish to submit a bug report, please run it without the -T flag
(or run the program perlbug rather than perlthanks)
EOF
	} else {
	    paraprint <<"EOF";
This program provides an easy way to create a message reporting a
bug in the core perl distribution (along with tests or patches)
to the volunteers who maintain perl at $address.  To send a thank-you
note to $thanksaddress instead of a bug report, please run 'perlthanks'.

Please do not use $0 to send test messages, test whether perl
works, or to report bugs in perl modules from CPAN.

For help using perl, try posting to the Usenet newsgroup 
comp.lang.perl.misc.
EOF
	}
    }

# Prompt for subject of message, if needed
    
    if ($subject && TrivialSubject($subject)) {
	$subject = '';
    }

unless ($subject) {
	    print 
"First of all, please provide a subject for the message.\n";
	if ( not $thanks)  {
	    paraprint <<EOF;
This should be a concise description of your bug or problem
which will help the volunteers working to improve perl to categorize
and resolve the issue.  Be as specific and descriptive as
you can. A subject like "perl bug" or "perl problem" will make it
much less likely that your issue gets the attention it deserves.
EOF
	}

my $err = 0;
	do {
        $subject = _prompt('','Subject');
	    if ($err++ == 5) {
		if ($thanks) {
		    $subject = 'Thanks for Perl';
		} else {
		    die "Aborting.\n";
		}
	    }
	} while (TrivialSubject($subject));
    }

# Prompt for return address, if needed
    unless ($opt{r}) {
	# Try and guess return address
	my $guess;

$guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || $ENV{'EMAIL'}
	    || $from || '';

unless ($guess) {
		# move $domain to where we can use it elsewhere	
        if ($domain) {
		if ($Is_VMS && !$::Config{'d_socket'}) {
		    $guess = "$domain\:\:$me";
		} else {
		    $guess = "$me\@$domain" if $domain;
		}
	    }
	}

if ($guess) {
	    unless ($ok) {
		paraprint <<EOF;
Perl's developers may need your email address to contact you for
further information about your issue or to inform you when it is
resolved.  If the default shown is not your email address, please
correct it.
EOF
	    }
	} else {
	    paraprint <<EOF;
Please enter your full internet email address so that Perl's
developers can contact you with questions about your issue or to
inform you that it has been resolved.
EOF
	}

if ($ok && $guess) {
	    # use it
	    $from = $guess;
	} else {
	    # verify it
        $from = _prompt('','Your address',$guess);
	    $from = $guess if $from eq '';
	}
    }

if ($from eq $cc or $me eq $cc) {
	# Try not to copy ourselves
	$cc = "yourself";
    }

# Prompt for administrator address, unless an override was given
    if( !$opt{C} and !$opt{c} ) {
	my $description =  <<EOF;
$0 can send a copy of this report to your local perl
administrator.  If the address below is wrong, please correct it,
or enter 'none' or 'yourself' to not send a copy.
EOF
	my $entry = _prompt($description, "Local perl administrator", $cc);

if ($entry ne "") {
	    $cc = $entry;
	    $cc = '' if $me eq $cc;
	}
    }

$cc = '' if $cc =~ /^(none|yourself|me|myself|ourselves)$/i;
    if ($cc) { 
        $andcc = " and $cc" 
    } else {
        $andcc = ''
    }

# Prompt for editor, if no override is given
editor:
    unless ($opt{e} || $opt{f} || $opt{b}) {

my $description;

chomp (my $common_end = <<"EOF");
You will probably want to use a text editor to enter the body of
your report. If "$ed" is the editor you want to use, then just press
Enter, otherwise type in the name of the editor you would like to
use.

If you have already composed the body of your report, you may enter
"file", and $0 will prompt you to enter the name of the file
containing your report.
EOF

if ($thanks) {
	    $description = <<"EOF";
It's now time to compose your thank-you message.

Some information about your local perl configuration will automatically
be included at the end of your message, because we're curious about
the different ways that people build and use perl. If you'd rather
not share this information, you're welcome to delete it.

$common_end
EOF
	} else {
	    $description =  <<"EOF";
It's now time to compose your bug report. Try to make the report
concise but descriptive. Please include any detail which you think
might be relevant or might help the volunteers working to improve
perl. If you are reporting something that does not work as you think
it should, please try to include examples of the actual result and of
what you expected.

Some information about your local perl configuration will automatically
be included at the end of your report. If you are using an unusual
version of perl, it would be useful if you could confirm that you
can replicate the problem on a standard build of perl as well.

$common_end
EOF
	}

my $entry = _prompt($description, "Editor", $ed);
	$usefile = 0;
	if ($entry eq "file") {
	    $usefile = 1;
	} elsif ($entry ne "") {
	    $ed = $entry;
	}
    }
    if ($::HaveCoreList && !$ok && !$thanks) {
	my $description =  <<EOF;
If your bug is about a Perl module rather than a core language
feature, please enter its name here. If it's not, just hit Enter
to skip this question.
EOF

my $entry = '';
	while ($entry eq '') {
        $entry = _prompt($description, 'Module');
	    my $first_release = Module::CoreList->first_release($entry);
	    if ($entry and not $first_release) {
		paraprint <<EOF;
$entry is not a "core" Perl module. Please check that you entered
its name correctly. If it is correct, quit this program, try searching
for $entry on http://rt.cpan.org, and report your issue there.
EOF

$entry = '';
	} elsif (my $bug_tracker = $Module::CoreList::bug_tracker{$entry}) {
		paraprint <<"EOF";
$entry included with core Perl is copied directly from the CPAN distribution.
Please report bugs in $entry directly to its maintainers using $bug_tracker
EOF
            $entry = '';
        } elsif ($entry) {
	        $category ||= 'library';
	        $report_about_module = $entry;
            last;
        } else {
            last;
        }
	}
    }

# Prompt for category of bug
    $category ||= ask_for_alternatives('category');

# Prompt for severity of bug
    $severity ||= ask_for_alternatives('severity');

# Generate scratch file to edit report in
    $filename = filename();

# Prompt for file to read report from, if needed
    if ($usefile and !$file) {
filename:
	my $description = <<EOF;
What is the name of the file that contains your report?
EOF
	my $entry = _prompt($description, "Filename");

if ($entry eq "") {
	    paraprint <<EOF;
It seems you didn't enter a filename. Please choose to use a text
editor or enter a filename.
EOF
	    goto editor;
	}

unless (-f $entry and -r $entry) {
	    paraprint <<EOF;
'$entry' doesn't seem to be a readable file.  You may have mistyped
its name or may not have permission to read it.

If you don't want to use a file as the content of your report, just
hit Enter and you'll be able to select a text editor instead.
EOF
	    goto filename;
	}
	$file = $entry;
    }

# Generate report
    open(REP,">$filename") or die "Unable to create report file '$filename': $!\n";
    my $reptype = !$ok ? ($thanks ? 'thank-you' : 'bug')
	: $opt{n} ? "build failure" : "success";

print REP <<EOF;
This is a $reptype report for perl from $from,
generated with the help of perlbug $Version running under perl $perl_version.

EOF

if ($body) {
	print REP $body;
    } elsif ($usefile) {
	open(F, "<$file")
		or die "Unable to read report file from '$file': $!\n";
	while (<F>) {
	    print REP $_
	}
	close(F) or die "Error closing '$file': $!";
    } else {
	if ($thanks) {
	    print REP <<'EOF';

-----------------------------------------------------------------
[Please enter your thank-you message here]

[You're welcome to delete anything below this line]
-----------------------------------------------------------------
EOF
	} else {
	    print REP <<'EOF';

-----------------------------------------------------------------
[Please describe your issue here]

[Please do not change anything below this line]
-----------------------------------------------------------------
EOF
	}
    }
    Dump(*REP);
    close(REP) or die "Error closing report file: $!";

# Set up an initial report fingerprint so we can compare it later
    _fingerprint_lines_in_report();

} # sub Query

sub Dump {
    local(*OUT) = @_;

# these won't have been set if run with -d
    $category ||= 'core';
    $severity ||= 'low';

print OUT <<EFF;
---
Flags:
    category=$category
    severity=$severity
EFF

if ($report_about_module ) { 
        print OUT <<EFF;
    module=$report_about_module
EFF
    }
    if ($opt{A}) {
	print OUT <<EFF;
    ack=no
EFF
    }
    print OUT <<EFF;
---
EFF
    print OUT "This perlbug was built using Perl $config_tag1\n",
	    "It is being executed now by  Perl $config_tag2.\n\n"
	if $config_tag2 ne $config_tag1;

print OUT <<EOF;
Site configuration information for perl $perl_version:

EOF
    if ($::Config{cf_by} and $::Config{cf_time}) {
	print OUT "Configured by $::Config{cf_by} at $::Config{cf_time}.\n\n";
    }
    print OUT Config::myconfig;

if (@patches) {
	print OUT join "\n    ", "Locally applied patches:", @patches;
	print OUT "\n";
    };

print OUT <<EOF;

---
\@INC for perl $perl_version:
EOF
    for my $i (@INC) {
	print OUT "    $i\n";
    }

print OUT <<EOF;

---
Environment for perl $perl_version:
EOF
    my @env =
        qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE);
    push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne '';
    push @env, grep /^(?:PERL|LC_|LANG|CYGWIN)/, keys %ENV;
    my %env;
    @env{@env} = @env;
    for my $env (sort keys %env) {
	print OUT "    $env",
		exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)',
		"\n";
    }
    if ($verbose) {
	print OUT "\nComplete configuration data for perl $perl_version:\n\n";
	my $value;
	foreach (sort keys %::Config) {
	    $value = $::Config{$_};
	    $value = '' unless defined $value;
	    $value =~ s/'/\\'/g;
	    print OUT "$_='$value'\n";
	}
    }
} # sub Dump

sub Edit {
    # Edit the report
    if ($usefile || $body) {
	my $description = "Please make sure that the name of the editor you want to use is correct.";
	my $entry = _prompt($description, 'Editor', $ed);
	$ed = $entry unless $entry eq '';
    }

_edit_file($ed);
}

sub _edit_file {
    my $editor = shift;

my $report_written = 0;

while ( !$report_written ) {
        my $exit_status = system("$editor $filename");
        if ($exit_status) {
            my $desc = <<EOF;
The editor you chose ('$editor') could not be run!

If you mistyped its name, please enter it now, otherwise just press Enter.
EOF
            my $entry = _prompt( $desc, 'Editor', $editor );
            if ( $entry ne "" ) {
                $editor = $entry;
                next;
            } else {
                paraprint <<EOF;
You may want to save your report to a file, so you can edit and
mail it later.
EOF
                return;
            }
        }
        return if ( $ok and not $opt{n} ) || $body;

# Check that we have a report that has some, eh, report in it.

unless ( _fingerprint_lines_in_report() ) {
            my $description = <<EOF;
It looks like you didn't enter a report. You may [r]etry your edit
or [c]ancel this report.
EOF
            my $action = _prompt( $description, "Action (Retry/Cancel) " );
            if ( $action =~ /^[re]/i ) {    # <R>etry <E>dit
                next;
            } elsif ( $action =~ /^[cq]/i ) {    # <C>ancel, <Q>uit
                Cancel();                        # cancel exits
            }
        }
        # Ok. the user did what they needed to;
        return;

}
}

sub Cancel {
    1 while unlink($filename);  # remove all versions under VMS
    print "\nQuitting without sending your message.\n";
    exit(0);
}

sub NowWhat {
    # Report is done, prompt for further action
    if( !$opt{S} ) {
	while(1) {
	    my $menu = <<EOF;

You have finished composing your message. At this point, you have 
a few options. You can:

* [Se]nd the message to $address$andcc, 
    * [D]isplay the message on the screen,
    * [R]e-edit the message
    * Display or change the message's [su]bject
    * Save the message to a [f]ile to mail at another time
    * [Q]uit without sending a message

EOF
      retry:
        print $menu;
	    my $action =  _prompt('', "Action (Send/Display/Edit/Subject/Save to File)");;
        print "\n";
	    if ($action =~ /^(f|sa)/i) { # <F>ile/<Sa>ve
            if ( SaveMessage() ) { exit }
	    } elsif ($action =~ /^(d|l|sh)/i ) { # <D>isplay, <L>ist, <Sh>ow
		# Display the message
		open(REP, "<$filename") or die "Couldn't open file '$filename': $!\n";
		while (<REP>) { print $_ }
		close(REP) or die "Error closing report file '$filename': $!";
	    } elsif ($action =~ /^su/i) { # <Su>bject
		my $reply = _prompt( "Subject: $subject", "If the above subject is fine, press Enter. Otherwise, type a replacement now\nSubject");
		if ($reply ne '') {
		    unless (TrivialSubject($reply)) {
			$subject = $reply;
			print "Subject: $subject\n";
		    }
		}
	    } elsif ($action =~ /^se/i) { # <S>end
		# Send the message
		my $reply =  _prompt( "Are you certain you want to send this message?", 'Please type "yes" if you are','no');
		if ($reply =~ /^yes$/) {
		    last;
		} else {
		    paraprint <<EOF;
You didn't type "yes", so your message has not yet been sent.
EOF
		}
	    } elsif ($action =~ /^[er]/i) { # <E>dit, <R>e-edit
		# edit the message
		Edit();
	    } elsif ($action =~ /^[qc]/i) { # <C>ancel, <Q>uit
		Cancel();
	    } elsif ($action =~ /^s/i) {
		paraprint <<EOF;
The command you entered was ambiguous. Please type "send", "save" or "subject".
EOF
	    }
	}
    }
} # sub NowWhat

sub TrivialSubject {
    my $subject = shift;
    if ($subject =~
	/^(y(es)?|no?|help|perl( (bug|problem))?|bug|problem)$/i ||
	length($subject) < 4 ||
	$subject !~ /\s/) {
	print "\nThe subject you entered wasn't very descriptive. Please try again.\n\n";
        return 1;
    } else {
	return 0;
    }
}

sub SaveMessage {
    my $file_save = $outfile || "$progname.rep";
    my $file = _prompt( '', "Name of file to save message in", $file_save );
    save_message_to_disk($file) || return undef;
    print "\n";
    paraprint <<EOF;
A copy of your message has been saved in '$file' for you to
send to '$address' with your normal mail client.
EOF
}

sub Send {

# Message has been accepted for transmission -- Send the message

# on linux certain "mail" implementations won't accept the subject
    # as "~s subject" and thus the Subject header will be corrupted
    # so don't use Mail::Send to be safe
    eval {
        if ( $::HaveSend && !$Is_Linux && !$Is_OpenBSD ) {
            _send_message_mailsend();
        } elsif ($Is_VMS) {
            _send_message_vms();
        } else {
            _send_message_sendmail();
        }
    };

if ( my $error = $@ ) {
        paraprint <<EOF;
$0 has detected an error while trying to send your message: $error.

Your message may not have been sent. You will now have a chance to save a copy to disk.
EOF
        SaveMessage();
        return;
    }

1 while unlink($filename);    # remove all versions under VMS
}    # sub Send

sub Help {
    print <<EOF;

This program is designed to help you generate and send bug reports
(and thank-you notes) about perl5 and the modules which ship with it.

In most cases, you can just run "$0" interactively from a command
line without any special arguments and follow the prompts.

Advanced usage:

$0  [-v] [-a address] [-s subject] [-b body | -f inpufile ] [ -F outputfile ]
    [-r returnaddress] [-e editor] [-c adminaddress | -C] [-S] [-t] [-h]
$0  [-v] [-r returnaddress] [-A] [-ok | -okay | -nok | -nokay]

Options:

-v    Include Verbose configuration data in the report
  -f    File containing the body of the report. Use this to
        quickly send a prepared message.
  -F    File to output the resulting mail message to, instead of mailing.
  -S    Send without asking for confirmation.
  -a    Address to send the report to. Defaults to '$address'.
  -c    Address to send copy of report to. Defaults to '$cc'.
  -C    Don't send copy to administrator.
  -s    Subject to include with the message. You will be prompted
        if you don't supply one on the command line.
  -b    Body of the report. If not included on the command line, or
        in a file with -f, you will get a chance to edit the message.
  -r    Your return address. The program will ask you to confirm
        this if you don't give it here.
  -e    Editor to use.
  -t    Test mode. The target address defaults to '$testaddress'.
  -T    Thank-you mode. The target address defaults to '$thanksaddress'.
  -d    Data mode.  This prints out your configuration data, without mailing
        anything. You can use this with -v to get more complete data.
  -A    Don't send a bug received acknowledgement to the return address.
  -ok   Report successful build on this system to perl porters
        (use alone or with -v). Only use -ok if *everything* was ok:
        if there were *any* problems at all, use -nok.
  -okay As -ok but allow report from old builds.
  -nok  Report unsuccessful build on this system to perl porters
        (use alone or with -v). You must describe what went wrong
        in the body of the report which you will be asked to edit.
  -nokay As -nok but allow report from old builds.
  -h    Print this help message.

EOF
}

sub filename {
    if ($::HaveTemp) {
	# Good. Use a secure temp file
	my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
	close($fh);
	return $filename;
    } else {
	# Bah. Fall back to doing things less securely.
	my $dir = File::Spec->tmpdir();
	$filename = "bugrep0$$";
	$filename++ while -e File::Spec->catfile($dir, $filename);
	$filename = File::Spec->catfile($dir, $filename);
    }
}

sub paraprint {
    my @paragraphs = split /\n{2,}/, "@_";
    for (@paragraphs) {   # implicit local $_
	s/(\S)\s*\n/$1 /g;
	write;
	print "\n";
    }
}

sub _prompt {
    my ($explanation, $prompt, $default) = (@_);
    if ($explanation) {
        print "\n\n";
        paraprint $explanation;
    }
    print $prompt. ($default ? " [$default]" :''). ": ";
	my $result = scalar(<>);
    chomp($result);
	$result =~ s/^\s*(.*?)\s*$/$1/s;
    if ($default && $result eq '') {
        return $default;
    } else {
        return $result;
    }
}

sub _build_header {
    my %attr = (@_);

my $head = '';
    for my $header (keys %attr) {
        $head .= "$header: ".$attr{$header}."\n";
    }
    return $head;
}

sub _message_headers {
    my %headers = ( To => $address, Subject => $subject );
    $headers{'Cc'}         = $cc        if ($cc);
    $headers{'Message-Id'} = $messageid if ($messageid);
    $headers{'Reply-To'}   = $from      if ($from);
    $headers{'From'}       = $from      if ($from);
    return \%headers;
}

sub build_complete_message {
    my $content = _build_header(%{_message_headers()}) . "\n\n";
    open( REP, "<$filename" ) or die "Couldn't open file '$filename': $!\n";
    while (<REP>) { $content .= $_; }
    close(REP) or die "Error closing report file '$filename': $!";
    return $content;
}

sub save_message_to_disk {
    my $file = shift;

open OUTFILE, ">$file" or do { warn  "Couldn't open '$file': $!\n"; return undef};
        print OUTFILE build_complete_message();
        close(OUTFILE) or do { warn  "Error closing $file: $!"; return undef };
	    print "\nMessage saved.\n";
        return 1;
}

sub _send_message_vms {
    if (   ( $address =~ /@/ and $address !~ /^\w+%"/ )
        or ( $cc =~ /@/ and $cc !~ /^\w+%"/ ) ) {
        my $prefix;
        foreach ( qw[ IN MX SMTP UCX PONY WINS ], '' ) {
            $prefix = "$_%", last if $ENV{"MAIL\$PROTOCOL_$_"};
        }
        $address = qq[${prefix}"$address"] unless $address =~ /^\w+%"/;
        $cc = qq[${prefix}"$cc"] unless !$cc || $cc =~ /^\w+%"/;
    }
    $subject =~ s/"/""/g;
    $address =~ s/"/""/g;
    $cc      =~ s/"/""/g;
    my $sts = system(qq[mail/Subject="$subject" $filename. "$address","$cc"]);
    if ($sts) {
        die "Can't spawn off mail (leaving bug report in $filename): $sts";
    }
}

sub _send_message_mailsend {
    my $msg = Mail::Send->new();
    my %headers = %{_message_headers()};
    for my $key ( keys %headers) {
        $msg->add($key => $headers{$key});
    }

$fh = $msg->open;
    open(REP, "<$filename") or die "Couldn't open '$filename': $!\n";
    while (<REP>) { print $fh $_ }
    close(REP) or die "Error closing $filename: $!";
    $fh->close or die "Error sending mail: $!";

print "\nMessage sent.\n";
}

sub _probe_for_sendmail {
    my $sendmail = "";
    for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail)) {
        $sendmail = $_, last if -e $_;
    }
    if ( $^O eq 'os2' and $sendmail eq "" ) {
        my $path = $ENV{PATH};
        $path =~ s:\\:/:;
        my @path = split /$Config{'path_sep'}/, $path;
        for (@path) {
            $sendmail = "$_/sendmail",     last if -e "$_/sendmail";
            $sendmail = "$_/sendmail.exe", last if -e "$_/sendmail.exe";
        }
    }
    return $sendmail;
}

sub _send_message_sendmail {
    my $sendmail = _probe_for_sendmail();
    unless ($sendmail) {
        my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT';
It appears that there is no program which looks like "sendmail" on
your system and that the Mail::Send library from CPAN isn't available.
EOT
It appears that there is no program which looks like "sendmail" on
your system.
EOT
        paraprint(<<"EOF"), die "\n";
$message_start
Because of this, there's no easy way to automatically send your
message.

A copy of your message has been saved in '$filename' for you to
send to '$address' with your normal mail client.
EOF
    }

open( SENDMAIL, "|-", $sendmail, "-t", "-oi", "-f", $from )
        || die "'|$sendmail -t -oi -f $from' failed: $!";
    print SENDMAIL build_complete_message();
    if ( close(SENDMAIL) ) {
        print "\nMessage sent\n";
    } else {
        warn "\nSendmail returned status '", $? >> 8, "'\n";
    }
}

# a strange way to check whether any significant editing
# has been done: check whether any new non-empty lines
# have been added.

sub _fingerprint_lines_in_report {
    my $new_lines = 0;
    # read in the report template once so that
    # we can track whether the user does any editing.
    # yes, *all* whitespace is ignored.

open(REP, "<$filename") or die "Unable to open report file '$filename': $!\n";
    while (my $line = <REP>) {
        $line =~ s/\s+//g;
        $new_lines++ if (!$REP{$line});

}
    close(REP) or die "Error closing report file '$filename': $!";
    # returns the number of lines with content that wasn't there when last we looked
    return $new_lines;
}

format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$_
.

__END__

=head1 NAME

perlbug - how to submit bug reports on Perl

=head1 SYNOPSIS

B<perlbug>

B<perlbug> S<[ B<-v> ]> S<[ B<-a> I<address> ]> S<[ B<-s> I<subject> ]>
S<[ B<-b> I<body> | B<-f> I<inputfile> ]> S<[ B<-F> I<outputfile> ]>
S<[ B<-r> I<returnaddress> ]>
S<[ B<-e> I<editor> ]> S<[ B<-c> I<adminaddress> | B<-C> ]>
S<[ B<-S> ]> S<[ B<-t> ]>  S<[ B<-d> ]>  S<[ B<-A> ]>  S<[ B<-h> ]> S<[ B<-T> ]>

B<perlbug> S<[ B<-v> ]> S<[ B<-r> I<returnaddress> ]>
 S<[ B<-A> ]> S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]>

B<perlthanks>

=head1 DESCRIPTION

This program is designed to help you generate and send bug reports
(and thank-you notes) about perl5 and the modules which ship with it.

In most cases, you can just run it interactively from a command
line without any special arguments and follow the prompts.

If you have found a bug with a non-standard port (one that was not
part of the I<standard distribution>), a binary distribution, or a
non-core module (such as Tk, DBI, etc), then please see the
documentation that came with that distribution to determine the
correct place to report bugs.

If you are unable to send your report using B<perlbug> (most likely
because your system doesn't have a way to send mail that perlbug
recognizes), you may be able to use this tool to compose your report
and save it to a file which you can then send to B<perlbug@perl.org>
using your regular mail client.

In extreme cases, B<perlbug> may not work well enough on your system
to guide you through composing a bug report. In those cases, you
may be able to use B<perlbug -d> to get system configuration
information to include in a manually composed bug report to
B<perlbug@perl.org>.

When reporting a bug, please run through this checklist:

=over 4

=item What version of Perl you are running?

Type C<perl -v> at the command line to find out.

=item Are you running the latest released version of perl?

Look at http://www.perl.org/ to find out.  If you are not using the
latest released version, please try to replicate your bug on the
latest stable release.

Note that reports about bugs in old versions of Perl, especially
those which indicate you haven't also tested the current stable
release of Perl, are likely to receive less attention from the
volunteers who build and maintain Perl than reports about bugs in
the current release.

This tool isn't appropriate for reporting bugs in any version
prior to Perl 5.0.

=item Are you sure what you have is a bug?

A significant number of the bug reports we get turn out to be
documented features in Perl.  Make sure the issue you've run into
isn't intentional by glancing through the documentation that comes
with the Perl distribution.

Given the sheer volume of Perl documentation, this isn't a trivial
undertaking, but if you can point to documentation that suggests
the behaviour you're seeing is I<wrong>, your issue is likely to
receive more attention. You may want to start with B<perldoc>
L<perltrap> for pointers to common traps that new (and experienced)
Perl programmers run into.

If you're unsure of the meaning of an error message you've run
across, B<perldoc> L<perldiag> for an explanation.  If the message
isn't in perldiag, it probably isn't generated by Perl.  You may
have luck consulting your operating system documentation instead.

If you are on a non-UNIX platform B<perldoc> L<perlport>, as some
features may be unimplemented or work differently.

You may be able to figure out what's going wrong using the Perl
debugger.  For information about how to use the debugger B<perldoc>
L<perldebug>.

=item Do you have a proper test case?

The easier it is to reproduce your bug, the more likely it will be
fixed -- if nobody can duplicate your problem, it probably won't be 
addressed.

A good test case has most of these attributes: short, simple code;
few dependencies on external commands, modules, or libraries; no
platform-dependent code (unless it's a platform-specific bug);
clear, simple documentation.

A good test case is almost always a good candidate to be included in
Perl's test suite.  If you have the time, consider writing your test case so
that it can be easily included into the standard test suite.

=item Have you included all relevant information?

Be sure to include the B<exact> error messages, if any.
"Perl gave an error" is not an exact error message.

If you get a core dump (or equivalent), you may use a debugger
(B<dbx>, B<gdb>, etc) to produce a stack trace to include in the bug
report.

NOTE: unless your Perl has been compiled with debug info
(often B<-g>), the stack trace is likely to be somewhat hard to use
because it will most probably contain only the function names and not
their arguments.  If possible, recompile your Perl with debug info and
reproduce the crash and the stack trace.

=item Can you describe the bug in plain English?

The easier it is to understand a reproducible bug, the more likely
it will be fixed.  Any insight you can provide into the problem
will help a great deal.  In other words, try to analyze the problem
(to the extent you can) and report your discoveries.

=item Can you fix the bug yourself?

A bug report which I<includes a patch to fix it> will almost
definitely be fixed.  When sending a patch, please use the C<diff>
program with the C<-u> option to generate "unified" diff files.
Bug reports with patches are likely to receive significantly more
attention and interest than those without patches.

Your patch may be returned with requests for changes, or requests for more
detailed explanations about your fix.

Here are a few hints for creating high-quality patches:

Make sure the patch is not reversed (the first argument to diff is
typically the original file, the second argument your changed file).
Make sure you test your patch by applying it with the C<patch>
program before you send it on its way.  Try to follow the same style
as the code you are trying to patch.  Make sure your patch really
does work (C<make test>, if the thing you're patching is covered
by Perl's test suite).

=item Can you use C<perlbug> to submit the report?

B<perlbug> will, amongst other things, ensure your report includes
crucial information about your version of perl.  If C<perlbug> is
unable to mail your report after you have typed it in, you may have
to compose the message yourself, add the output produced by C<perlbug
-d> and email it to B<perlbug@perl.org>.  If, for some reason, you
cannot run C<perlbug> at all on your system, be sure to include the
entire output produced by running C<perl -V> (note the uppercase V).

Whether you use C<perlbug> or send the email manually, please make
your Subject line informative.  "a bug" is not informative.  Neither
is "perl crashes" nor is "HELP!!!".  These don't help.  A compact
description of what's wrong is fine.

=item Can you use C<perlbug> to submit a thank-you note?

Yes, you can do this by either using the C<-T> option, or by invoking
the program as C<perlthanks>. Thank-you notes are good. It makes people
smile.

=back

Having done your bit, please be prepared to wait, to be told the
bug is in your code, or possibly to get no reply at all.  The
volunteers who maintain Perl are busy folks, so if your problem is
an obvious bug in your own code, is difficult to understand or is
a duplicate of an existing report, you may not receive a personal
reply.

If it is important to you that your bug be fixed, do monitor the
perl5-porters@perl.org mailing list and the commit logs to development
versions of Perl, and encourage the maintainers with kind words or
offers of frosty beverages.  (Please do be kind to the maintainers.
Harassing or flaming them is likely to have the opposite effect of
the one you want.)

Feel free to update the ticket about your bug on http://rt.perl.org
if a new version of Perl is released and your bug is still present.

=head1 OPTIONS

=over 8

=item B<-a>

Address to send the report to.  Defaults to B<perlbug@perl.org>.

=item B<-A>

Don't send a bug received acknowledgement to the reply address.
Generally it is only a sensible to use this option if you are a
perl maintainer actively watching perl porters for your message to
arrive.

=item B<-b>

Body of the report.  If not included on the command line, or
in a file with B<-f>, you will get a chance to edit the message.

=item B<-C>

Don't send copy to administrator.

=item B<-c>

Address to send copy of report to.  Defaults to the address of the
local perl administrator (recorded when perl was built).

=item B<-d>

Data mode (the default if you redirect or pipe output).  This prints out
your configuration data, without mailing anything.  You can use this
with B<-v> to get more complete data.

=item B<-e>

Editor to use.

=item B<-f>

File containing the body of the report.  Use this to quickly send a
prepared message.

=item B<-F>

File to output the results to instead of sending as an email. Useful
particularly when running perlbug on a machine with no direct internet
connection.

=item B<-h>

Prints a brief summary of the options.

=item B<-ok>

Report successful build on this system to perl porters. Forces B<-S>
and B<-C>. Forces and supplies values for B<-s> and B<-b>. Only
prompts for a return address if it cannot guess it (for use with
B<make>). Honors return address specified with B<-r>.  You can use this
with B<-v> to get more complete data.   Only makes a report if this
system is less than 60 days old.

=item B<-okay>

As B<-ok> except it will report on older systems.

=item B<-nok>

Report unsuccessful build on this system.  Forces B<-C>.  Forces and
supplies a value for B<-s>, then requires you to edit the report
and say what went wrong.  Alternatively, a prepared report may be
supplied using B<-f>.  Only prompts for a return address if it
cannot guess it (for use with B<make>). Honors return address
specified with B<-r>.  You can use this with B<-v> to get more
complete data.  Only makes a report if this system is less than 60
days old.

=item B<-nokay>

As B<-nok> except it will report on older systems.

=item B<-r>

Your return address.  The program will ask you to confirm its default
if you don't use this option.

=item B<-S>

Send without asking for confirmation.

=item B<-s>

Subject to include with the message.  You will be prompted if you don't
supply one on the command line.

=item B<-t>

Test mode.  The target address defaults to B<perlbug-test@perl.org>.

=item B<-T>

Send a thank-you note instead of a bug report.

=item B<-v>

Include verbose configuration data in the report.

=back

=head1 AUTHORS

Kenneth Albanowski (E<lt>kjahds@kjahds.comE<gt>), subsequently
I<doc>tored by Gurusamy Sarathy (E<lt>gsar@activestate.comE<gt>),
Tom Christiansen (E<lt>tchrist@perl.comE<gt>), Nathan Torkington
(E<lt>gnat@frii.comE<gt>), Charles F. Randall (E<lt>cfr@pobox.comE<gt>),
Mike Guy (E<lt>mjtg@cam.a.ukE<gt>), Dominic Dunlop
(E<lt>domo@computer.orgE<gt>), Hugo van der Sanden (E<lt>hv@crypt.org<gt>),
Jarkko Hietaniemi (E<lt>jhi@iki.fiE<gt>), Chris Nandor
(E<lt>pudge@pobox.comE<gt>), Jon Orwant (E<lt>orwant@media.mit.eduE<gt>,
Richard Foley (E<lt>richard.foley@rfi.netE<gt>), and Jesse Vincent
(E<lt>jesse@bestpractical.com<gt>).

=head1 SEE ALSO

perl(1), perldebug(1), perldiag(1), perlport(1), perltrap(1),
diff(1), patch(1), dbx(1), gdb(1)

=head1 BUGS

None known (guess what must have been used to report them?)

=cut