#!/opt/SUNWstade/bin/perl  -I/opt/SUNWstade/lib 
use Java::TreefrogControls;
use Data::Dumper;
use System;

use strict;
System->set_home("/opt/SUNWstade");
my ($renv, $devs, $hosts, $notifs) = PDM::ConfigFile->read();
System->set_renv($renv);

# Remember, the count is off (under) by one
if (( $#ARGV eq 2))
{
   my $key      = shift @ARGV;
   my $path     = shift @ARGV;
   my $filename = shift @ARGV;

   print "Collecting support data for $key\n";
   my $rval = Java::TreefrogControls->getSupportData($key, $path, $filename);
   #print "rval= ".Dumper($rval)."\n\n";
   print "Completion status: ".$rval."\n\n";


}
else
{
  print "\n";
  print "usage 6130SupportData <deviceKey | array name | ip number | ip name> <path> <filename>\n";
  print "ex: 6130SupportData SUN.XXXXXXXXXXX.YYYYYYYYYY /tmp testfile \n";
  print "Note: IP names are stored as the fully qualified cannonical domain name\n\n";
  exit 1;
}


