;
$line =~ s/([QA])\#(\d+)/"$1#".&map($2)/ge;
printf (outfp "%s", $line);
} until ($line =~ /^\s*$/);
}
# do the html version
$line = &text2html(@_[0]);
if ($line =~ /^([QA])\#(\d+):(.*)/) {
# start of a question or answer
$qora = $1;
$num = $2;
$rest = $3;
if ($qora eq 'Q') {
printf(outfp2
"\n\n",
&mapnum(&map($num)), &map($num), $htmlQuestion{&map($num)})
} else {
$rest =~ s,Q\#(\d+),
'Q#'.&map($1).'',ge;
$rest =~ s/^\t//;
printf(outfp2 "%s\n", $rest);
}
} else {
$line =~ s,Q\#(\d+),'Q#'.&map($1).
'',ge;
$line =~ s/^\t//;
# replace http:// and ftp:// with the link equivalents
$line =~ s,(http|ftp)://(\S+),''.$1.'://'.$2.'',ge;
# $line =~ s,ftp://(\S+),'http://'.$1.'',ge;
printf (outfp2 "%s", $line);
}
}
sub mapnum {
local($num);
$num = @_[0];
$num =~ s/\./_/g;
return $num
}
#
# &fmt (tabs, text)
#
# This routine formats the specified text to fall within 76 columns,
# and indents the text with the specified number of tabs (considered
# to be 8 characters wide).
#
# The first line will _not_ be preceeded by any tabs, even though
# the length will be calculated as if it is.
#
sub fmt {
local (@array, $tabs, $line, $columns, $result, $tablen, $linelen);
local ($word, $len, $i);
$tabs = int(@_[0]);
$line = @_[1];
$columns = 76; # maximum column number to print
$tablen = 8; # spaces per tab
$line =~ s/\s+/ /g;
@array = split ("[ \t]+", $line);
$result = '';
$linelen = 0;
for ($i = 0; $i < $tabs; $i++) {
$linelen += $tablen;
}
foreach $word (@array) {
$len = length($word);
if ($columns - $linelen > $len) {
# add it into the current line
if ($linelen == $tablen * $tabs) {
$result .= $word;
$linelen += $len;
} else {
$result .= ' ' . $word;
$linelen += $len + 1;
}
} else {
# start a new line
$result .= "\n";
$linelen = 0;
for ($i = 0; $i < $tabs; $i++) {
$result .= "\t";
$linelen += $tablen;
}
$result .= $word;
$linelen += $len;
}
}
return $result;
}
#
# Translates HTML special character sequences into their "escaped" formats
#
sub text2html {
local($line);
$line = @_[0];
$line =~ s//>/g;
$line =~ s/"/"/g;
return $line;
}