#!/usr/bin/perl

use Maui::Client;

my $peer = "localhost";
my $port = 42559;
my $client = new Maui::Client(   PeerAddr   => $peer,
                                 PeerPort   => $port,
                                 ClientName => "testclient",
                                 Cksum_Seed => 123456,
			         Mode       => "raw",
                                 Auth       => "maui" )
    or die "Can't connect to $peer:$port\n";


my ($sc, $responce) = $client->setres( UserList => "ajm", StartTime => "+".24*3600,
    Duration => 9*3600, ResourceExp => "TASKS==2" );
print "sc = $sc\n";
print $responce;

my ($sc, $responce) = $client->showq( );
print "sc = $sc\n";
print $responce;

my ($sc, $responce) = $client->showres( );
print "sc = $sc\n";
print $responce;