Klaten Crew WebShell - proturismo.ipifap.org

Name	Type	Size	Permissions	Modified	Actions
..	Parent	-	drwxr-xr-x	2026-04-30 18:39:43	-
GET	File	15.84 KB	0755	2022-04-22 20:13:06
Mail	File	408.89 KB	0755	2019-10-13 00:19:50
[	File	53.6 KB	0755	2026-03-24 13:05:31
aclocal	File	35.62 KB	0755	2023-10-14 20:00:43
aclocal-1.16	File	35.62 KB	0755	2023-10-14 20:00:43
addr2line	File	33.42 KB	0755	2025-12-18 14:21:35
agentxtrap	File	24.54 KB	0755	2026-01-19 08:19:51
animate	File	11.88 KB	0755	2026-06-12 10:06:24
ar	File	61.96 KB	0755	2025-12-18 14:21:35
arch	File	37.34 KB	0755	2026-03-24 13:05:31
arpaname	File	11.82 KB	0755	2026-06-08 03:38:10
as	File	889.91 KB	0755	2025-12-18 14:21:35
aspell	File	159.5 KB	0755	2022-04-18 15:10:53
at	File	4.4 KB	0755	2022-10-10 10:23:17
atq	File	4.4 KB	0755	2022-10-10 10:23:17
atrm	File	4.41 KB	0755	2022-10-10 10:23:17
autoconf	File	14.42 KB	0755	2024-08-13 19:30:48
autoheader	File	8.33 KB	0755	2024-08-13 19:30:48
autom4te	File	31.43 KB	0755	2024-08-13 19:30:48
automake	File	251.9 KB	0755	2023-10-14 20:00:43
automake-1.16	File	251.9 KB	0755	2023-10-14 20:00:43
autoreconf	File	20.57 KB	0755	2024-08-13 19:30:48
autoscan	File	16.72 KB	0755	2024-08-13 19:30:48
autoupdate	File	33.08 KB	0755	2024-08-13 19:30:48
awk	File	669.77 KB	0755	2022-04-18 15:56:05
b2sum	File	57.69 KB	0755	2026-03-24 13:05:31
base32	File	41.47 KB	0755	2026-03-24 13:05:31
base64	File	41.48 KB	0755	2026-03-24 13:05:31
basename	File	37.41 KB	0755	2026-03-24 13:05:31
bash	File	1.1 MB	0755	2025-08-26 08:48:39
bashbug-64	File	7.18 KB	0755	2025-08-26 08:48:31
batch	File	137 B	0755	2022-10-10 10:23:17
bison	File	437.72 KB	0755	2019-10-12 12:28:39
bunzip2	File	36.86 KB	0755	2025-01-28 01:38:59
bzcat	File	36.86 KB	0755	2025-01-28 01:38:59
bzcmp	File	2.08 KB	0755	2025-01-28 01:38:58
bzdiff	File	2.08 KB	0755	2025-01-28 01:38:58
bzgrep	File	1.64 KB	0755	2025-01-28 01:38:58
bzip2	File	36.86 KB	0755	2025-01-28 01:38:59
bzip2recover	File	16.44 KB	0755	2025-01-28 01:38:59
bzless	File	1.23 KB	0755	2025-01-28 01:38:58
bzmore	File	1.23 KB	0755	2025-01-28 01:38:58
c++	File	1.21 MB	0755	2025-08-26 09:47:24
c++filt	File	28.89 KB	0755	2025-12-18 14:21:35
c89	File	224 B	0755	2025-08-26 09:45:19
c99	File	215 B	0755	2025-08-26 09:45:19
cagefs_enter.proxied	File	4.42 KB	0755	2026-01-20 13:58:37
cal	File	65.98 KB	0755	2026-02-04 20:18:19
captoinfo	File	85.31 KB	0755	2023-10-14 18:54:49
cat	File	37.46 KB	0755	2026-03-24 13:05:31
catchsegv	File	3.21 KB	0755	2026-07-21 14:46:32
cc	File	1.21 MB	0755	2025-08-26 09:47:26
chcon	File	70.34 KB	0755	2026-03-24 13:05:31
chgrp	File	66.29 KB	0755	2026-03-24 13:05:31
chmod	File	62.2 KB	0755	2026-03-24 13:05:31
chown	File	70.29 KB	0755	2026-03-24 13:05:31
chrt	File	37.19 KB	0755	2026-02-04 20:18:19
cksum	File	37.39 KB	0755	2026-03-24 13:05:31
cldetect	File	10.34 KB	0755	2026-06-09 08:42:42
clear	File	12.54 KB	0755	2023-10-14 18:54:49
clusterdb	File	70.23 KB	0755	2024-02-27 08:25:00
cmp	File	103.76 KB	0755	2020-05-04 15:15:14
col	File	29.01 KB	0755	2026-02-04 20:18:19
colcrt	File	16.48 KB	0755	2026-02-04 20:18:19
colrm	File	24.88 KB	0755	2026-02-04 20:18:19
column	File	49.47 KB	0755	2026-02-04 20:18:19
comm	File	41.56 KB	0755	2026-03-24 13:05:31
compare	File	11.89 KB	0755	2026-06-12 10:06:24
composite	File	11.88 KB	0755	2026-06-12 10:06:24
conjure	File	11.88 KB	0755	2026-06-12 10:06:24
convert	File	11.88 KB	0755	2026-06-12 10:06:24
cp	File	147.98 KB	0755	2026-03-24 13:05:31
cpan	File	8.17 KB	0755	2025-06-03 14:32:21
cpp	File	1.21 MB	0755	2025-08-26 09:47:25
createdb	File	70.22 KB	0755	2024-02-27 08:25:00
createuser	File	74.63 KB	0755	2024-02-27 08:25:00
crontab	File	1.49 KB	0755	2024-04-06 11:40:05
crontab.cagefs	File	41.86 KB	0755	2026-07-14 13:30:25
csplit	File	53.68 KB	0755	2026-03-24 13:05:31
curl	File	230.08 KB	0755	2026-03-24 13:41:52
cut	File	49.52 KB	0755	2026-03-24 13:05:31
date	File	105.96 KB	0755	2026-03-24 13:05:31
dbiprof	File	6.06 KB	0755	2026-07-13 14:34:06
dd	File	77.97 KB	0755	2026-03-24 13:05:31
delv	File	42.46 KB	0755	2026-06-08 03:38:10
df	File	91.09 KB	0755	2026-03-24 13:05:31
diff	File	268.01 KB	0755	2020-05-04 15:15:14
diff3	File	128.6 KB	0755	2020-05-04 15:15:14
dig	File	162.18 KB	0755	2026-06-08 03:38:10
dir	File	139.9 KB	0755	2026-03-24 13:05:31
dircolors	File	49.55 KB	0755	2026-03-24 13:05:31
dirname	File	33.36 KB	0755	2026-03-24 13:05:31
display	File	11.88 KB	0755	2026-06-12 10:06:24
dnstap-read	File	20.43 KB	0755	2026-06-08 03:38:10
dropdb	File	66.02 KB	0755	2024-02-27 08:25:00
dropuser	File	65.99 KB	0755	2024-02-27 08:25:00
du	File	107 KB	0755	2026-03-24 13:05:31
easy_install-3	File	0 B	0	1970-01-01 00:00:00
echo	File	37.35 KB	0755	2026-03-24 13:05:31
egrep	File	28 B	0755	2019-10-11 15:15:56
enc2xs	File	40.97 KB	0755	2019-10-13 08:46:10
enchant	File	21.08 KB	0755	2019-10-23 20:03:55
enchant-lsmod	File	13.09 KB	0755	2019-10-23 20:03:55
env	File	41.35 KB	0755	2026-03-24 13:05:31
eps2eps	File	639 B	0755	2025-06-03 02:48:11
eqn	File	232.16 KB	0755	2019-10-13 14:29:41
ex	File	1.13 MB	0755	2026-07-13 08:08:02
expand	File	41.59 KB	0755	2026-03-24 13:05:31
expr	File	49.57 KB	0755	2026-03-24 13:05:31
factor	File	85.97 KB	0755	2026-03-24 13:05:31
false	File	33.32 KB	0755	2026-03-24 13:05:31
fc-cache	File	132 B	0755	2021-08-16 11:04:22
fc-cache-64	File	20.35 KB	0755	2021-10-09 09:02:09
fc-cat	File	16.35 KB	0755	2021-10-09 09:02:09
fc-conflist	File	12.25 KB	0755	2021-10-09 09:02:09
fc-list	File	12.25 KB	0755	2021-10-09 09:02:09
fc-match	File	16.26 KB	0755	2021-10-09 09:02:09
fc-pattern	File	12.26 KB	0755	2021-10-09 09:02:09
fc-query	File	12.24 KB	0755	2021-10-09 09:02:09
fc-scan	File	12.26 KB	0755	2021-10-09 09:02:09
fc-validate	File	16.26 KB	0755	2021-10-09 09:02:09
fgrep	File	28 B	0755	2019-10-11 15:15:56
file	File	24.69 KB	0755	2025-10-07 06:30:49
find	File	223.27 KB	0755	2025-12-18 14:57:01
flex	File	428.45 KB	0755	2019-10-12 12:33:17
flex++	File	428.45 KB	0755	2019-10-12 12:33:17
flock	File	33.2 KB	0755	2026-02-04 20:18:19
fmt	File	45.49 KB	0755	2026-03-24 13:05:31
fold	File	41.42 KB	0755	2026-03-24 13:05:31
free	File	20.79 KB	0755	2023-10-14 20:31:02
freetype-config	File	4.31 KB	0755	2025-03-31 19:37:30
funzip	File	36.63 KB	0755	2025-06-03 02:10:12
g++	File	1.21 MB	0755	2025-08-26 09:47:24
gawk	File	669.77 KB	0755	2022-04-18 15:56:05
gcc	File	1.21 MB	0755	2025-08-26 09:47:26
gcc-ar	File	36.66 KB	0755	2025-08-26 09:47:26
gcc-nm	File	36.66 KB	0755	2025-08-26 09:47:26
gcc-ranlib	File	36.66 KB	0755	2025-08-26 09:47:26
gcov	File	1.31 MB	0755	2025-08-26 09:47:26
gcov-dump	File	570.96 KB	0755	2025-08-26 09:47:26
gcov-tool	File	607.77 KB	0755	2025-08-26 09:47:26
gencat	File	24.84 KB	0755	2026-07-21 14:52:33
geoiplookup	File	21.89 KB	0755	2019-11-28 22:06:01
geoiplookup6	File	21.65 KB	0755	2019-11-28 22:06:01
geqn	File	232.16 KB	0755	2019-10-13 14:29:41
getconf	File	32.46 KB	0755	2026-07-21 14:52:33
getent	File	33.13 KB	0755	2026-07-21 14:52:33
getopt	File	20.53 KB	0755	2026-02-04 20:18:19
ghostscript	File	12.35 KB	0755	2025-06-03 02:48:22
git	File	3.67 MB	0755	2025-07-23 06:59:57
git-receive-pack	File	3.67 MB	0755	2025-07-23 06:59:57
git-shell	File	2.13 MB	0755	2025-07-23 06:59:57
git-upload-archive	File	3.67 MB	0755	2025-07-23 06:59:57
git-upload-pack	File	3.67 MB	0755	2025-07-23 06:59:57
gm	File	7.82 KB	0755	2022-03-28 15:50:37
gmake	File	235.32 KB	0755	2022-04-18 16:38:34
gneqn	File	908 B	0755	2019-10-13 14:29:37
gnroff	File	3.23 KB	0755	2019-10-13 14:29:39
gpg	File	1.04 MB	0755	2026-01-16 01:48:25
gpg-agent	File	419.3 KB	0755	2026-01-16 01:48:25
gpg-error	File	34.16 KB	0755	2019-10-12 12:20:46
gpg-zip	File	3.44 KB	0755	2026-01-16 01:48:21
gpgsplit	File	87.02 KB	0755	2026-01-16 01:48:25
gpgv	File	451.51 KB	0755	2026-01-16 01:48:25
gpic	File	293.84 KB	0755	2019-10-13 14:29:41
gprof	File	103.35 KB	0755	2025-12-18 14:21:35
grep	File	193.63 KB	0755	2019-10-11 15:15:57
groff	File	124.92 KB	0755	2019-10-13 14:29:41
grops	File	191.14 KB	0755	2019-10-13 14:29:41
grotty	File	141.9 KB	0755	2019-10-13 14:29:41
groups	File	37.39 KB	0755	2026-03-24 13:05:31
gs	File	12.35 KB	0755	2025-06-03 02:48:22
gsnd	File	277 B	0755	2025-06-03 02:48:11
gsoelim	File	42.55 KB	0755	2019-10-13 14:29:41
gtar	File	448.99 KB	0755	2025-08-26 08:57:37
gtbl	File	154.61 KB	0755	2019-10-13 14:29:41
gtroff	File	805.02 KB	0755	2019-10-13 14:29:41
gunzip	File	2.29 KB	0755	2022-04-27 05:49:28
gzexe	File	6.23 KB	0755	2022-04-27 05:49:28
gzip	File	94.67 KB	0755	2022-04-27 05:49:29
h2ph	File	28.69 KB	0755	2025-07-28 08:08:32
h2xs	File	59.44 KB	0755	2025-07-28 08:07:09
head	File	45.5 KB	0755	2026-03-24 13:05:31
hexdump	File	57.51 KB	0755	2026-02-04 20:18:19
host	File	142.3 KB	0755	2026-06-08 03:38:10
hostid	File	33.34 KB	0755	2026-03-24 13:05:31
hostname	File	21.16 KB	0755	2019-10-11 13:06:51
hunspell	File	144.7 KB	0755	2019-10-13 08:33:15
iconv	File	61.43 KB	0755	2026-07-21 14:52:33
id	File	45.44 KB	0755	2026-03-24 13:05:31
identify	File	11.88 KB	0755	2026-06-12 10:06:24
idn	File	39.41 KB	0755	2019-10-13 16:55:35
ifnames	File	4.03 KB	0755	2024-08-13 19:30:48
import	File	11.88 KB	0755	2026-06-12 10:06:24
infocmp	File	61.05 KB	0755	2023-10-14 18:54:49
infotocap	File	85.31 KB	0755	2023-10-14 18:54:49
install	File	156.16 KB	0755	2026-03-24 13:05:31
instmodsh	File	4.1 KB	0755	2019-10-13 08:55:21
ionice	File	28.98 KB	0755	2026-02-04 20:18:19
ipcrm	File	28.99 KB	0755	2026-02-04 20:18:19
ipcs	File	53.4 KB	0755	2026-02-04 20:18:19
isosize	File	24.88 KB	0755	2026-02-04 20:18:19
ispell	File	988 B	0755	2022-04-18 15:10:51
join	File	53.7 KB	0755	2026-03-24 13:05:31
kill	File	37.28 KB	0755	2026-02-04 20:18:19
ld	File	1.71 MB	0755	2025-12-18 14:21:35
ld.bfd	File	1.71 MB	0755	2025-12-18 14:21:35
ldd	File	5.31 KB	0755	2026-07-21 14:46:35
less	File	173.76 KB	0755	2024-07-02 20:10:37
lessecho	File	12.4 KB	0755	2024-07-02 20:10:37
lesskey	File	21.99 KB	0755	2024-07-02 20:10:37
lesspipe.sh	File	3.07 KB	0755	2024-07-02 19:57:10
lex	File	428.45 KB	0755	2019-10-12 12:33:17
libnetcfg	File	15.41 KB	0755	2025-07-28 08:08:32
libtool	File	359.11 KB	0755	2019-10-11 14:55:28
libtoolize	File	126.17 KB	0755	2019-10-11 14:55:28
link	File	33.34 KB	0755	2026-03-24 13:05:31
ln	File	70.5 KB	0755	2026-03-24 13:05:31
locale	File	56.44 KB	0755	2026-07-21 14:52:33
localedef	File	307.47 KB	0755	2026-07-21 14:52:33
logger	File	49.98 KB	0755	2026-02-04 20:18:19
login	File	40.96 KB	0755	2026-02-04 20:18:19
logname	File	33.34 KB	0755	2026-03-24 13:05:31
look	File	16.46 KB	0755	2026-02-04 20:18:19
ls	File	139.91 KB	0755	2026-03-24 13:05:31
m4	File	185.56 KB	0755	2019-10-11 14:41:40
mail	File	408.89 KB	0755	2019-10-13 00:19:50
mailx	File	408.89 KB	0755	2019-10-13 00:19:50
make	File	235.32 KB	0755	2022-04-18 16:38:34
make-dummy-cert	File	610 B	0755	2026-07-13 14:12:11
mariadb	File	4.34 MB	0755	2026-05-23 15:29:33
mariadb-access	File	109.34 KB	0755	2026-05-23 15:21:23
mariadb-admin	File	3.88 MB	0755	2026-05-23 15:29:33
mariadb-binlog	File	4.14 MB	0755	2026-05-23 15:29:34
mariadb-check	File	3.88 MB	0755	2026-05-23 15:29:34
mariadb-conv	File	3.59 MB	0755	2026-05-23 15:29:34
mariadb-convert-table-format	File	4.12 KB	0755	2026-05-23 15:21:23
mariadb-dump	File	3.96 MB	0755	2026-05-23 15:29:34
mariadb-dumpslow	File	8.05 KB	0755	2026-05-23 15:21:23
mariadb-embedded	File	22.57 MB	0755	2026-05-23 15:29:34
mariadb-find-rows	File	3.21 KB	0755	2026-05-23 15:21:23
mariadb-hotcopy	File	34.15 KB	0755	2026-05-23 15:21:23
mariadb-import	File	3.87 MB	0755	2026-05-23 15:29:34
mariadb-plugin	File	3.57 MB	0755	2026-05-23 15:29:34
mariadb-secure-installation	File	13.48 KB	0755	2026-05-23 15:21:23
mariadb-setpermission	File	17.56 KB	0755	2026-05-23 15:21:23
mariadb-show	File	3.87 MB	0755	2026-05-23 15:29:33
mariadb-slap	File	3.88 MB	0755	2026-05-23 15:29:33
mariadb-tzinfo-to-sql	File	3.57 MB	0755	2026-05-23 15:29:34
mariadb-waitpid	File	3.55 MB	0755	2026-05-23 15:29:33
mcookie	File	33.27 KB	0755	2026-02-04 20:18:19
md5sum	File	45.54 KB	0755	2026-03-24 13:05:31
mesg	File	16.36 KB	0755	2026-02-04 20:18:19
mkdir	File	82.7 KB	0755	2026-03-24 13:05:31
mkfifo	File	66.46 KB	0755	2026-03-24 13:05:31
mknod	File	70.47 KB	0755	2026-03-24 13:05:31
mktemp	File	45.66 KB	0755	2026-03-24 13:05:31
mogrify	File	11.88 KB	0755	2026-06-12 10:06:24
montage	File	11.88 KB	0755	2026-06-12 10:06:24
more	File	44.94 KB	0755	2026-02-04 20:18:19
msql2mysql	File	1.41 KB	0755	2026-05-23 15:21:23
mv	File	143.96 KB	0755	2026-03-24 13:05:31
my_print_defaults	File	3.56 MB	0755	2026-05-23 15:29:33
mysql	File	4.34 MB	0755	2026-05-23 15:29:33
mysql_config	File	4.51 KB	0755	2026-05-23 15:21:23
mysql_find_rows	File	3.21 KB	0755	2026-05-23 15:21:23
mysql_waitpid	File	3.55 MB	0755	2026-05-23 15:29:33
mysqlaccess	File	109.34 KB	0755	2026-05-23 15:21:23
mysqladmin	File	3.88 MB	0755	2026-05-23 15:29:33
mysqlbinlog	File	4.14 MB	0755	2026-05-23 15:29:34
mysqlcheck	File	3.88 MB	0755	2026-05-23 15:29:34
mysqldump	File	3.96 MB	0755	2026-05-23 15:29:34
mysqlimport	File	3.87 MB	0755	2026-05-23 15:29:34
mysqlshow	File	3.87 MB	0755	2026-05-23 15:29:33
mytop	File	71.95 KB	0755	2026-05-23 15:21:23
namei	File	33.1 KB	0755	2026-02-04 20:18:19
nano	File	247.94 KB	0755	2024-09-24 02:16:19
neqn	File	908 B	0755	2019-10-13 14:29:37
net-snmp-create-v3-user	File	3.15 KB	0755	2026-01-19 08:19:40
nice	File	37.33 KB	0755	2026-03-24 13:05:31
nl	File	45.55 KB	0755	2026-03-24 13:05:31
nm	File	50.38 KB	0755	2025-12-18 14:21:35
nohup	File	37.41 KB	0755	2026-03-24 13:05:31
nproc	File	37.41 KB	0755	2026-03-24 13:05:31
nroff	File	3.23 KB	0755	2019-10-13 14:29:39
nslookup	File	146.26 KB	0755	2026-06-08 03:38:10
nsupdate	File	73.05 KB	0755	2026-06-08 03:38:10
numfmt	File	65.64 KB	0755	2026-03-24 13:05:31
objcopy	File	240.07 KB	0755	2025-12-18 14:21:35
objdump	File	419.76 KB	0755	2025-12-18 14:21:35
od	File	73.8 KB	0755	2026-03-24 13:05:31
openssl	File	745.95 KB	0755	2026-07-13 14:12:27
pango-list	File	11.88 KB	0755	2021-10-08 15:22:06
pango-view	File	57.44 KB	0755	2021-10-08 15:22:06
passwd	File	4.41 KB	0755	2022-04-18 22:59:33
paste	File	37.4 KB	0755	2026-03-24 13:05:31
patch	File	206.46 KB	0755	2020-06-01 15:14:25
pathchk	File	37.34 KB	0755	2026-03-24 13:05:31
pdf2dsc	File	698 B	0755	2025-06-03 02:48:11
pdf2ps	File	909 B	0755	2025-06-03 02:48:11
perl	File	12.43 KB	0755	2025-07-28 08:07:20
perl5.26.3	File	12.43 KB	0755	2025-07-28 08:07:20
perlbug	File	44.39 KB	0755	2025-07-28 08:08:32
perldoc	File	118 B	0755	2019-10-13 11:53:57
perlivp	File	10.56 KB	0755	2025-07-28 08:07:09
perlml	File	6.61 KB	0755	2025-10-02 19:40:04
perlthanks	File	44.39 KB	0755	2025-07-28 08:08:32
pg_dump	File	399.43 KB	0755	2024-02-27 08:25:00
pg_dumpall	File	107.11 KB	0755	2024-02-27 08:25:00
pg_restore	File	173.34 KB	0755	2024-02-27 08:25:00
pgrep	File	28.84 KB	0755	2023-10-14 20:31:02
php	File	937 B	0755	2025-04-03 11:08:35
pic	File	293.84 KB	0755	2019-10-13 14:29:41
piconv	File	8.08 KB	0755	2019-10-13 08:46:10
pinentry	File	2.35 KB	0755	2018-08-12 17:18:10
pinentry-curses	File	77.89 KB	0755	2019-11-24 17:39:34
ping	File	66.13 KB	0755	2023-10-14 17:19:01
pinky	File	41.46 KB	0755	2026-03-24 13:05:31
pip-3	File	0 B	0	1970-01-01 00:00:00
pip3	File	0 B	0	1970-01-01 00:00:00
pkg-config	File	40.04 KB	0755	2019-10-13 06:57:31
pkgconf	File	40.04 KB	0755	2019-10-13 06:57:31
pkill	File	28.84 KB	0755	2023-10-14 20:31:02
pl2pm	File	4.43 KB	0755	2025-07-28 08:08:16
pmap	File	32.78 KB	0755	2023-10-14 20:31:02
pod2html	File	4.04 KB	0755	2025-07-28 08:08:32
pod2man	File	14.68 KB	0755	2019-10-13 14:12:32
pod2text	File	10.55 KB	0755	2019-10-13 14:12:32
pod2usage	File	3.86 KB	0755	2019-10-13 11:57:18
podchecker	File	3.57 KB	0755	2019-10-13 11:46:35
podselect	File	2.47 KB	0755	2019-10-13 11:52:55
post-grohtml	File	238.73 KB	0755	2019-10-13 14:29:41
pr	File	82.15 KB	0755	2026-03-24 13:05:31
pre-grohtml	File	130.55 KB	0755	2019-10-13 14:29:41
precat	File	5.52 KB	0755	2022-04-18 15:10:50
preunzip	File	5.52 KB	0755	2022-04-18 15:10:50
prezip	File	5.52 KB	0755	2022-04-18 15:10:50
prezip-bin	File	11.98 KB	0755	2022-04-18 15:10:53
printenv	File	33.32 KB	0755	2026-03-24 13:05:31
printf	File	53.56 KB	0755	2026-03-24 13:05:31
prove	File	13.24 KB	0755	2019-10-13 12:42:34
ps	File	134.75 KB	0755	2023-10-14 20:31:02
ps2ascii	File	631 B	0755	2025-06-03 02:48:11
ps2epsi	File	2.69 KB	0755	2025-06-03 02:48:11
ps2pdf	File	272 B	0755	2025-06-03 02:48:11
ps2pdf12	File	215 B	0755	2025-06-03 02:48:11
ps2pdf13	File	215 B	0755	2025-06-03 02:48:11
ps2pdf14	File	215 B	0755	2025-06-03 02:48:11
ps2pdfwr	File	1.07 KB	0755	2025-06-03 02:48:11
ps2ps	File	647 B	0755	2025-06-03 02:48:11
ps2ps2	File	669 B	0755	2025-06-03 02:48:11
psql	File	644.33 KB	0755	2024-02-27 08:25:00
ptx	File	78 KB	0755	2026-03-24 13:05:31
pwd	File	37.42 KB	0755	2026-03-24 13:05:31
pwdx	File	12.68 KB	0755	2023-10-14 20:31:02
pydoc-3	File	0 B	0	1970-01-01 00:00:00
pydoc3	File	0 B	0	1970-01-01 00:00:00
python2	File	7.84 KB	0755	2024-04-10 04:58:50
python2.7	File	7.84 KB	0755	2024-04-10 04:58:50
python3	File	11.59 KB	0755	2026-07-14 16:22:29
python3.6	File	11.59 KB	0755	2026-07-14 16:22:29
python3.6m	File	11.59 KB	0755	2026-07-14 16:22:29
pyvenv-3	File	0 B	0	1970-01-01 00:00:00
ranlib	File	61.97 KB	0755	2025-12-18 14:21:35
raw	File	16.5 KB	0755	2026-02-04 20:18:19
readelf	File	624.54 KB	0755	2025-12-18 14:21:35
readlink	File	45.88 KB	0755	2026-03-24 13:05:31
realpath	File	49.94 KB	0755	2026-03-24 13:05:31
recode	File	47.03 KB	0755	2019-10-18 15:18:02
reindexdb	File	70.32 KB	0755	2024-02-27 08:25:00
rename	File	16.5 KB	0755	2026-02-04 20:18:19
renew-dummy-cert	File	725 B	0755	2026-07-13 14:12:11
renice	File	16.46 KB	0755	2026-02-04 20:18:19
replace	File	3.54 MB	0755	2026-05-23 15:29:33
reset	File	24.76 KB	0755	2023-10-14 18:54:49
rev	File	12.46 KB	0755	2026-02-04 20:18:19
rm	File	70.38 KB	0755	2026-03-24 13:05:31
rmdir	File	45.46 KB	0755	2026-03-24 13:05:31
rnano	File	247.94 KB	0755	2024-09-24 02:16:19
run-with-aspell	File	85 B	0755	2022-04-18 15:10:50
runcon	File	37.38 KB	0755	2026-03-24 13:05:31
rvi	File	1.13 MB	0755	2026-07-13 08:08:02
rview	File	1.13 MB	0755	2026-07-13 08:08:02
scalar	File	2.18 MB	0755	2025-07-23 06:59:57
scl	File	36.87 KB	0755	2023-04-01 16:10:31
scl_enabled	File	258 B	0755	2017-08-25 08:23:02
scl_source	File	1.82 KB	0755	2023-04-01 16:10:31
scp	File	102.84 KB	0755	2026-05-04 20:25:30
script	File	36.8 KB	0755	2026-02-04 20:18:19
sdiff	File	105.33 KB	0755	2020-05-04 15:15:14
sed	File	115.27 KB	0755	2026-04-14 19:22:48
selectorctl	File	7.63 KB	0755	2026-07-01 09:06:54
seq	File	53.45 KB	0755	2026-03-24 13:05:31
setsid	File	16.38 KB	0755	2026-02-04 20:18:19
setterm	File	45.13 KB	0755	2026-02-04 20:18:19
sftp	File	159.74 KB	0755	2026-05-04 20:25:30
sh	File	1.1 MB	0755	2025-08-26 08:48:39
sha1sum	File	45.55 KB	0755	2026-03-24 13:05:31
sha224sum	File	45.58 KB	0755	2026-03-24 13:05:31
sha256sum	File	45.58 KB	0755	2026-03-24 13:05:31
sha384sum	File	45.59 KB	0755	2026-03-24 13:05:31
sha512sum	File	45.59 KB	0755	2026-03-24 13:05:31
shred	File	61.85 KB	0755	2026-03-24 13:05:31
shuf	File	58.09 KB	0755	2026-03-24 13:05:31
size	File	33.25 KB	0755	2025-12-18 14:21:35
skill	File	28.8 KB	0755	2023-10-14 20:31:02
slabtop	File	20.84 KB	0755	2023-10-14 20:31:02
sleep	File	37.4 KB	0755	2026-03-24 13:05:31
snice	File	28.8 KB	0755	2023-10-14 20:31:02
snmpconf	File	25.44 KB	0755	2026-01-19 08:19:46
soelim	File	42.55 KB	0755	2019-10-13 14:29:41
sort	File	123.48 KB	0755	2026-03-24 13:05:31
spell	File	122 B	0755	2022-04-18 15:10:51
splain	File	18.7 KB	0755	2025-07-28 08:08:32
split	File	58.05 KB	0755	2026-03-24 13:05:31
sprof	File	28.67 KB	0755	2026-07-21 14:52:33
sqlite3	File	1.28 MB	0755	2025-07-29 01:27:56
ssh	File	757.61 KB	0755	2026-05-04 20:25:30
ssh-add	File	346.13 KB	0755	2026-05-04 20:25:30
ssh-agent	File	325.59 KB	0755	2026-05-04 20:25:30
ssh-copy-id	File	10.44 KB	0755	2026-05-04 20:25:29
ssh-keygen	File	427.17 KB	0755	2026-05-04 20:25:30
ssh-keyscan	File	432.59 KB	0755	2026-05-04 20:25:30
stat	File	86.16 KB	0755	2026-03-24 13:05:31
stdbuf	File	49.5 KB	0755	2026-03-24 13:05:31
strace	File	1.94 MB	0755	2025-01-28 01:32:17
stream	File	11.87 KB	0755	2026-06-12 10:06:24
strings	File	37.43 KB	0755	2025-12-18 14:21:35
strip	File	240.09 KB	0755	2025-12-18 14:21:35
stty	File	77.61 KB	0755	2026-03-24 13:05:31
sum	File	45.53 KB	0755	2026-03-24 13:05:31
sync	File	37.35 KB	0755	2026-03-24 13:05:31
tabs	File	16.55 KB	0755	2023-10-14 18:54:49
tac	File	41.49 KB	0755	2026-03-24 13:05:31
tail	File	74.13 KB	0755	2026-03-24 13:05:31
tar	File	448.99 KB	0755	2025-08-26 08:57:37
taskset	File	37.26 KB	0755	2026-02-04 20:18:19
tbl	File	154.61 KB	0755	2019-10-13 14:29:41
tclsh	File	9.04 KB	0755	2019-10-12 00:25:32
tclsh8.6	File	9.04 KB	0755	2019-10-12 00:25:32
tee	File	41.48 KB	0755	2026-03-24 13:05:31
test	File	53.55 KB	0755	2026-03-24 13:05:31
tic	File	85.31 KB	0755	2023-10-14 18:54:49
timeout	File	41.85 KB	0755	2026-03-24 13:05:31
tload	File	16.76 KB	0755	2023-10-14 20:31:02
tmpwatch	File	35.47 KB	0755	2019-10-12 11:32:29
toe	File	16.45 KB	0755	2023-10-14 18:54:49
top	File	121.7 KB	0755	2023-10-14 20:31:02
touch	File	93.94 KB	0755	2026-03-24 13:05:31
tput	File	24.8 KB	0755	2023-10-14 18:54:49
tr	File	49.63 KB	0755	2026-03-24 13:05:31
troff	File	805.02 KB	0755	2019-10-13 14:29:41
true	File	33.33 KB	0755	2026-03-24 13:05:31
truncate	File	41.36 KB	0755	2026-03-24 13:05:31
tset	File	24.76 KB	0755	2023-10-14 18:54:49
tsort	File	41.49 KB	0755	2026-03-24 13:05:31
tty	File	33.31 KB	0755	2026-03-24 13:05:31
tzselect	File	15.01 KB	0755	2026-07-21 14:46:18
uapi	File	4.41 KB	0755	2026-07-24 10:05:07
ul	File	20.59 KB	0755	2026-02-04 20:18:19
uname	File	37.33 KB	0755	2026-03-24 13:05:31
unexpand	File	45.61 KB	0755	2026-03-24 13:05:31
uniq	File	49.64 KB	0755	2026-03-24 13:05:31
unlink	File	33.34 KB	0755	2026-03-24 13:05:31
unversioned-python	File	0 B	0	1970-01-01 00:00:00
unzip	File	201.88 KB	0755	2025-06-03 02:10:12
unzipsfx	File	101.48 KB	0755	2025-06-03 02:10:12
uptime	File	12.59 KB	0755	2023-10-14 20:31:02
users	File	37.4 KB	0755	2026-03-24 13:05:31
utmpdump	File	28.66 KB	0755	2026-02-04 20:18:19
vacuumdb	File	78.46 KB	0755	2024-02-27 08:25:00
vdir	File	139.91 KB	0755	2026-03-24 13:05:31
vi	File	1.13 MB	0755	2026-07-13 08:08:02
view	File	1.13 MB	0755	2026-07-13 08:08:02
vmstat	File	36.79 KB	0755	2023-10-14 20:31:02
watch	File	29.19 KB	0755	2023-10-14 20:31:02
wc	File	49.64 KB	0755	2026-03-24 13:05:31
wget	File	521.41 KB	0755	2024-08-13 22:22:56
whereis	File	29.27 KB	0755	2026-02-04 20:18:19
which	File	29.38 KB	0755	2025-08-26 08:54:45
who	File	53.59 KB	0755	2026-03-24 13:05:31
whoami	File	33.34 KB	0755	2026-03-24 13:05:31
word-list-compress	File	11.99 KB	0755	2022-04-18 15:10:53
x86_64-redhat-linux-c++	File	1.21 MB	0755	2025-08-26 09:47:24
x86_64-redhat-linux-g++	File	1.21 MB	0755	2025-08-26 09:47:24
x86_64-redhat-linux-gcc	File	1.21 MB	0755	2025-08-26 09:47:26
x86_64-redhat-linux-gcc-8	File	1.21 MB	0755	2025-08-26 09:47:26
xargs	File	74.11 KB	0755	2025-12-18 14:57:01
xmlcatalog	File	20.38 KB	0755	2026-07-08 15:05:30
xmllint	File	73.38 KB	0755	2026-07-08 15:05:30
xmlwf	File	36.97 KB	0755	2026-06-03 11:35:13
xsltproc	File	28.47 KB	0755	2026-06-16 16:39:24
xsubpp	File	4.96 KB	0755	2019-10-13 08:58:35
yes	File	33.37 KB	0755	2026-03-24 13:05:31
zcat	File	1.94 KB	0755	2022-04-27 05:49:28
zcmp	File	1.64 KB	0755	2022-04-27 05:49:28
zdiff	File	5.74 KB	0755	2022-04-27 05:49:28
zegrep	File	29 B	0755	2022-04-27 05:49:28
zfgrep	File	29 B	0755	2022-04-27 05:49:28

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

my $config_tag1 = '5.26.3 - Mon Jul 28 04:07:08 EDT 2025';

my $patchlevel_date = 1753690027;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;

BEGIN { pop @INC if $INC[-1] eq '.' }
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 "");
    eval { require Text::Wrap; };
    $::HaveWrap = ($@ eq "");
};

my $Version = "1.40";

#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, $have_attachment, $attachments, $has_patch, $mime_boundary
);

my $running_noninteractively = !-t STDIN;

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 ($running_noninteractively && !$opt{t} && !($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";

paraprint <<EOF
Please note that mailing lists are moderated, your message may take a while to
show up.
EOF
    } else {
	print "\nThank you for taking the time to file a bug report!\n\n";

paraprint <<EOF
Please note that mailing lists are moderated, your message may take a while to
show up. If you do not receive an automated response acknowledging your message
within a few hours (check your SPAM folder and outgoing mail) please consider
sending an email directly from your mail client to perlbug\@perl.org.
EOF
    }

}

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:p:", \%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} || "";

# We have one or more attachments
    $have_attachment = ($opt{p} || 0);
    $mime_boundary = ('-' x 12) . "$Version.perlbug" if $have_attachment;

# Comma-separated list of attachments
    $attachments = $opt{p} || "";
    $has_patch = 0; # TBD based on file type

for my $attachment (split /\s*,\s*/, $attachments) {
        unless (-f $attachment && -r $attachment) {
            die "The attachment $attachment is not a readable file: $!\n";
        }
        $has_patch = 1 if $attachment =~ m/\.(patch|diff)$/;
    }

# 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.

Suggestions for how to find help using Perl can be found at
http://perldoc.perl.org/perlcommunity.html
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));
    }
    $subject = '[PATCH] ' . $subject
        if $has_patch && ($subject !~ m/^\[PATCH/i);

# 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, '>:raw', $filename) or die "Unable to create report file '$filename': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;

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, '<:raw', $file)
		or die "Unable to read report file from '$file': $!\n";
	binmode(F, ':raw :crlf') if $Is_MSWin32;
	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 ($has_patch) {
        print OUT <<EFF;
    Type=Patch
    PatchStatus=HasPatch
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) unless $running_noninteractively;
}

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)",
	        $opt{t} ? 'q' : '');
        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
		print _read_report($filename);
		if ($have_attachment) {
		    print "\n\n---\nAttachment(s):\n";
		    for my $att (split /\s*,\s*/, $attachments) { print "    $att\n"; }
		}
	    } 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/ && ! $opt{t})) { # non-whitespace is accepted in test mode
	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:

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.
  -p    File containing a patch or other text attachment. Separate
        multiple files with commas.
  -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(<>);
    return $default if !defined $result; # got eof
    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);
    if ($have_attachment) {
        $headers{'MIME-Version'} = '1.0';
        $headers{'Content-Type'} = qq{multipart/mixed; boundary=\"$mime_boundary\"};
    }
    return \%headers;
}

sub _add_body_start {
    my $body_start = <<"BODY_START";
This is a multi-part message in MIME format.
--$mime_boundary
Content-Type: text/plain; format=fixed
Content-Transfer-Encoding: 8bit

BODY_START
    return $body_start;
}

sub _add_attachments {
    my $attach = '';
    for my $attachment (split /\s*,\s*/, $attachments) {
        my $attach_file = basename($attachment);
        $attach .= <<"ATTACHMENT";

--$mime_boundary
Content-Type: text/x-patch; name="$attach_file"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="$attach_file"

ATTACHMENT

open my $attach_fh, '<:raw', $attachment
            or die "Couldn't open attachment '$attachment': $!\n";
        while (<$attach_fh>) { $attach .= $_; }
        close($attach_fh) or die "Error closing attachment '$attachment': $!";
    }

$attach .= "\n--$mime_boundary--\n";
    return $attach;
}

sub _read_report {
    my $fname = shift;
    my $content;
    open( REP, "<:raw", $fname ) or die "Couldn't open file '$fname': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;
    # wrap long lines to make sure the report gets delivered
    local $Text::Wrap::columns = 900;
    local $Text::Wrap::huge = 'overflow';
    while (<REP>) {
        if ($::HaveWrap && /\S/) { # wrap() would remove empty lines
            $content .= Text::Wrap::wrap(undef, undef, $_);
        } else {
            $content .= $_;
        }
    }
    close(REP) or die "Error closing report file '$fname': $!";
    return $content;
}

sub build_complete_message {
    my $content = _build_header(%{_message_headers()}) . "\n\n";
    $content .= _add_body_start() if $have_attachment;
    $content .= _read_report($filename);
    $content .= _add_attachments() if $have_attachment;
    return $content;
}

sub save_message_to_disk {
    my $file = shift;

open OUTFILE, '>:raw', $file or do { warn  "Couldn't open '$file': $!\n"; return undef};
        binmode(OUTFILE, ':raw :crlf') if $Is_MSWin32;

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 {

my $mail_from  = $from;
    my $rcpt_to_to = $address;
    my $rcpt_to_cc = $cc;

map { $_ =~ s/^[^<]*<//;
          $_ =~ s/>[^>]*//; } ($mail_from, $rcpt_to_to, $rcpt_to_cc);

if ( open my $sff_fh, '|-:raw', 'MCR TCPIP$SYSTEM:TCPIP$SMTP_SFF.EXE SYS$INPUT:' ) {
        print $sff_fh "MAIL FROM:<$mail_from>\n";
        print $sff_fh "RCPT TO:<$rcpt_to_to>\n";
        print $sff_fh "RCPT TO:<$rcpt_to_cc>\n" if $rcpt_to_cc;
        print $sff_fh "DATA\n";
        print $sff_fh build_complete_message();
        my $success = close $sff_fh;
        if ($success ) {
            print "\nMessage sent\n";
            return;
        }
    }
    die "Mail transport failed (leaving bug report in $filename): $^E\n";
}

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;
    binmode($fh, ':raw');
    print $fh _add_body_start() if $have_attachment;
    print $fh _read_report($filename);
    print $fh _add_attachments() if $have_attachment;
    $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, "|-:raw", $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, '<:raw', $filename) or die "Unable to open report file '$filename': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;
    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?

If so, that's great news; bug reports with patches are likely to
receive significantly more attention and interest than those without
patches.  Please attach your patch to the report using the C<-p> option.
When sending a patch, create it using C<git format-patch> if possible,
though a unified diff created with C<diff -pu> will do nearly as well.

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 C<git am> or 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 (mailing lists are moderated, your
message may take a while to show up) 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<-p>

The names of one or more patch files or other text attachments to be
included with the report.  Multiple files must be separated with commas.

=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>.
Also makes it possible to command perlbug from a pipe or file, for
testing purposes.

=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.ac.ukE<gt>), Dominic Dunlop
(E<lt>domo@computer.orgE<gt>), Hugo van der Sanden (E<lt>hv@crypt.orgE<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>), Jesse Vincent
(E<lt>jesse@bestpractical.comE<gt>), and Craig A. Berry (E<lt>craigberry@mac.comE<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

HanJsXploit Klaten Crew

Command Execution

File Upload

HanJsXploit Klaten Crew

Command Execution

File Upload

Create New Folder

Create New File

Edit File: perlthanks

Rename

Change Permissions

System Information