#!/usr/bin/env perl 
use SOAP::Lite;

my $wsdlurl = "http://bibiserv.techfak.uni-bielefeld.de/wsdl/dialign.wsdl";

if(!defined $ARGV[0]) {
  print "usage: response_orig.pl <bibiid>\n";
  exit 1;
}

print "Submitting your id...\n";

my $result = SOAP::Lite->service($wsdlurl)
                       ->on_fault(sub {soapFaultHandler(@_)})
                       ->response_orig($ARGV[0]);

print $result;

sub soapFaultHandler {
  my($soap, $res) = @_;

  if (ref $res) {
    my $detail = $res->faultdetail;
    if(defined($detail->{"hobitStatuscode"})) {
      print $detail->{"hobitStatuscode"}->{"description"};
      print "(".$detail->{"hobitStatuscode"}->{"statuscode"}.")\n";
    } else {
      print "Sevlet Error - no Hobit Statuscode\n";
    }
  } else {
    print "HTTP layer Error: ";
    print $soap->transport->status."\n";
  }
  exit 1;
}