#!/usr/bin/perl # Jeff C 12/20/2012 # Quicksearch (metalib) is no longer, so just go to home page #print "Location: http://www.ohiolink.edu/\r\n\r\n"; #exit; # below is the old QS rave script: if ($ENV{HTTP_USER_AGENT} =~ /googlebot/i || $ENV{HTTP_USER_AGENT} =~ /search.msn.com\/msnbot.htm/i || $ENV{HTTP_USER_AGENT} =~ /scirus-crawler/i || $ENV{HTTP_USER_AGENT} =~ /Ask Jeeves/i || $ENV{HTTP_USER_AGENT} =~ /yahoo.*slurp/i) { print "Content-type: text/html\r\n\r\n"; print '
Search multiple research databases together with the OhioLINK Quick Search metasearch service (QuickSearch\@OhioLINK), using Metalib software from Ex Libris.
For more information, please see OhioLINK\'s list of research databases.
'; exit; } push (@INC, "/web/support"); require "mem-ip-cookies.pl"; &GetInst($ENV{REMOTE_ADDR}); if ($ENV{HTTP_REFERER} =~ /\search\/X/) { # This is being handed off from Innovative keyword search results, and # they cleverly double-escape characters. So space -> %20 -> %2520 $ENV{QUERY_STRING} =~ s/%2520/%20/g; } $std_url = "http://search.ebscohost.com/login.aspx?direct=true&site=ehost-live&scope=site&type=1&mode=and&lang=en&authtype=ip&db=&db=a9h&db=agr&db=awh&db=ahl&db=aft&db=air&db=reh&&db=brb&db=bth&db=rzh&db=ufh&db=nlebk&db=cph&db=iih&db=eft&db=ehh&db=eih&db=eric&db=f3h&db=funk&db=fmh&db=hch&db=hia&db=hlh&db=ibh&db=ijh&db=lgh&db=qth&db=llh&db=lih&db=f5h&db=mnh&db=mzh&db=nfh&db=pbh&db=psyh&db=bwh&db=rlh&db=rih&db=sih&db=s3h&db=tth&bquery="; $proxy_url = "http://proxy.ohiolink.edu:9099/login?url=http://search.ebscohost.com/login.aspx?direct=true&site=ehost-live&scope=site&type=1&mode=and&lang=en&authtype=ip&db=&db=a9h&db=agr&db=awh&db=ahl&db=aft&db=air&db=reh&&db=brb&db=bth&db=rzh&db=ufh&db=nlebk&db=cph&db=iih&db=eft&db=ehh&db=eih&db=eric&db=f3h&db=funk&db=fmh&db=hch&db=hia&db=hlh&db=ibh&db=ijh&db=lgh&db=qth&db=llh&db=lih&db=f5h&db=mnh&db=mzh&db=nfh&db=pbh&db=psyh&db=bwh&db=rlh&db=rih&db=sih&db=s3h&db=tth&bquery="; if ($user_remote) { # $url = $auth_url; # I think I switched proxy and auth urls here. Switching # them back. TPD, 6/8/2006 # OK, you are off-campus $url = $proxy_url; if ($ENV{QUERY_STRING}) { $url .= "$ENV{QUERY_STRING}"; print "Location: $url\r\n\r\n"; exit; } else { print "Location: $url\r\n\r\n"; exit; } } else { # you are on-campus $url = $std_url; if ($ENV{QUERY_STRING}) { $url .= "$ENV{QUERY_STRING}"; print "Location: $url\r\n\r\n"; exit; } else { print "Location: $url\r\n\r\n"; exit; } }