#!/usr/bin/perl

use RPC::XML::Client;
use Data::Dumper;

# Usage: ticket server function [ argument ]

$server = shift @ARGV;
$function = shift @ARGV;

$client = RPC::XML::Client->new("http://$server:9000/");

if ($#ARGV) {
    #if (defined $argument and length($argument) > 0) {
    #print "tickle: sending with argument: ".Dumper($argument)."\n";
    $response = $client->send_request($function, @ARGV);
} else {
    $response = $client->send_request($function);
}
    

my $response_ref_type = ref($response);
my $dump;

# upon shutdown, there is no response, since function does not return
if ($function eq "xcd.shutdown") {
    $dump = "no response: shutting down";
} elsif (! ref $response) {
    $dump = $response;
} elsif (! $response->is_fault) {
    $dump = Dumper($response->value);
} else {
    $dump = Dumper($response);
}
print <<
Return: 
reponse ref type: $response_ref_type
------------------------------------
$dump
------------------------------------

;