#!/usr/local/bin/perl

####################################################################
#                                                                  #
#               Browser Redirection                                #
#               Kastle Internet Services                           #
#               http://www.kastle.net                              #
#               kastle@kastle.net                                  #
#                                                                  #
####################################################################
#                                                                  $
#  THIS PROGRAM MAY BE USED AND DISTRIBUTED FREELY PROVIDED        #
#  NO MODIFICATIONS ARE MADE TO THE CODE.                          #
#                                                                  #
#  Copyright (c) 1998 - Kastle Internet Services                   #
#  All rights reserved                                             #
#  Written & Tested by Kastle Internet Services                    #
#  gatekeeper@kastle.net                                           #
#                                                                  #
#                                                                  #
####################################################################
#  DISCLAIMER:                                                     #
#                                                                  #
#  In no event will Kastle Internet Services be liable to the user #
#  of this script or any third party for any damages, including    #
#  any lost profits, lost savings or other incidental,             #
#  consequential or special damages arising out of the operation   #
#  of or inability to operate this script, even if user has been   #
#  advised of the possibility of such damages.                     #
#                                                                  #
####################################################################

require "browser.conf";


#########################################
#      DO NOT EDIT BELOW THIS LINE      #
#########################################


($TYPE = $ENV{'HTTP_USER_AGENT'});

$browser=$browser1 if $TYPE =~ /Mozilla\/2.0/;
$browser=$browser2 if $TYPE =~ /Mozilla\/1.1/;
$browser=$browser3 if $TYPE =~ /Mozilla\/1.0/;
$browser=$browser4 if $TYPE =~ /Lynx/i;
$browser=$browser5 if $TYPE =~ /microsoft/i;
$browser=$browser6 if $TYPE =~ /mosaic/;
$browser=$browser7 if $TYPE =~ /aol/i;
$browser=$browser8 if $TYPE =~ /java/i;
$browser=$browser9 if $TYPE =~ /MacWeb/i;
$browser=$browser10 if $TYPE =~ /WebExplorer/i;


print "Content-type: text/html\n\n";
open (PAGE, "$browser") || die "Couldn't open $browser";
while (<PAGE>) {print;}