#!/usr/bin/env perl 

use SOAP::Lite;
use Data::Dumper;
#production system
$wsdlurl = "http://bibiserv.techfak.uni-bielefeld.de/wsdl/RNAshapes.wsdl";
#test system
#$wsdlurl = "http://bibitest.techfak.uni-bielefeld.de/wsdl/RNAshapes.wsdl";

if(!defined $ARGV[0]) {
  print "call with id\n";
  exit 1;
}
print "Submitting your id... ";
$result = SOAP::Lite->service($wsdlurl)
                ->on_fault(sub {soapFaultHandler(@_)})
				->response_orig($ARGV[0]);
print Dumper $result;

sub soapFaultHandler {
  my($soap, $res) = @_;
  if (ref $res) {
    print "Statuscode:".$res->faultcode."\n";
    print "Description:".$res->faultstring."\n";
    $detail = $res->faultdetail;
    print Dumper $detail->{"hobitStatuscode"}->{"statuscode"};
    print Dumper $detail->{"hobitStatuscode"}->{"description"};
  } else {
	print "http layer Error: ";
    print $soap->transport->status;
  }
  exit 1;
}