$valid
\n"; } } if (defined($command)) { &do_command; } #********************************************************************* #* Display the appropriate section of the form. #********************************************************************* &display_section; } #* A bizarre exception. Since the RNG_FLTR_METHOD potentially needs to be #* dsiplayed on two pages we set a flag ($used_rng_fltr_method == 0) to check #* if the variable has been displayed to the user. If not then we keep the #* value in a hidden field here. It was done this was since the displaying #* of the same varialbe in two seperate sections was not supported by the #* design without making a whole seperate set of subroutines for it. if ($used_rng_fltr_method == 0){ print $query->hidden(-name=>"RNG_FLTR_METHOD", -default=>$query->param("RNG_FLTR_METHOD")); } print "\n"; #keep track of where we were last $query->param('PREV_SECTION',$section); print $query->hidden(-name=>'PREV_SECTION', -default=>$query->param('PREV_SECTION')); print "\n"; $query->param('SSC',$ssc); print $query->hidden(-name=>'SSC', -default=>$query->param('SSC')); #********************************************************************* #* Print out command menu and end the form. #********************************************************************* &command_menu; print $query->end_form; &responsible_official; print $query->end_html; #********************************************************************* #* SUBROUTINE : do_command #* PURPOSE : This routine checks to see if a "command" has been submitted # and processes that command. #* MODIFICATION HISTORY # TJK change all /scratch/ssc to /tmp/ssc #********************************************************************* sub do_command { #********************************************************************* #* If we are executing the query perform the proper steps #********************************************************************* if($command eq 'Submit query and wait for output') { $|=1; $mode=0; #$logger="/var/tmp/ssctst_$$.log"; $logger="/tmp/ssc/ssctst_$$.log"; #$infile="/var/tmp/ssc_in$$.txt"; $infile="/tmp/ssc/ssc_in$$.txt"; $outfile="ssc_out$$.txt"; $filename_out=$query->param('savefile'); ($rtn_string,@cur_list)=&tab_valid(*query); if ($rtn_string =~ /ERROR/) { $section = 'SCS'; print "
$rtn_string
\n"; } else { if ($rtn_string ne '') { print "
$rtn_string
\n";
}
# foreach $cl (@cur_list) {
# print "$cl\n
";
# }
print "
"; print "
\n";
&loc_tab_svr($mode, @cur_list);
print "\n";
$section = 'OUT';
}
} elsif ($command eq 'Submit query as background job') {
#$logger="/var/tmp/ssctst_$$.log";
$logger="/tmp/ssc/ssctst_$$.log";
#$infile="/var/tmp/ssc_in$$.txt";
$infile="/tmp/ssc/ssc_in$$.txt";
$outfile="ssc_out$$.txt";
$filename_out=$query->param('OUTPUT_FILE');
print "A batch job has been submitted to process your Locator query.
You may retrieve the results from";
print " http://$machine_name/query_output/$filename_out
\n";
$mode=1;
$itxt=1;
&set_env($itxt);
($rtn_string,@cur_list)=&tab_valid(*query);
if ($rtn_string =~ /ERROR/) {
$section = 'SCS';
print "
$rtn_string
\n"; } else { if ($rtn_string ne '') { print "
$rtn_string
\n";
}
&loc_tab_svr($mode, @cur_list);
$section = 'OUT';
}
} elsif ($command eq 'Save query in file on host') {
#local($path) = "/var/tmp/$user/";
local($path) = "/usr/local/etc/httpd/cgi-bin/fac_acct/$user/";
# print "path = $path\n
";
print "path = ~/fac_acct/".$user."\n
";
local($filename_out) = $query->param('SAVEFILE');
print "filename_out = $filename_out\n
";
local($saved) = &save_parameters($path,$filename_out,$query);
if ($saved >= 0) {
print "State has been saved to file $filename_out\n";
} else {
print "Error: couldn't write to file $filename_out: $!\n";
}
} elsif ($command eq 'Restore query from file saved on host') {
local($restorefile) = $query->param('RESTOREFILE');
# print "$restorefile
\n"; # $query = &restore_parameters("/var/tmp/$user/",$restorefile,$query); $query = &restore_parameters("/usr/local/etc/httpd/cgi-bin/fac_acct/$user/",$restorefile,$query); $section = ''; } elsif ($command eq 'Prepare query to be saved locally') { print "
\nThe information in this form has been updated.
"; print "You may now safely save this page.\n
"; print "Select "Save As" or "Save Page As" from the FILE menu and save the file in "; print "the format "SOURCE" or "HTML" (exact wordings vary among different "; print "browsers).
When you want to edit/use this query later, "; print "open the file with your Web browser.
\n"; # Save Problem print "
"; print "The "Prepare query to be saved locally" function does NOT work with current versions "; print "(4.x) of Netscape Navigator on a Macintosh. Information is not actually saved and "; print "cannot be restored. You must use a browser such as Microsoft Internet Explorer for this function "; print "to work correctly. We apologize for this inconvenience.
";
print "Also Note:
";
print "We have also seen infrequent cases where the interaction of the SSCWeb environment
";
print "with a Web browser may become corrupted, such that SSCWeb executes a different command than
";
print "that requested. In the event you see suspicious symptoms, we suggest that you SAVE your
";
print " present SSCWeb environment, then fully quit and restart your Web browser, then restore the
";
print qq! saved SSCWeb environment. Please contact us !;
print "if you experience continuing or frequent problems.
";
#fool the remaining code into hiding all sections of the form.
#by setting section to an value that will cause all sections
#to be printed out as "hidden"
$section = "SAVE";
}
}
#*********************************************************************
#* SUBROUTINE : save_parameters
#* PURPOSE : This routine saves the state of the form to a file
#* on the host machine.
#* MODIFICATION HISTORY
#*********************************************************************
sub save_parameters {
local($path,$filename,$query) = @_;
#make sure the filename is only alphanumeric characters.
$filename = &clean_file_name($filename);
if (open(FILE,">". $path . $filename)) {
$query->save(FILE);
close FILE;
} else {
return -1;
}
return 0;
}
#*********************************************************************
#* SUBROUTINE : restore_parameters
#* PURPOSE : This routine restores the state of the form from a file
#* on the host machine.
#* MODIFICATION HISTORY
#*********************************************************************
sub restore_parameters {
local($path,$filename,$query) = @_;
#make sure the filename is only alphanumeric characters.
$filename = &clean_file_name($filename);
if ($restorefile ne "No queries saved") {
if (open(FILE,$path . $filename)) {
$query = new CGI(FILE); # Throw out the old query, replace it with a new one
close FILE;
print "State has been restored from file $filename\n";
} else {
print "Error: couldn't restore file $path$filename: $!\n";
}
} else {
print "Error:No queries currently saved.\n";
}
return $query;
}
#*********************************************************************
#* SUBROUTINE : clean_file_name
#* PURPOSE : checks for metacharacters in the file name. If there are
#* complain bitterly and die.
#* MODIFICATION HISTORY
#*********************************************************************
sub clean_file_name {
local($name) = @_;
unless ($name=~/^[\w\.-]+$/) {
print "$name has naughty characters. Only ";
print "alphanumerics are allowed. You can't use absolute names.";
die "Attempt to use naughty characters";
}
return $name;
}
sub database_listing {
print "
\n
SSC Satellite Database Listing
\n";
# $db_path="/home/wharfrat/sscops/edb/data/vaxcdf";
$db_path="/home/sscops/edb/data/vaxcdf";
$ENV{'SSC_MANAGER'} ="$db_path";
$ENV{'SSC_CDF'} ="$db_path";
# system("/home/wharfrat/ssc/ssc3.0/bin/scansat");
system("/home/ssc/ssc3.0/bin/scansat");
# old call system("/usr/local/etc/http/cgi-bin/sscweb/sat_list");
print "\n";
}
#*********************************************************************
#* SUBROUTINE : display_section
#* PURPOSE : Determines which section of the form to display and
#* calls the appropriate subroutines to display that section
#* and hide the rest.
#* MODIFICATION HISTORY
#*********************************************************************
sub display_section{
if ($section eq 'SCS'){
&sc_table("shown");
} elsif ($section eq 'IS') {
&sc_table("summary");
} else {
&sc_table("hidden");
}
if ($section eq 'TOS'){
&tabular_output_options("shown");
} elsif ($section eq 'IS') {
&tabular_output_options("summary");
} else {
&tabular_output_options("hidden");
}
if ($ssc eq 'LOCATOR') {
if ($section eq 'PFO'){
&filter_options("shown");
} elsif ($section eq 'IS'){
&filter_options("summary");
} elsif ($ssc eq 'LOCATOR'){
&filter_options("hidden");
}
if ($section eq 'OLF'){
&location_filters("shown");
} elsif ($section eq 'IS') {
&location_filters("summary");
} else {
&location_filters("hidden");
}
if ($section eq 'SRF'){
®ion_filters("shown");
} elsif ($section eq 'IS') {
®ion_filters("summary");
} else {
®ion_filters("hidden");
}
}
if ($ssc eq 'LOCATOR_GENERAL') {
if ($section eq 'SFO' ){
&filter_options("shown");
&location_filters("shown");
®ion_filters("shown");
} elsif (($section eq 'IS') && ($ssc eq 'LOCATOR_GENERAL')){
&filter_options("summary");
&location_filters("summary");
®ion_filters("summary");
} elsif ($ssc eq 'LOCATOR_GENERAL') {
&filter_options("hidden");
&location_filters("hidden");
®ion_filters("hidden");
}
}
if (($section eq 'BFM') && ($ssc eq 'LOCATOR')){
&b_field_models("shown");
} elsif ($section eq 'IS') {
&b_field_models("summary");
} else {
&b_field_models("hidden");
}
if ($section eq 'FO'){
&output_options("shown");
} elsif ($section eq 'IS') {
&output_options("summary");
} else {
&output_options("hidden");
}
if ($section eq 'DBL') {
&database_listing;
}
}
#* PURPOSE : Gives credit/blame at the bottom of each page, along
#* with the date and time the page was generated.
#* MODIFICATION HISTORY
#*
#*********************************************************************
sub responsible_official {
print <
Responsible NASA official and Curators:
Robert McGuire, (301) 286-7794
Head Space Physics Data Facility
Code 632
NASA Goddard Space Flight Center
Greenbelt, MD 20771
SSCWeb Curators
EOH @time = localtime(time()); %month= (0,"Jan",1,"Feb",2,"Mar",3,"Apr",4,"May",5,"Jun",6,"Jul",7,"Aug",8,"Sep" ,9,"Oct",10,"Nov",11,"Dec"); $time[5]=$time[5]+1900.0; print "Page generated on: $time[3] $month{$time[4]} $time[5] at $time[2]:$time[1] \n"; }