#!/usr/bin/perl # # Name: $OPTHOME/optbin/download-3 # Purpose: part of JGOFS data download package # get user to confirm options selected so far # # Modification history: # Dec 98.clc. under development. # 981217.clc. cleanup determine# section. # 981018.clc. add build-download-env.plx # 981223.clc. work on bulk=onebig, maxlev=0 # 990204.clc. work on maxlev > params selected; OK done. # 990210.clc. compress variable; bulleted selections list # 990211.clc. option to name datapkg file; break main into subrs # 990222.clc. more option to name datapkg file # 990224.clc. remove debug footer. # 990308-09.clc. add listm cmd line options; verbage mods; # table of confirm choices; tar only (no compression); # 990311.clc. if no params selected force user to go back # 990312.clc. asst. appearance mods.; fix one-big/no params bug; # opt_sep bug; color pallette # 990322.clc. add subselection capability for one big file pkg type. # 990326.clc. try 3 button end-of-form. Yes No help (Submit) # 990614.clc. remove DBG lines. # 990616.clc. reword pkgname verbage (no code changes). # ###### download version 1.0 # 990621. clc. port to OO server for installation/testing. # 991122-26.clc. mods for merge with rest of oopt software; # dobject;subsdisp;dtempdir # 991201.clc. merge/debug with ooptserver on synthesis; dispobj; fmt header # 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"; $paramsg = "Pick one parameter at level"; # # These variables set by makefile from ENVars at install time # $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 # # Read in all the variables set by the form # &ReadParse(*input); # Get some information from input string $dobject = "$input{'dobject'}"; # jgofs object string $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'}"; $maxlev = "$input{'maxlev'}"; $bulk = "$input{'bulk'}"; $compress = "$input{'compress'}"; $listm_user = "$input{'opt_defs'}"."$input{'opt_sep'}"."$input{'opt_brief'}"."$input{'opt_msval'}"; # Print the header print &PrintHeader; if ($bulk eq "onebig") { $pkgtype="one single file"; } else { $pkgtype="multiple small files"; } print STDERR " DWNLD: working on object: $dobject \n"; # What file extension will be appended onto filename $fullext = &fileext($compress); # Prompt user with options selected so far: print <

Data download continuing ...

Current object is: $dispobj

You have requested:

$pkgtype for $objnameonly data
Packaged as a $fullext file
ENDOFTEXT print "
subselection list is: $subsdisp
\n" if $subsels; &list_options; # # List parameters from user-selected level determinants # returns % separated string of selected parameters (paramstr) # paramstr="" (null string) in the case of onebigfile $paramstr = ""; $paramstr = &list_selected_params if ($bulk eq "moresmall"); # # if user hasn't selected any parameters to split data into "moresmall" # files, then force them to go back and do so if ($paramstr eq "" && $bulk eq "moresmall") { &go_back } else { # # endtags for any lists still open (just to be safe) # print "<\/UL><\/UL><\/DL> \n"; # # Offer option to name packaged data file # print "
\n"; &name_datapkgfile($paramstr); # # Prompt for user confirmation of selections # &ask_user_to_confirm($paramstr); } # # Close the document cleanly. # print &HtmlBot; } sub fileext { my ($compress) = @_; # Determine which package type user has selected (zip, tar, etc.): $fullext = "tar.Z"; if ( index($compress,"tar") > -1 ) { # UNIX type utilities selected # UNIX compress selected by default if ( $compress eq "targz" ) { $fullext = "tar.gz"; } else { if ( $compress eq "tar" ) { $fullext = "tar"; } } } else { # PC/Mac type utilities selected $fullext = "zip"; } return $fullext; } sub list_options { # Determine which listm options user has selected. # Build hash of optional command line listm options and definitions: %opt_txt = ( "s" => "space-separated, data aligned in columns, ", "t" => "tab-separated, data aligned in columns, ", "b" => "no header info, ", "m" => "missing value converted to -9999.0, ", "z" => "comma-separated, not aligned in columns, "); $opt_defaults = "comma-separated flat file, data aligned in columns, with header info"; $opt_txt_str = ""; foreach $opt ( keys %opt_txt ) { substr($opt_txt_str,0,0) = $opt_txt{$opt} if ( $listm_user =~ /$opt/ ); } if ( $opt_txt_str eq "" ) { $opt_txt_str = $opt_defaults; # still using default options } else { $opt_txt_str =~ s/, $//; # remove trailing comma&blank } print "
Special formatting: $opt_txt_str
\n"; } sub list_selected_params { # # Build list of parameters from user-selected level determinants # print "
Determined by $maxlev parameter(s) which is (are)
\n"; $determnum = ""; $levelparams = ""; foreach $num (0 .. $maxlev-1) { $determnum = "determine"."$num"; $determinant = "$input{$determnum}"; # check whether user has made a selection for each parameter # if selected parameter is still 'Pick one ...', # decrement maxlev and shuffle params if ( ($found = index($determinant,$paramsg)) > -1 ) { $maxlev = --$maxlev; $determinant = ""; } # if user made a selection at this level, # add it to levelparams, the final selection parameter list if ("$determinant") { print "
$determinant [at level $num]
\n"; $levelparams .= "%"."$determinant"; } else { print "[ no parameter selected at level $num ]
\n"; } } # # remove leading % character from final list of parameters # $levelparams =~ s/^%//; return $levelparams; } sub name_datapkgfile { my ($paramlist) = @_; # # Present user with option to name packaged data file ($pkgname) # default is $dobject, but might also be a selected param/determinant # offer drop down list of whatever I know about the selections # # This has to be inside a FORM tag # print <
What would you like to name the datafile?

The selected 'name' will be used in naming the final packaged data file. For example, the default is to name the file according to the selected object, $objnameonly, which has been preselected from the drop-down list below. In this case the resultant file would be named: $objnameonly.$fullext
Notice, the appropriate file extension ($fullext) has been appended to 'name'.

Choose a name for your datafile:

ENDOFTEXT } sub ask_user_to_confirm { # # Ask user to confirm selections so far # print <
Are you satisfied with these selections?

Go back and try again. me please!

ENDOFSUB } sub go_back { # Need to redirect user if they requested multi file output, # but neglected to select any params by which we can divide data $previous_page=$ENV{'HTTP_REFERER'}; print <

You have not selected any parameters which can be used to subdivide your data. Please use your browser's 'Back button' to go back and select at least one parameter.

ENDOFBACK }

Data download continuing ...

You have requested:

What would you like to name the datafile?

Are you satisfied with these selections?

You have not selected any parameters which can be used to subdivide your data. Please use your browser's 'Back button' to go back and select at least one parameter.