#!/usr/local/bin/perl print "Content-type: text/html\n"; #foreach $k (keys %ENV) { #print "$k $ENV{$k}
"; #} if ($ENV{'REMOTE_ADDR'}=~/^192\.41\.170\./) { print "Location: https://amanda.cs.ait.ac.th/index.php\n\n"; } else { print "Location: http://www.cs.ait.ac.th/laboratory/amanda/index.shtml\n\n"; }