Okay, I've got it figured out. Thanks for you help. I'll just
redirect the print commands to run the new headers depending on
browser versions.
--Dave
#!/usr/local/bin/perl5
use CGI qw(:all); # 'cause I'm lazy like that
print header(), start_html();
if ($ENV{HTTP_USER_AGENT} =~ /Mozilla\/4/i
and not $ENV{'HTTP_USER_AGENT'} =~ /compatible/i ) {
print "Netscape 4 page.\n";
} else {
print "hello, user of anything that ain't Netscape 4.\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
