{
#	listvar_in_def_format  WJS Jul 16
#   Shell interface to utilities function listvar_in_def_format.  More info there
#   Requires an object spec as first arg.  Accepts listvar switches as other args,
#     but, effectively, only -a is a "real" choice
#   File locations are coded assuming this program "lives" in jgofsroot/optbin of
#     an OOserver
  require ("./wjs_web_perl_utilities.pl");
  require ("./cgi-lib.pl");
  $listvar_program = "../bin/listvar";
  ($object = pop(@ARGV)) || die "Need object spec";
#   Only  -a  is relevant as a switch ... as listvar_in_def_format is presently (Jul 16) coded.  
#   listvar_in_def_format will force -l and report an error if -1 is specified.  Choice is
#   to handle non  -a  here or just pass everything on.  Passing everything on has the
#   advantage of dealing w/potential future switches and the disadvantage of dealing with
#   an error far from this context.  Decided to pass them on
  $listvar_args = join ' ',@ARGV;
  @varlist = &listvar_in_def_format($listvar_program,$object,$listvar_args);
  foreach (@varlist) {
    print $_ . "\n";
  }
}
