#!/usr/bin/perl
print "Content-type: text/html","\n\n";
$nongraphic_browsers = 'Lynx|CERN-LineMode';
$client_browser=$ENV{'HTTP_USER_AGENT'};
$graphic_document="full_graphics.html";
$text_document="text_only.html";
if ($client_browser=~/$nongraphic_browsers/) {$html_document=$text_document;}
else {$html_document=$graphic_document;}
$document_root=$ENV{'DOCUMENT_ROOT'};
$html_document=join("/",$document_root, $html_document);
if (open (HTML,"<" . $html_document)) {
while () {print;
}
close (HTML);
}
else {
print "Oops! There is a problem with the configuration of this system!","\n";
}
exit (0);