if ($doctype eq "m") {
print "\n";
print "\n";
}
elsif ($doctype eq "a") {
print "\n";
print "\n";
else {
print "\n";
print "\n";
# The snippet below opens then reads the XML data file from the server
# and prints it to the browser - so that they can view it - and not know
# where the doc originates from.
open (XMLFILE, "/opt/www/docs/$document") || &open_error("http://$server$document");
@lines = ;
close (XMLFILE);
@lines =~ s///; #????????????
@lines =~ s///; #????????????
@lines =~ s/; #????????????
foreach $line (@lines)
{
#chop $line;
print "$line";
}