# Copyright 2002-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.
# 
# $Id: soap.coretag,v 1.6 2007-03-30 23:40:49 pajamian Exp $

UserTag soap                Order        call uri proxy
UserTag soap                addAttr
UserTag soap                PosNumber    3
UserTag soap                Version      $Revision: 1.6 $
UserTag soap                MapRoutine   Vend::SOAP::tag_soap

UserTag soap_entity      addAttr
UserTag soap_entity      Version      $Revision: 1.6 $
UserTag soap_entity      MapRoutine   Vend::SOAP::tag_soap_entity

sub tag_soap {
my ($method, $uri, $proxy, $opt) = @_;
my @args;
if($opt->{param}) {
  if (ref($opt->{param}) eq 'ARRAY') {
    @args = @{$opt->{param}};
  }
  elsif (ref($opt->{param}) eq 'HASH') {
    @args = %{$opt->{param}};
  }
  else {
    @args = $opt->{param};
  }
}
else {
  @args = $opt;
}

if($opt->{trace_transport}) {
  if (exists $Vend::Cfg->{Sub}->{$opt->{trace_transport}}) {
    SOAP::Trace->import('transport' => $Vend::Cfg->{Sub}->{$opt->{trace_transport}});
  } else {
    ::logError (qq{no such subroutine "$opt->{trace_transport}" for SOAP transport tracing});
  }
}

my $result;
#::logDebug("to method call, uri=$uri proxy=$proxy call=$method args=" . ::uneval(\@args));
eval {
  if(! $method ) {
    $result = SOAP::Lite
        -> uri($uri)
        -> proxy($proxy)
        -> call ('init');
  }
  elsif(ref $opt->{object}) {
    $result = $opt->{object}
        -> uri($uri)
        -> proxy($proxy)
        -> call( $method => @args )
        -> result;
  }
  else {
    $result = SOAP::Lite
        -> uri($uri)
        -> proxy($proxy)
        -> call( $method => @args )
        -> result;
  }
};
if($@) {
  ::logError("error on SOAP call: %s", $@);
}
#::logDebug("after method call, uri=$uri proxy=$proxy call=$method result=$result");

$::Scratch->{$opt->{result}} = $result if $opt->{result};
return '' if $opt->{init};
return $result;
}