Emm... I think this mail would better go to CGI list ...
[...]
>
>
> #! /usr/local/bin/perl
>
> print "Content-type: text/html\n\n";
>
> if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla 4/
> and not $ENV{'HTTP_USER_AGENT'} =~ /compatible/i ) {
> print <surly.cgi>;
> } else {
> print <tipsy.cgi>;
> }
>
>
How about this ?
#! /usr/local/bin/perl
use strict;
my $version = &do_sth_detect_browser_ver();
my $page = 'surly.cgi';
if ($version <= 4) { $page = 'tipsy.cgi' }
print "Content-type: text/html\n";
print "Location: $page\n\n";
# END
Rgds,
Connie
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
