#!/usr/bin/perl -w { require "cgi-lib.pl"; require "wjs_web_perl_utilities.pl"; $build_opt_env = "./build-opt-env.pl"; $! = 0; if ( ! -r $build_opt_env) { $msg = ($! == 0) ? "Permission denied" : $!; &quit ("Cannot read $build_opt_env: $msg"); } require "$build_opt_env"; $jg_cgi = &rel_filespec($ENV{"JGSCRIPTDIR"}); $jg_url = "http://$ENV{'MYADDR'}/$jg_cgi"; if ($ENV{'OBJECT'}) { $ENV{'QUERY_STRING'} = "object=$ENV{'OBJECT'}"; system ("./download_inquiry.pl"); } else { $download_inquiry_url = "$jg_url/download_inquiry.pl"; $back_to_otheropt = ""; &print_form(); } exit; } sub print_form { print &printheader; print < Download inquiry/pickup

Download inquiry/pickup

If you know the process ID of the download in which you're interested,
please enter it here 

 



OR



 Check here if download was initiated from computer now being used (and address of
this computer has not changed since download, as it might if you're logging on from
home)

 sort by download date  sort by downloaded object name






OR




If you know the name of the computer from which the download was initiated,
please enter it here 

 sort by download date  sort by downloaded object name






OR




 Check here to get a list of computers that initiated downloads

 sort by most recent download date  sort by computer name

END }