#!/usr/bin/perl

use ExtUtils::testlib;
use PBS qw/pbs_connect pbs_statnode pbs_default/;

my $con=pbs_connect(pbs_default());
my $status=pbs_statnode($con, $ARGV[0],[qw/state np properties ntype jobs status/], undef);

foreach (@{$status}) {
      print $_->{name}, "\n";
      foreach (@{$_->{attribs}}) {
         print "     ",$_->{name},$_->{resource} && (".", $_->{resource})," = ",$_->{value}, "\n";
      }
      print "\n";
}

