FM / bin

/usr/bin

Name	Size	Mode	Actions
.ssh.hmac	65	0644	edit dl rm
a2p	106792	0755	edit dl rm
aclocal	31181	0755	edit dl rm
aclocal-1.11	31181	0755	edit dl rm
addftinfo	23488	0755	edit dl rm
addr2line	25480	0755	edit dl rm
animate	5848	0755	edit dl rm
ar	56624	0755	edit dl rm
as	328392	0755	edit dl rm
aspell	164064	0755	edit dl rm
at	1036	0755	edit dl rm
atq	1038	0755	edit dl rm
atrm	1040	0755	edit dl rm
autoconf	14631	0755	edit dl rm
autoheader	8484	0755	edit dl rm
autom4te	31789	0755	edit dl rm
automake	257062	0755	edit dl rm
automake-1.11	257062	0755	edit dl rm
autoreconf	20233	0755	edit dl rm
autoscan	17065	0755	edit dl rm
autoupdate	33766	0755	edit dl rm
awk	375616	0755	edit dl rm
base64	29240	0755	edit dl rm
bashbug-64	6932	0755	edit dl rm
batch	137	0755	edit dl rm
bdftops	292	0755	edit dl rm
bison	299856	0755	edit dl rm
bunzip2	32936	0755	edit dl rm
bzcat	32936	0755	edit dl rm
bzcmp	2128	0755	edit dl rm
bzdiff	2128	0755	edit dl rm
bzgrep	1677	0755	edit dl rm
bzip2	32936	0755	edit dl rm
bzip2recover	10872	0755	edit dl rm
bzless	1259	0755	edit dl rm
bzmore	1259	0755	edit dl rm
c++	267928	0755	edit dl rm
c++filt	23688	0755	edit dl rm
c2ph	36601	0755	edit dl rm
c89	224	0755	edit dl rm
c99	215	0755	edit dl rm
cal	16784	0755	edit dl rm
captoinfo	49832	0755	edit dl rm
catchsegv	3384	0755	edit dl rm
cc	264472	0755	edit dl rm
chcon	57144	0755	edit dl rm
chrt	9624	0755	edit dl rm
cksum	25272	0755	edit dl rm
cldetect	10689	0755	edit dl rm
clear	4976	0755	edit dl rm
cloudlinux-awp-user	1818	0755	edit dl rm
clwpos-user	1818	0755	edit dl rm
cmp	19248	0755	edit dl rm
col	10904	0755	edit dl rm
colcrt	7920	0755	edit dl rm
colrm	5576	0755	edit dl rm
column	9744	0755	edit dl rm
comm	28456	0755	edit dl rm
compare	5968	0755	edit dl rm
composite	5848	0755	edit dl rm
conjure	5848	0755	edit dl rm
convert	5848	0755	edit dl rm
cpan	11839	0755	edit dl rm
cpp	267912	0755	edit dl rm
crontab	1388	0755	edit dl rm
crontab.cagefs	308048	0755	edit dl rm
csplit	106168	0755	edit dl rm
curl	120512	0755	edit dl rm
cut	41704	0755	edit dl rm
dbiprof	6300	0755	edit dl rm
dbiproxy	5482	0755	edit dl rm
ddate	11448	0755	edit dl rm
diff	81080	0755	edit dl rm
diff3	23480	0755	edit dl rm
dig	133688	0755	edit dl rm
dir	109208	0755	edit dl rm
dircolors	32872	0755	edit dl rm
dirname	23720	0755	edit dl rm
display	5848	0755	edit dl rm
dltest	7232	0755	edit dl rm
dprofpp	24089	0755	edit dl rm
du	95448	0755	edit dl rm
dumphint	554	0755	edit dl rm
dvipdf	1057	0755	edit dl rm
enc2xs	39147	0755	edit dl rm
enchant	13136	0755	edit dl rm
enchant-lsmod	7336	0755	edit dl rm
env	23832	0755	edit dl rm
eps2eps	632	0755	edit dl rm
eqn	137328	0755	edit dl rm
eqn2graph	2242	0755	edit dl rm
expand	27960	0755	edit dl rm
expr	97688	0755	edit dl rm
factor	44696	0755	edit dl rm
fc-cache	13000	0755	edit dl rm
fc-cat	11136	0755	edit dl rm
fc-list	8840	0755	edit dl rm
fc-match	9992	0755	edit dl rm
fc-query	7568	0755	edit dl rm
fc-scan	7872	0755	edit dl rm
file	15680	0755	edit dl rm
find	234512	0755	edit dl rm
find2perl	23614	0755	edit dl rm
flex	332448	0755	edit dl rm
flex++	332448	0755	edit dl rm
flock	10928	0755	edit dl rm
floppy	23616	0755	edit dl rm
fmt	30264	0755	edit dl rm
fold	28024	0755	edit dl rm
font2c	300	0755	edit dl rm
free	9696	0755	edit dl rm
freetype-config	3830	0755	edit dl rm
funzip	22056	0755	edit dl rm
g++	267928	0755	edit dl rm
gawk	375616	0755	edit dl rm
gcc	264472	0755	edit dl rm
gcov	39848	0755	edit dl rm
gencat	23048	0755	edit dl rm
geoiplookup	15064	0755	edit dl rm
geoiplookup6	10904	0755	edit dl rm
geqn	137328	0755	edit dl rm
GET	14519	0755	edit dl rm
getconf	22808	0755	edit dl rm
getent	27776	0755	edit dl rm
getopt	12040	0755	edit dl rm
ghostscript	6760	0755	edit dl rm
gindxbib	27824	0755	edit dl rm
git	1139544	0755	edit dl rm
git-receive-pack	1139560	0755	edit dl rm
git-shell	461304	0755	edit dl rm
git-upload-archive	1139560	0755	edit dl rm
git-upload-pack	471216	0755	edit dl rm
glookbib	33320	0755	edit dl rm
gm	4856	0755	edit dl rm
gmake	170576	0755	edit dl rm
gneqn	255	0755	edit dl rm
gnroff	2401	0755	edit dl rm
gpg	761688	0755	edit dl rm
gpg-agent	297976	0755	edit dl rm
gpg-error	18576	0755	edit dl rm
gpg-zip	3303	0755	edit dl rm
gpg2	761688	0755	edit dl rm
gpgsplit	48536	0755	edit dl rm
gpgv	336480	0755	edit dl rm
gpgv2	336480	0755	edit dl rm
gpic	213616	0755	edit dl rm
gprof	94960	0755	edit dl rm
grefer	122224	0755	edit dl rm
grn	65408	0755	edit dl rm
grodvi	81400	0755	edit dl rm
groff	65424	0755	edit dl rm
groffer	7777	0755	edit dl rm
grolbp	87960	0755	edit dl rm
grolj4	77464	0755	edit dl rm
grops	117008	0755	edit dl rm
grotty	77304	0755	edit dl rm
groups	24408	0755	edit dl rm
gs	6760	0755	edit dl rm
gsbj	337	0755	edit dl rm
gsdj	339	0755	edit dl rm
gsdj500	342	0755	edit dl rm
gslj	340	0755	edit dl rm
gslp	337	0755	edit dl rm
gsnd	264	0755	edit dl rm
gsoelim	23512	0755	edit dl rm
gtbl	98176	0755	edit dl rm
gtroff	354864	0755	edit dl rm
gunzip	61	0755	edit dl rm
gzexe	5935	0755	edit dl rm
gzip	64688	0755	edit dl rm
h2ph	28036	0755	edit dl rm
h2xs	60385	0755	edit dl rm
head	32520	0755	edit dl rm
hexdump	21576	0755	edit dl rm
host	119928	0755	edit dl rm
hostid	22056	0755	edit dl rm
hpftodit	20384	0755	edit dl rm
hunspell	52784	0755	edit dl rm
iconv	60272	0755	edit dl rm
icu-config	11187	0755	edit dl rm
id	28104	0755	edit dl rm
identify	5968	0755	edit dl rm
idn	32488	0755	edit dl rm
ifnames	4049	0755	edit dl rm
import	5848	0755	edit dl rm
indxbib	27824	0755	edit dl rm
infocmp	50960	0755	edit dl rm
infotocap	49832	0755	edit dl rm
install	107200	0755	edit dl rm
instmodsh	4253	0755	edit dl rm
ionice	15112	0755	edit dl rm
ipcrm	9064	0755	edit dl rm
ipcs	19720	0755	edit dl rm
isosize	7320	0755	edit dl rm
ispell	988	0755	edit dl rm
isql	27616	0755	edit dl rm
iusql	21576	0755	edit dl rm
join	40360	0755	edit dl rm
kill	11576	0755	edit dl rm
ld	588496	0755	edit dl rm
ldd	5325	0755	edit dl rm
less	149976	0755	edit dl rm
lessecho	7376	0755	edit dl rm
lesskey	16264	0755	edit dl rm
lesspipe.sh	2804	0755	edit dl rm
lex	332448	0755	edit dl rm
libnetcfg	15724	0755	edit dl rm
libtool	283333	0755	edit dl rm
libtoolize	68161	0755	edit dl rm
lkbib	33544	0755	edit dl rm
locale	38640	0755	edit dl rm
localedef	326880	0755	edit dl rm
logger	11608	0755	edit dl rm
logname	22152	0755	edit dl rm
look	8080	0755	edit dl rm
lookbib	33320	0755	edit dl rm
lprsetup.sh	4661	0755	edit dl rm
lynx	1390984	0755	edit dl rm
m4	208520	0755	edit dl rm
Mail	378720	0755	edit dl rm
make	170576	0755	edit dl rm
mcookie	11032	0755	edit dl rm
md5sum	32472	0755	edit dl rm
mesg	6744	0755	edit dl rm
mkfifo	25272	0755	edit dl rm
mogrify	5848	0755	edit dl rm
montage	5848	0755	edit dl rm
msql2mysql	1956	0755	edit dl rm
mysql	3844478	0755	edit dl rm
mysqlaccess	112528	0755	edit dl rm
mysqladmin	3529601	0755	edit dl rm
mysqlbinlog	3727752	0755	edit dl rm
mysqlcheck	3526305	0755	edit dl rm
mysqldump	3603495	0755	edit dl rm
mysqlimport	3526103	0755	edit dl rm
mysqlshow	3519973	0755	edit dl rm
mysql_config	7016	0755	edit dl rm
mysql_find_rows	3791	0755	edit dl rm
mysql_waitpid	3273073	0755	edit dl rm
my_print_defaults	3275254	0755	edit dl rm
namei	12712	0755	edit dl rm
nano	171784	0755	edit dl rm
neqn	255	0755	edit dl rm
net-snmp-create-v3-user	2961	0755	edit dl rm
nl	98120	0755	edit dl rm
nm	41280	0755	edit dl rm
nohup	26184	0755	edit dl rm
nproc	24264	0755	edit dl rm
nroff	2401	0755	edit dl rm
nslookup	120120	0755	edit dl rm
nsupdate	59528	0755	edit dl rm
objcopy	212264	0755	edit dl rm
objdump	284936	0755	edit dl rm
od	58152	0755	edit dl rm
odbcinst	23328	0755	edit dl rm
odbc_config	6808	0755	edit dl rm
openssl	525600	0755	edit dl rm
pango-querymodules-64	10176	0755	edit dl rm
pango-view	49688	0755	edit dl rm
passwd	1044	0755	edit dl rm
paste	25544	0755	edit dl rm
patch	118104	0755	edit dl rm
pathchk	23752	0755	edit dl rm
pdf2dsc	696	0755	edit dl rm
pdf2ps	901	0755	edit dl rm
pdfopt	547	0755	edit dl rm
perl	7184	0755	edit dl rm
perl5.10.1	7184	0755	edit dl rm
perlbug	44726	0755	edit dl rm
perldoc	224	0755	edit dl rm
perlivp	12303	0755	edit dl rm
perlml	4480	0755	edit dl rm
perlthanks	44726	0755	edit dl rm
pf2afm	495	0755	edit dl rm
pfbtopfa	511	0755	edit dl rm
pfbtops	6776	0755	edit dl rm
pgrep	16144	0755	edit dl rm
php	937	0755	edit dl rm
php-cli	933	0755	edit dl rm
php5	933	0755	edit dl rm
php5-cli	933	0755	edit dl rm
pic	213616	0755	edit dl rm
pic2graph	2563	0755	edit dl rm
pico	171784	0755	edit dl rm
piconv	7337	0755	edit dl rm
pinentry	2602	0755	edit dl rm
pinentry-curses	48600	0755	edit dl rm
pinky	29608	0755	edit dl rm
pkg-config	105888	0755	edit dl rm
pkill	16144	0755	edit dl rm
pl2pm	4531	0755	edit dl rm
pmap	12136	0755	edit dl rm
pod2html	2338	0755	edit dl rm
pod2latex	10255	0755	edit dl rm
pod2man	21175	0755	edit dl rm
pod2text	9080	0755	edit dl rm
pod2usage	3342	0755	edit dl rm
podchecker	3699	0755	edit dl rm
podselect	2527	0755	edit dl rm
post-grohtml	131608	0755	edit dl rm
pr	61768	0755	edit dl rm
pre-grohtml	70640	0755	edit dl rm
precat	5656	0755	edit dl rm
preunzip	5656	0755	edit dl rm
prezip	5656	0755	edit dl rm
prezip-bin	7152	0755	edit dl rm
printafm	386	0755	edit dl rm
printenv	23736	0755	edit dl rm
printf	46344	0755	edit dl rm
protoize	68664	0755	edit dl rm
prove	9369	0755	edit dl rm
ps2ascii	786	0755	edit dl rm
ps2epsi	2772	0755	edit dl rm
ps2pdf	315	0755	edit dl rm
ps2pdf12	260	0755	edit dl rm
ps2pdf13	260	0755	edit dl rm
ps2pdf14	260	0755	edit dl rm
ps2pdfwr	1088	0755	edit dl rm
ps2ps	634	0755	edit dl rm
ps2ps2	704	0755	edit dl rm
psed	53325	0755	edit dl rm
pstruct	36601	0755	edit dl rm
ptx	127064	0755	edit dl rm
pv.sh	1420	0755	edit dl rm
pwdx	6744	0755	edit dl rm
pydoc	78	0755	edit dl rm
python	4864	0755	edit dl rm
python2	4864	0755	edit dl rm
python2.6	4864	0755	edit dl rm
quota	82752	0755	edit dl rm
ranlib	56624	0755	edit dl rm
readelf	302608	0755	edit dl rm
readlink	36360	0755	edit dl rm
recode	40168	0755	edit dl rm
refer	122224	0755	edit dl rm
rename	6752	0755	edit dl rm
renice	7320	0755	edit dl rm
reset	17896	0755	edit dl rm
rev	6784	0755	edit dl rm
rnano	171784	0755	edit dl rm
rpcgen	93000	0755	edit dl rm
run-with-aspell	85	0755	edit dl rm
runcon	28104	0755	edit dl rm
rvim	2288088	0755	edit dl rm
s2p	53325	0755	edit dl rm
scl	18304	0755	edit dl rm
scl_enabled	258	0755	edit dl rm
scl_source	1870	0755	edit dl rm
scp	75848	0755	edit dl rm
screen	383096	0755	edit dl rm
script	12624	0755	edit dl rm
sdiff	23568	0755	edit dl rm
selectorctl	7784	0755	edit dl rm
seq	40280	0755	edit dl rm
setsid	5536	0755	edit dl rm
setterm	20784	0755	edit dl rm
sftp	104528	0755	edit dl rm
sha1sum	36280	0755	edit dl rm
sha224sum	42136	0755	edit dl rm
sha256sum	42136	0755	edit dl rm
sha384sum	48568	0755	edit dl rm
sha512sum	48568	0755	edit dl rm
shred	48896	0755	edit dl rm
shuf	36408	0755	edit dl rm
size	28040	0755	edit dl rm
skill	15104	0755	edit dl rm
slabtop	12888	0755	edit dl rm
slogin	450728	0755	edit dl rm
snice	15104	0755	edit dl rm
snmpconf	26137	0755	edit dl rm
soelim	23512	0755	edit dl rm
spell	122	0755	edit dl rm
splain	17452	0755	edit dl rm
split	52824	0755	edit dl rm
sprof	23104	0755	edit dl rm
sqlite3	52680	0755	edit dl rm
ssh	450728	0755	edit dl rm
ssh-add	163016	0755	edit dl rm
ssh-agent	145480	0755	edit dl rm
ssh-copy-id	1425	0755	edit dl rm
ssh-keygen	203976	0755	edit dl rm
ssh-keyscan	253752	0755	edit dl rm
stat	46152	0755	edit dl rm
stdbuf	60920	0755	edit dl rm
strace	433560	0755	edit dl rm
stream	5848	0755	edit dl rm
strings	28040	0755	edit dl rm
strip	212264	0755	edit dl rm
sum	32096	0755	edit dl rm
tabs	11192	0755	edit dl rm
tac	93720	0755	edit dl rm
tail	57688	0755	edit dl rm
tailf	8520	0755	edit dl rm
tbl	98176	0755	edit dl rm
tclsh	5224	0755	edit dl rm
tclsh8.5	5224	0755	edit dl rm
tee	24184	0755	edit dl rm
test	30248	0755	edit dl rm
tfmtodit	23560	0755	edit dl rm
tic	49832	0755	edit dl rm
time	14136	0755	edit dl rm
timeout	46720	0755	edit dl rm
tload	7824	0755	edit dl rm
tmpwatch	17792	0755	edit dl rm
toe	11392	0755	edit dl rm
top	62448	0755	edit dl rm
tput	11504	0755	edit dl rm
tr	37608	0755	edit dl rm
troff	354864	0755	edit dl rm
truncate	48616	0755	edit dl rm
tset	17896	0755	edit dl rm
tsort	31976	0755	edit dl rm
tty	21928	0755	edit dl rm
tzselect	7131	0755	edit dl rm
uapi	1040	0755	edit dl rm
ul	13416	0755	edit dl rm
unexpand	28056	0755	edit dl rm
uniq	36472	0755	edit dl rm
unix-lpr.sh	4206	0755	edit dl rm
unprotoize	57504	0755	edit dl rm
unzip	167160	0755	edit dl rm
unzipsfx	76968	0755	edit dl rm
uptime	4840	0755	edit dl rm
users	24104	0755	edit dl rm
utmpdump	10936	0755	edit dl rm
vdir	109208	0755	edit dl rm
vim	2288088	0755	edit dl rm
vimdiff	2288088	0755	edit dl rm
vimtutor	2084	0755	edit dl rm
vmstat	20320	0755	edit dl rm
watch	12576	0755	edit dl rm
wc	32616	0755	edit dl rm
wftopfa	284	0755	edit dl rm
wget	357400	0755	edit dl rm
whereis	11456	0755	edit dl rm
which	20768	0755	edit dl rm
who	45016	0755	edit dl rm
whoami	23736	0755	edit dl rm
word-list-compress	6720	0755	edit dl rm
x86_64-redhat-linux-c++	267928	0755	edit dl rm
x86_64-redhat-linux-g++	267928	0755	edit dl rm
x86_64-redhat-linux-gcc	264472	0755	edit dl rm
xargs	44024	0755	edit dl rm
xmlcatalog	15152	0755	edit dl rm
xmllint	58888	0755	edit dl rm
xmlwf	22416	0755	edit dl rm
xsltproc	23536	0755	edit dl rm
xsubpp	4093	0755	edit dl rm
xxd	15160	0755	edit dl rm
yes	22120	0755	edit dl rm
zcmp	67	0755	edit dl rm
zdiff	4459	0755	edit dl rm
zegrep	62	0755	edit dl rm
zfgrep	62	0755	edit dl rm
zforce	2026	0755	edit dl rm
zgrep	5407	0755	edit dl rm
zip	212048	0755	edit dl rm
zipcloak	107104	0755	edit dl rm
zipgrep	2953	0755	edit dl rm
zipinfo	167160	0755	edit dl rm
zipnote	98584	0755	edit dl rm
zipsplit	102680	0755	edit dl rm
zless	1731	0755	edit dl rm
zmore	2605	0755	edit dl rm
znew	5270	0755	edit dl rm
zsoelim	23512	0755	edit dl rm
[	33408	0755	edit dl rm

Edit: /usr/bin/perlbug (44726B)

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

my $config_tag1 = '5.10.1';

my $patch_tags = '';
my @patches = (
    ''
);

use warnings;
no warnings 'once'; # Eventually, the $::opt_ stuff should get cleaned up
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";

# Changed in 1.06 to skip Mail::Send and Mail::Util if not available.
# Changed in 1.07 to see more sendmail execs, and added pipe output.
# Changed in 1.08 to use correct address for sendmail.
# Changed in 1.09 to close the REP file before calling it up in the editor.
#                 Also removed some old comments duplicated elsewhere.
# Changed in 1.10 to run under VMS without Mail::Send; also fixed
#                 temp filename generation.
# Changed in 1.11 to clean up some text and removed Mail::Send deactivator.
# Changed in 1.12 to check for editor errors, make save/send distinction
#                 clearer and add $ENV{REPLYTO}.
# Changed in 1.13 to hopefully make it more difficult to accidentally
#                 send mail
# Changed in 1.14 to make the prompts a little more clear on providing
#                 helpful information. Also let file read fail gracefully.
# Changed in 1.15 to add warnings to stop people using perlbug for non-bugs.
#                 Also report selected environment variables.
# Changed in 1.16 to include @INC, and allow user to re-edit if no changes.
# Changed in 1.17 Win32 support added.  GSAR 97-04-12
# Changed in 1.18 add '-ok' option for reporting build success. CFR 97-06-18
# Changed in 1.19 '-ok' default not '-v'
#                 add local patch information
#                 warn on '-ok' if this is an old system; add '-okay'
# Changed in 1.20 Added patchlevel.h reading and version/config checks
# Changed in 1.21 Added '-nok' for reporting build failure DFD 98-05-05
# Changed in 1.22 Heavy reformatting & minor bugfixes HVDS 98-05-10
# Changed in 1.23 Restore -ok(ay): say 'success'; don't prompt
# Changed in 1.24 Added '-F<file>' to save report HVDS 98-07-01
# Changed in 1.25 Warn on failure to open save file. HVDS 98-07-12
# Changed in 1.26 Don't require -t STDIN for -ok. HVDS 98-07-15
# Changed in 1.27 Added Mac OS and File::Spec support CNANDOR 99-07-27
# Changed in 1.28 Additional questions for Perlbugtron RFOLEY 20.03.2000
# Changed in 1.29 Perlbug(tron): auto(-ok), short prompts RFOLEY 05-05-2000
# Changed in 1.30 Added warnings on failure to open files MSTEVENS 13-07-2000
# Changed in 1.31 Add checks on close().Fix my $var unless. TJENNESS 26-07-2000
# Changed in 1.32 Use File::Spec->tmpdir TJENNESS 20-08-2000
# Changed in 1.33 Don't require -t STDOUT for -ok.
# Changed in 1.34 Added Message-Id RFOLEY 18-06-2002 
# Changed in 1.35 Use File::Temp (patch from Solar Designer) NWCLARK 28-02-2004
# Changed in 1.36 Initial Module::CoreList support Alexandr Ciornii 11-07-2007
# Changed in 1.37 Killed some string evals, rewrote most prose JESSE 2008-06-08
# Changed in 1.38 Actually enforce the CoreList check,
#                 Record the module the user enters if they do so
#                 Refactor prompts to use common code           JESSE 2008-06-08
# Changed in 1.39 Trap mail sending failures (simple ones) so   JESSE 2008-06-08
#                 users might be able to recover their bug reports
#                 Refactor mail sending routines
#                 Unify message building code
#                 Unify message header building
#                 Fix "module" prompting to not squish "category" prompting 
#                 use warnings; (except 'once' warnings)
#                 Unified report fingerprint/change detection code
#                 Removed some labeled 'gotos'
#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_MacOS, $Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,
    $report_about_module, $category, $severity,

);

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';
    $Is_MacOS = $^O eq 'MacOS';

@ARGV = split m/\s+/,
        MacPerl::Ask('Provide command line args here (-h for help):')
        if $Is_MacOS && $MacPerl::Version =~ /App/;

if (!getopts("Adhva:s:b:f:F:r:e:SCc:to:n:T")) { 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 Reply-To header
    $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")
	|| ($Is_MacOS && '')
	|| "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'}
	    : $Is_MacOS ? $ENV{'USER'}
	    : 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 ($from) {
	# Try and guess return address
	my $guess;

$guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || '';
        if ($Is_MacOS) {
            require Mac::InternetConfig;
            $guess = $Mac::InternetConfig::InternetConfig{
                Mac::InternetConfig::kICEmail()
            };
        }

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 ($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) = @_;

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 in the Fedora build system.\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 =~ 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 ) {
        if ($Is_MacOS) {
            require ExtUtils::MakeMaker;
            ExtUtils::MM_MacOS::launch_file($filename);
            _prompt('', "Press Enter when done." );
        } else {    # we're not on oldschool mac os
            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]end 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:

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);
    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;

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) {
        paraprint(<<"EOF"), die "\n";
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.
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" )
        || die "'|$sendmail -t -oi' 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 apropriate 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

cmd: