#!/usr/local/bin/perl -w
#makeinvlink routine
#Creates link from .remoteobject information, level, variable name
#value and level.
#July 16, 1997 rcg
#January 2, 1998 rcg test for existence of html and level, and /jg/serv
# Don't add if present.
print "Content-type: text/html\n\n\n\n";
$objectroot="/data/globec/objects";
$level=$ARGV[0];
$level =~ s!.*/(\d)$!$1!;
$fieldvalue=$ARGV[0];
$fieldvalue=~ s!.*/(.*)/\d$!$1!;
$fieldname=$ARGV[0];
$fieldname=~ s!/.*/(.*)/$fieldvalue/$level$!$1!;
$object=$ARGV[0];
$object=~ s!^(.*)/$fieldname/$fieldvalue/$level$!$1!;
$objectdir=$object;
$objectdir=~s!^(.*)/.*$!$1!;
$object=~s!^.*$objectdir/(.*)$!$1!;
#Get entry from .remoteobjects file
$filename=$objectroot . $objectdir . "/.remoteobjects";
$lookfor=$object . "=";
if (! -e $filename) {
print "
Cannot find file $filename to resolve link";
}
$entry=`grep $lookfor $filename`;
@location=split /=/, $entry;
chomp @location;
$location=$location[1];
$location=~s/^http://;
#print "\nLocation=$location\n";
if (index ($location, "/jg/serv/") < 0 ) {
$location=~ s!(^//.*?/)(.*)!$1jg/serv/$2!;
}
#This is what Glenn uses
#$link="Location: http:" . $location . ".html" . $level . "?" .
# $fieldname . "=" . $fieldvalue;
#Try using meta tag
if (index ($location, "html") < 0 ) {
$htmlstring = ".html" . $level;
}
else {
$htmlstring = "";
}
$link="http:" . $location . $htmlstring . "?" .
$fieldname . "=" . $fieldvalue;
$output='';
print "$output\n";
print ('
Retrieving the ',$fieldvalue,
' data ....
',"\n",
'If this is not working, please contact the',"\n",
'',
'Data Management Office.