#	Routine called from timecnv.shtml when that file is used as
#	an shtml file.  Since we don't do it that way any more, this
#	code is not particularly tested...
{
  #  Arg 0 - file name of some sort to hold object name.  Symbolically linked into /tmp
  #  Arg 1 - file name of some sort to hold var list.  Symbolically linked into /tmp
  #  Arg 2 - file name of some sort to hold any hidden variables for this job.  Symbolically linked into /tmp

  $TMPDIR="/tmp";
  $LISTVAR="/data/globec/bin/listvar";
  $NAWKSCR="/data/globec/htmlbin/bin/nawkscr";  # Also in /htmlsrc/nawkscr -- ?
  $PARSE_PATH_INFO="/export/home/wsass/parse_path_info";
  
  $objectname_file = $ARGV[0];
  $varlist_file = $ARGV[1];
  $hiddenvars_file = $ARGV[2];

#####	Save copy of PATH_INFO in temp file

  open (FILE, ">$TMPDIR/$objectname_file") ||
  			die "Cannot write $TMPDIR/$objectname_file";
  print FILE $ENV{"PATH_INFO"};
  close FILE;
  symlink ("$TMPDIR/$objectname_file","$objectname_file");
    
#####	Any needed coordination info for this "job"
#####	Not very useful in shtml environment, since form itself cannot
#####		use any of this stuff - it merely passes it to its action
#####		routine.

  open (FILE, ">$TMPDIR/$hiddenvars_file") || 
  			die "Cannot write $TMPDIR/$hiddenvars_file";
  print FILE "<input type=\"hidden\" name=\"unique\" value=\"$$\">\n";
  close FILE;
  symlink ("$TMPDIR/$objectname_file","$objectname_file");
    
#####	Get list of variables as html list (preceded by <option>) in temp file

    #  Get object name w/o protocol, level, etc
  %path_info = (  split(/[,=]/,`$PARSE_PATH_INFO`)  );
  if ( $path_info{"object"} eq "" )   {  die "No JGOFS object defined" }
    
    #  Stop protocol in PATH_INFO from confusing local methods that are exec'ed
    #  by listvar.  Better is to replace protocol w/ "jgof", leaving level, etc
    #  info, but this is easier and no need for the other at this point.  Can use
    #  make_path_info_string if/when want to replace.
  $ENV{"PATH_INFO"} = "";

  $listvar_command = $LISTVAR . " " . $path_info{"object"};
  system ("$listvar_command | $NAWKSCR >$TMPDIR/$varlist_file");

  symlink ("$TMPDIR/$varlist_file",$varlist_file);
}