#!/usr/bin/perl

use ExtUtils::testlib;
use PBS::rm qw/:all/;

$ARGV[0] or die "Usage: dumpmom hostname\n";
my $con=openrm($ARGV[0],$PBS::PBS_MANAGER_SERVICE_PORT);
if ($con<0) {
   die "Failed to connect to RM $ARGV[0]\n";
}

@reqs=qw(ncpus arch uname loadave physmem idletime nusers nsessions sessions size[fs=/]);
@sesreqs=qw(pids walltime mem cput resi);
foreach (@reqs ) {
   addreq($con, $_) or die "Unable to add req $_\n";
}
foreach (@reqs) {
   $_=getreq($con) or die "Unable to get req $_\n";
   if (/^sessions=([^?]+)/) {
      @sessions=split(/ /,$1);
   }
   print "$ARGV[0]: $_\n";
}

foreach $ses (@sessions) {
   foreach $req (@sesreqs) {
      addreq($con, "$req\[session=$ses]");
   }
}

foreach $ses (@sessions) {
   foreach $req (@sesreqs) {
      print "$ARGV[0]: ",getreq($con), "\n";
   }
}
closerm($con);
