#! /usr/local/bin/perl

 $| = 1;

 #PATH TO ROOT DIRECTORY
 $BASE = "$ENV{SERVER_URL}";         

 @BROWSERS = ('Mozilla','Lynx','Mosaic','MSIE','X11','Mozilla/1','Mozilla/2','Mozilla/4');
 $LOCATIONS{'Mozilla'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'Lynx'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'Mosaic'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'MSIE'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'X11'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'Mozilla/1'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'Mozilla/2'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'Mozilla/4'} = '/Initiatives/Millennium/index.shtml';
 $LOCATIONS{'default'} = '/Initiatives/Millennium/index.shtml';

 foreach $POSSIBLE (@BROWSERS) {
	($ENV{'HTTP_USER_AGENT'} =~ /$POSSIBLE.*/)&&($BROWSER = $POSSIBLE); 
 }

 ($BROWSER eq '')&&($BROWSER = 'default');

 $LOCATION = $LOCATIONS{$BROWSER};
 
 print "Location: $BASE$LOCATION\n\n";
 #print "Content-type: text/plain\n\n";
 #print "$ENV{'SERVER_URL'}\n";
 exit;