#! /usr/bin/perl -w
#
# Get IP address of visitor
# Olivier Julien, April 2013
# Wells lab, UCSF
#
use CGI;
use CGI::Carp;
#use strict;
use Socket;
use LWP::Simple;
$version = "2.0";
# Start an HTML document
print "Content-type: text/html;\n\n";
############### GET THE IP #############
#my $hostname = gethostbyaddr(inet_aton($ENV{REMOTE_ADDR}), AF_INET);
#print "Welcome, visitor from $hostname!
";
$ip = $ENV{REMOTE_ADDR};
#print "Visitor IP = $ip";
if ($ip =~ m/169.230/)
{
# print "Visitor IP = $ip";
print "\n";
}
else
{
print "
";
print "";
print "";
print "";
print "
";
print "Sorry, Degrabase 2.0 is only available from a UCSF-associated IP address. ";
print "Please contact Olivier.Julien at ucsf.edu for a special permission";
}
![\"Wells](\"../img/wells_lab_logo.gif\"){kind=logo}
![\"UCSF,](\"../img/ucsf_depts.gif\")
";
print "