@lines =~ s///; #???? ##

##

print "\n";


##

##

             
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";
}