#!/usr/bin/perl # # Name: $OPTHOME/optbin/download-2 # Purpose: part of JGOFS data download package # can we find the requested data object and # how should dataset be split into multiple small files # select listm options # # Modification history: # Dec 98.clc. under development. # 981017.clc. trap error (&x) returned from listvar. # 981018.clc. add build-download-env.plx # 981223.clc. work on bulk=onebig sub one_proc, maxlev=0 # 981230.clc. use fullobject name; change object passed back for retry # 990210.clc. pass along compress variable # 990224.clc. remove debug footer. # 990305.clc. change defn of listvar; allow user to select listm options # 990311.clc. make separtor char options radio buttons. # 990312.clc. allow listm options selection for one-big file too; # fix radio button bug; appearance mods. # 990313.clc. change formatting options appearance. # 990322.clc. add subselection capability for one big file pkg type. # 990325.clc. listvar error msgs begin with "&x " # 990526.clc. add help button. # 990614.clc. remove DBG lines. # 990616.clc. pass subselctions to download-problem; minor details. # ###### download version 1.0 # 990621. clc. port to OO server for installation/testing. # 990715. clc. direcpage changes; optsmenu. # 990720/991025. rcg/clc. send listvar output to STDERR # 991122-24.clc. mods for merge with rest of oopt software; # dobject; subsdisp; dtempdir # 991201.clc. merge/debug with ooptserver on synthesis; dispobj; fmt header # 991203.clc. goto jg/dir if no object # 991206.clc. use OBJEXT to fix remote object bug # 991209.clc. allow object with subsels to be pkgd into multiple files # ###### download version 1.1 (991209) # # ===================================================================== require "cgi-lib.pl"; MAIN: { print STDERR " DWNLD: using script: $0 \n"; # color palette $credhi = "indianred"; $chdrbar1 = "skyblue"; $cgobar = "mediumaquamarine"; $previous_page = $ENV{'HTTP_REFERER'}; # page we just came from # # These variables set by makefile from ENVars at install time # $jgtopdir = "/home/data1/www/optserver"; # top of JGOFS tree $jgbindir = "$jgtopdir"."/bin"; # JGOFS binary execs $jgscdir = "/jg"; # where are CGI scripts? $webimages = "http://optserv2.whoi.edu:80/images"; # where are web images? $helpaddr = "http://optserv2.whoi.edu:80"; # URL for web help docs $jgdatadir = "http://mvcodata.whoi.edu/jg/dir"; # JGOFS data directory server $optsmenu = "http://optserv2.whoi.edu:80/jg/otheropt"; # JGOFS other options menu # # Read in all the variables set by the form # &ReadParse(*input); $listvar="$jgbindir"."/listvar -l"; $dobject = "$input{'dobject'}"; $dobjext = "$input{'dobjext'}"; # jgofs object string with extension $dispobj = "$input{'dispobj'}"; # jgofs object+(QS) for display $objnameonly = substr($dobject,rindex($dobject,"/")+1); $subsels = "$input{'subsels'}"; $subsdisp = "$input{'subsdisp'}"; # Print the header print &PrintHeader; print <

Data download continuing ...

Current object is: $dispobj

ENDOFTEXT # # Access data object # entire list of variable names goes into array, # each preceded by and separated from its level by a comma # and each on a separate line. # print STDERR (" DWNLD: $listvar $dobject \n"); @level_varlist = `$listvar "$dobject"`; $varinfo = $level_varlist[0]; # # Test for errors returned from listvar # ie. &x Error - not found: Cannot be found in dictionary: 'dobject' # if $varinfo begins with "&x " then tell user and bail # if ( $varinfo =~ /^&x / ) { &we_have_a_problem($varinfo); } else { # # ... no errors, we have a valid data object # print < ENDOFTEXT print "

Data will be packaged into \n"; if ($input{'bulk'} eq "onebig") { print "one file.

\n"; &one_proc; } else { print "multiple smaller files. \n"; &many_proc; } } # # Close the document cleanly # print &HtmlBot; } sub one_proc { $maxlev=0; &select_listm_options; print <

ENDOFTEXT } sub many_proc { print <

How would you like to divide up your data?

ENDOFTEXT foreach $var (@level_varlist) { ($level,$varname) = split /, /,$var; $whichlevel[$level].=$varname; } $maxlev = $level; if ($maxlev > 0) { # Good, we have at least 1 level to determine multi file output. $button="Go"; $submit_msg="to continue with the next form."; print <

ENDOFTEXT foreach $lev (0..$maxlev-1) { print "

"; } print "

"; &select_listm_options; } else { # Need to redirect user if they requested multi file output, # but maxlev=0 (only 1 level, the object name), meaning # the data has not been levelized. Someday I'll use listvar # on another form to present user with some logical options. $submit_msg=" to submit a request for assistance."; $button="Help"; print <back, or use your Browser's Back Button and try one big file instead.

ENDOFSORRY } # # pass along rest of user response information # print <

ENDOFSUB } sub select_listm_options { # allow user to select which listm options to use # We force listm output to be nonstop, flat file, no comments (-n -f -c) # Optional command line listm options: # -s space-separated # -t tab-separated # -b brief flat file (no header info) # -m missing value converted to -9999.0 # -z delete extra spaces $option_list = "-n -f -c "; print <

Data file formatting options:

The default is to generate a space-separated file with column header information, and data visually aligned in columns, suitable for importing into a spreadsheet program. You may override this by selecting options from the list below.

Select the character with which to separate data fields and whether you want your data visually aligned in columns?

Additional data formatting options:

brief (no column headers) convert missing values to -9999.0

END_OF_TEXT } sub we_have_a_problem { $errsta = "0"; @errmsg = @_ ; print STDERR " DWNLD: status=$errsta, errormsg= @errmsg \n"; # # get ready to pass the data object and QUERY_STRING back # $back_to_opts = "$optsmenu"."$dobjext"."?"."$subsels"; print < @errmsg


  Please go back and try again, 
  or return to the Plotting and Other Options menu,
  or the Data Directory menu 
  or try using your browser's 'Go' menu to return and relocate the data object.

ENDOFSUB }

Data download continuing ...

Data will be packaged into \n"; if ($input{'bulk'} eq "onebig") { print "one file.

How would you like to divide up your data?

Data file formatting options:

Please go back and try again, or return to the Plotting and Other Options menu, or the Data Directory menu or try using your browser's 'Go' menu to return and relocate the data object.

or press to submit a request for assistance.