#!/usr/pkg/bin/perl
eval 'exec /usr/pkg/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$\ = "\n"; # set output record separator
$dialurl = 'https://localhost/cgi-bin/dial.cgi';
print '';
print '';
print 'Keith Moore\'s Address Book';
print '';
print '';
print 'Keith Moore\'s Address Book
';
print '';
print '';
print '| Name | ';
print 'Home | ';
print 'Work | ';
print 'Mobile | ';
print 'E-mail | ';
print '
';
line: while (<>) {
chop; # strip record separator
if (/^Last name: /) {
$Last = substr($_, 12, length($_) - 11);
next line;
}
if (/^First name: /) {
$first = substr($_, 13, length($_) - 12);
next line;
}
if (/^Work: /) {
$work = substr($_, 7, length($_) - 6);
$workurl = $work;
$workurl =~ s/[- ]//g;
$workurl =~ s/\([^)]*\)//g;
$workurl =~ s/\+/%2B/g;
next line;
}
if (/^Home: /) {
$home = substr($_, 7, length($_) - 6);
$homeurl = $home;
$homeurl =~ s/[- ]//g;
$homeurl =~ s/\([^)]*\)//g;
$homeurl =~ s/\+/%2B/g;
next line;
}
if (/^Mobile: /) {
$mobile = substr($_, 9, length($_) - 8);
$mobileurl = $mobile;
$mobileurl =~ s/[- ]//g;
$mobileurl =~ s/\([^)]*\)//g;
$mobileurl =~ s/\+/%2B/g;
next line;
}
if (/^E-mail: /) {
$email = substr($_, 9, length($_) - 8);
$emailurl = $email;
$emailurl =~ s/\+/%2B/g;
next line;
}
if (/^$/) {
if ($first . $Last . $home . $work . $mobile . $email ne '') {
print '';
printf '| %s %s | ', $first, $Last;
if ($home eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl,
$homeurl, $home;
}
if ($work eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl,
$workurl, $work;
}
if ($mobile eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl,
$mobileurl, $mobile;
}
if ($email eq '') {
printf ((' | '));
}
else {
printf "%s | ",
$emailurl, $email;
}
print '
';
}
$first = '';
$Last = '';
$home = '';
$homeurl = '';
$work = '';
$workurl = '';
$mobile = '';
$mobileurl = '';
$email = '';
$emailurl = '';
}
next line;
}
if ($first . $Last . $home . $work . $mobile . $email ne '') {
print '';
printf '| %s %s | ', $first, $Last;
if ($home eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl, $homeurl, $home;
}
if ($work eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl, $workurl, $work;
}
if ($mobile eq '') {
printf ((' | '));
}
else {
printf "%s | ", $dialurl, $mobileurl,
$work;
}
if ($email eq '') {
printf ((' | '));
}
else {
printf "%s | ", $emailurl, $email;
}
print '
';
}
print '
';
print '';
print '';