#!/usr/bin/perl
push (@INC, "/web/support");
if ($ENV{HTTP_USER_AGENT} =~ /googlebot/i ||
$ENV{HTTP_USER_AGENT} =~ /search.msn.com\/msnbot.htm/i ||
$ENV{HTTP_USER_AGENT} =~ /bingbot/i ||
$ENV{HTTP_USER_AGENT} =~ /scirus-crawler/i ||
$ENV{HTTP_USER_AGENT} =~ /Ask Jeeves/i ||
$ENV{HTTP_USER_AGENT} =~ /yahoo.*slurp/i) {
require "members.pl";
print "Content-type: text/html\r\n\r\n";
print "OhioLINK - ISI Web of Knowledge\n\n";
print "OhioLINK access to the ISI Web of Knowledge
\n";
print "This service is available only to students, staff, and
faculty of
OhioLINK institutions, 90 Ohio colleges and universities,
plus the State Library of Ohio. Other researchers should contact
their own libraries for access to ISI databases.
This link provides access to the ISI Web of Knowledge and Web of
Science services, including the Science Citation Index, Social
Sciences Citation Index, and Arts and Humanities Citation Index.
\n";
print "OhioLINK institutions:
\n\n";
foreach $school (sort keys %inst) {
print "- $inst{$school}
\n";
}
print "
\n";
print "\n\n";
exit;
}
require "mem-ip-cookies.pl";
&GetInst($ENV{REMOTE_ADDR});
if ($ENV{PATH_INFO} =~ /^\/sci$/i) {
$database = "?DestApp=WOS&editions=SCI";
} elsif ($ENV{PATH_INFO} =~ /^\/ssci$/i) {
$database = "?DestApp=WOS&editions=SSCI";
} elsif ($ENV{PATH_INFO} =~ /^\/ahci$/i) {
$database = "?DestApp=WOS&editions=AHCI";
} else {
$database = "";
}
print "Cache-control: no-cache\r\n";
if ($user_remote) {
#print "Location: http://proxy.ohiolink.edu:9099/login?url=http://isiknowledge.com/$database\r\n\r\n";
print "Location: http://proxy.ohiolink.edu:9099/login?url=http://apps.webofknowledge.com/$database\r\n\r\n";
} else {
print "Location: http://isiknowledge.com/$database\r\n\r\n";
}