#!/usr/bin/perl
#
# getobj2
# purpose is to assign the second join object after a user selects
# it from a 'dir'-like window, and then to issue a form allowing
# the user to subselect from among the object's variables, which
# are sent on to get2andjoin
#
# NB: this file belongs in the directory configured as ScriptAlias /jg/
# on this HTTPD server. (typically htmlbin or optbin)
# Generated from a template by a makefile in the source tree
#
do 'build-opt-env.pl';
$pathinfo=$ENV{'PATH_INFO'};
$mainlocation = "$realtempdir"."/";
$LISTVAR="$topdir/bin/listvar";
MAIN:
{
&printtop;
#
# if there is an extension on the object name, remove it
#
if (rindex($pathinfo,".") > rindex($pathinfo,"/")) {
$object2=substr($pathinfo,0,rindex($pathinfo,"."));
$EXT=substr($pathinfo,rindex($pathinfo,".")+1);
} else {
$object2=$pathinfo;
$EXT="html0";
}
#
# if object has been served with a set of projections/selections
#
if ($ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} ne "") {
$obj2origsels=$ENV{'QUERY_STRING'};
} else {
$obj2origsels="none";
}
print "Second object is: $object2\n";
@object2vars = `$LISTVAR \"$object2\"`;
&getprojs4obj2;
}
################### printtop
sub printtop{
print "Content-type: text/html\n\n";
print "Offer projections on Object 2\n";
print "\n";
}
################### askforprojs
sub getprojs4obj2 {
#
# ask user if any projections from second object are desired
#
print "
ENDOFSUB
}