use SOAP::Lite ;

#
# Create a connection to the schedd
#
my $soap = SOAP::Lite->new(
    proxy => 'http://localhost:1982/soap',
	default_ns => 'urn:condor'
);

#
# Invoke getJobAds() 
#
my $som = $soap->call(
    "getJobAds",
	SOAP::Data->name('constraint')->value( $ARGV[0] || 'TRUE'),
);
die $som->fault->{ faultstring } if ($som->fault);
my %result = %{$som->result};

# 
# For each ad returned, print all attributes
#
my @ads;
if( ref ($result{'classAdArray'}{'item'}) eq 'HASH') {
	@ads = $result{'classAdArray'}{'item'};
} else {
	@ads = @{$result{'classAdArray'}{'item'}};
}
foreach $ad_ref (@ads) {
	my @ad = @{$ad_ref->{'item'}};
	foreach $attr_ref (@ad) {
		my %attr = %$attr_ref;
		print "  $attr{'name'} = $attr{'value'} \n";
	}
	print "===============================\n";
}