Mobile::Messaging::ParlayX - Interface to ParlayX OSA.

 use Mobile::Messaging::ParlayX;

 new Mobile::Messaging::ParlayX

 0.0.1 
	Initial Release
 0.0.2 
	Requisite XML::LibXML 1.62 specified in Makefile.PL
	Fixed some POD formatting issues
	Fixed some POD typos
 0.0.3
	Corrected tag ``ChargingInformation'' to ``charging'' in sub charging_info, as per documentation

# Mobile::Messaging::ParlayX.pm version 0.0.3
#
# Copyright (c) 2006 Thanos Chatziathanassioy <tchatzi@arx.net>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Mobile::Messaging::ParlayX;
local $^W;
require 'Exporter.pm';
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = (Exporter);
@EXPORT = qw();   #&new);
@EXPORT_OK = qw(@error_str);

$Mobile::Messaging::ParlayX::VERSION='0.0.3';
$Mobile::Messaging::ParlayX::ver=$Mobile::Messaging::ParlayX::VERSION;

use strict 'vars';
use Carp();
use LWP::UserAgent();
use HTTP::Request();
use XML::LibXML();

@Mobile::Messaging::ParlayX::Errors = ( 
										
										);

sub new {
	my $this = shift;
	my $class = ref($this) || $this;
	my $self = {};
	bless $self, $class;
	return $self->initialize(@_);
}

sub initialize {
	my $self = shift;
	
	if (@_ != 0) {
		if (ref $_[0] eq 'HASH') {
			my $hash=$_[0];
			foreach (keys %$hash) {
				$self->{lc $_}=$hash->{$_};
			}
		}
	}
	
	$self->{'die_on_error'} ||= 0;
	$self->{'DEBUG'} ||= 0;
	
	$self->{'ua'} = new LWP::UserAgent;
	$self->{'ua'}->agent("Mobile::Messaging::ParlayX/0.0.3");
	
	$self->{'parser'} = XML::LibXML->new();
	
	return $self;
}

sub sendSMS {
	my $self = shift;
	
	$self->{'DEBUG'} and warn "Entering sendSMS\n";
	
	my ($username, $password, $nonce, $host, $senderName, $message, $receiptRequest, $ChargingInformation, $addresses);
	if (ref $_[0] eq 'HASH') {
		$username   = $_[0]->{'username'}   || $self->{'username'}   || Carp::croak("Cant sendSMS without username\n");
		$host       = $_[0]->{'host'}       || $self->{'host'}       || Carp::croak("Cant sendSMS without ParlayX host definition\n");
		$password   = $_[0]->{'password'}   || $self->{'password'}   || '';
		$nonce      = $_[0]->{'nonce'}      || $self->{'nonce'}      || '';
		$senderName = $_[0]->{'senderName'} || $self->{'senderName'} || '';
		$message    = $_[0]->{'message'}    || $self->{'message'}    || '';
		$addresses  = $_[0]->{'addresses'}  || $self->{'addresses'}  || '';
		
		#special handling of $receiptRequest & $ChargingInformation
		$receiptRequest      = $_[0]->{'receiptRequest'}      || $self->{'receiptRequest'}      || '';
		$ChargingInformation = $_[0]->{'ChargingInformation'} || $self->{'ChargingInformation'} || '';
		
		if ($receiptRequest && ref($receiptRequest) ne 'HASH') {
			Carp::croak("\$receiptRequest is not a hash reference\n");
		}
		
		if ($ChargingInformation && ref($ChargingInformation) ne 'HASH') {
			Carp::croak("\$ChargingInformation is not a hash reference\n");
		}
		
		if (!$addresses) {
			Carp::croak("No recipients for SMS!\n");
		}
	}
	
	$self->{'DEBUG'} and warn "Constructing SOAP request..\n";
	
	#construct the SOAP request..header first.
	my $soap = $self->soap_send_body($username,$password,$nonce,$addresses,$senderName,$message,$receiptRequest,$ChargingInformation);
	
	$self->parse_xml(\$soap);
	
	$self->{'DEBUG'} and warn "SOAP request passed XML validation, sending HTTP Request\n";
	
	my ($soapaction,$lookfor) = ('http://www.csapi.org/wsdl/parlayx/sms/send/v2_1/local','result');
	return $self->doHTTP($host,\$soap,$soapaction,$lookfor);
}

sub getSmsDeliveryStatus {
	my $self = shift;
	
	$self->{'DEBUG'} and warn "Entering getSmsDeliveryStatus()\n";
	
	my ($username, $password, $nonce, $host, $messageid, $addresses);
	if (ref $_[0] eq 'HASH') {
		$username   = $_[0]->{'username'}   || $self->{'username'}   || Carp::croak("Cant getSmsDeliveryStatus without username\n");
		$host       = $_[0]->{'host'}       || $self->{'host'}       || Carp::croak("Cant getSmsDeliveryStatus without ParlayX host definition\n");
		$password   = $_[0]->{'password'}   || $self->{'password'}   || '';
		$nonce      = $_[0]->{'nonce'}      || $self->{'nonce'}      || '';
		$messageid  = $_[0]->{'messageid'}  || $self->{'messageid'}  || '';
		$addresses  = $_[0]->{'addresses'}  || $self->{'addresses'}  || '';
		
		if (!$messageid) {
			Carp::croak("Need messageid for delivery status!\n");
		}
	}
	
	$self->{'DEBUG'} and warn "Constructing SOAP request..\n";
	
	my $soap = $self->soap_deliv_body($username,$password,$nonce,$messageid);
	
	$self->parse_xml(\$soap);
	
	$self->{'DEBUG'} and warn "SOAP request passed XML validation, sending HTTP Request\n";
	
	my ($soapaction,$lookfor) = (
								 '',{ deliveryStatus => '',
									  address		 => '' }
								);
	my ($success,$result) = $self->doHTTP($host,\$soap,$soapaction,$lookfor);
		
	return ($success,$result);
}

sub ReceiveSms {
	my $self = shift;
	
	$self->{'DEBUG'} and warn "Entering ReceiveSms()\n";
	
	my ($username, $password, $nonce, $host, $registrationIdentifier);
	if (ref $_[0] eq 'HASH') {
		$username   = $_[0]->{'username'}   || $self->{'username'}   || Carp::croak("Cant getSmsDeliveryStatus without username\n");
		$host       = $_[0]->{'host'}       || $self->{'host'}       || Carp::croak("Cant getSmsDeliveryStatus without ParlayX host definition\n");
		$password   = $_[0]->{'password'}   || $self->{'password'}   || '';
		$nonce      = $_[0]->{'nonce'}      || $self->{'nonce'}      || '';
		
		$registrationIdentifier = $_[0]->{'registrationIdentifier'} || $self->{'registrationIdentifier'} || '';
	}
	
	$self->{'DEBUG'} and warn "Constructing SOAP request..\n";
	
	my $soap = $self->soap_receivesms_body($username,$password,$nonce,$registrationIdentifier);
	
	$self->parse_xml(\$soap);
	
	$self->{'DEBUG'} and warn "SOAP request passed XML validation, sending HTTP Request\n";
	
	my ($soapaction,$lookfor) = (
									'', {
											message						=> '',
											senderAddress				=> '',
											smsServiceActivationNumber	=> ''
										}
								);
	my ($success,$result) = $self->doHTTP($host,\$soap,$soapaction,$lookfor);
		
	return ($success,$result);
}

sub ReceiveAutoSms {
	my $self = shift;
	
	my $soap = shift;
	
	if (ref($soap)) {
		return $self->parse_xml($soap, {
										message						=> '',
										senderAddress				=> '',
										smsServiceActivationNumber	=> ''
										}
								);
	}
	else {
		return $self->parse_xml(\$soap, {
										message						=> '',
										senderAddress				=> '',
										smsServiceActivationNumber	=> ''
										}
								);
	}
}
										

									
sub stopSmsNotification {
	my $self = shift;
	
	$self->{'DEBUG'} and warn "Entering stopSmsNotification()\n";
	
	my ($username, $password, $nonce, $host, $correlator);
	if (ref $_[0] eq 'HASH') {
		$username   = $_[0]->{'username'}   || $self->{'username'}   || Carp::croak("Cant getSmsDeliveryStatus without username\n");
		$host       = $_[0]->{'host'}       || $self->{'host'}       || Carp::croak("Cant getSmsDeliveryStatus without ParlayX host definition\n");
		$password   = $_[0]->{'password'}   || $self->{'password'}   || '';
		$nonce      = $_[0]->{'nonce'}      || $self->{'nonce'}      || '';
		
		$correlator    = $_[0]->{'correlator'}    || $self->{'correlator'}    || '';
		
		if (!$correlator) {
			Carp::croak("Need correlator for stopSmsNotification!\n");
		}
	}
	
	$self->{'DEBUG'} and warn "Constructing SOAP request..\n";
	
	my $soap = $self->soap_stopsms_body($username,$password,$nonce,$correlator);
	
	$self->parse_xml(\$soap);
	
	$self->{'DEBUG'} and warn "SOAP request passed XML validation, sending HTTP Request\n";
	
	my ($soapaction,$lookfor) = ('', 'Body');
	my ($success,$result) = $self->doHTTP($host,\$soap,$soapaction,$lookfor);
		
	return ($success,$result);
}

sub startSmsNotification {
	my $self = shift;
	
	$self->{'DEBUG'} and warn "Entering startSmsNotification()\n";
	
	my ($username, $password, $nonce, $host, $endpoint, $correlator, $interfaceName, $smsServiceActivationNumber, $criteria);
	if (ref $_[0] eq 'HASH') {
		$username   = $_[0]->{'username'}   || $self->{'username'}   || Carp::croak("Cant getSmsDeliveryStatus without username\n");
		$host       = $_[0]->{'host'}       || $self->{'host'}       || Carp::croak("Cant getSmsDeliveryStatus without ParlayX host definition\n");
		$password   = $_[0]->{'password'}   || $self->{'password'}   || '';
		$nonce      = $_[0]->{'nonce'}      || $self->{'nonce'}      || '';
		
		$endpoint      = $_[0]->{'endpoint'}      || $self->{'endpoint'}      || '';
		$correlator    = $_[0]->{'correlator'}    || $self->{'correlator'}    || '';
		$interfaceName = $_[0]->{'interfaceName'} || $self->{'interfaceName'} || '';
		
		$smsServiceActivationNumber = $_[0]->{'smsServiceActivationNumber'} || $self->{'smsServiceActivationNumber'} || '';
		$criteria                   = $_[0]->{'criteria'}                   || $self->{'criteria'}                   || '';
		
		if (!$endpoint) {
			Carp::croak("Need endpoint for startSmsNotification!\n");
		}
		elsif (!$smsServiceActivationNumber) {
			Carp::croak("Need smsServiceActivationNumber for startSmsNotification!\n");
		}
		
		if (!$correlator) {
			$correlator = time();
		}
	}
	
	$self->{'DEBUG'} and warn "Constructing SOAP request..\n";
	
	my $soap = $self->soap_startsms_body($username,$password,$nonce,$endpoint,$correlator,$interfaceName,$smsServiceActivationNumber,$criteria);
	
	$self->parse_xml(\$soap);
	
	$self->{'DEBUG'} and warn "SOAP request passed XML validation, sending HTTP Request\n";
	
	my ($soapaction,$lookfor) = ('', 'Body');
	my ($success,$result) = $self->doHTTP($host,\$soap,$soapaction,$lookfor);
		
	return ($success,$correlator,$result);
}

sub soap_startsms_body {
	my $self = shift;
	
	my ($username,$password,$nonce,$endpoint,$correlator,$interfaceName,$smsServiceActivationNumber,$criteria) = @_;
	
	my $soap = $self->soap_header($username,$password,$nonce);
	
	$soap .= qq[<ns2:startSmsNotification xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/notification_manager/v2_2/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
										<ns2:reference>
												<endpoint>$endpoint</endpoint>
												<interfaceName>$interfaceName</interfaceName>
												<correlator>$correlator</correlator>
										</ns2:reference>
										<ns2:smsServiceActivationNumber>$smsServiceActivationNumber</ns2:smsServiceActivationNumber>
										<ns2:criteria>$criteria</ns2:criteria>
								</ns2:startSmsNotification>];
	
	$soap .= $self->soap_footer();
	
	return $soap;
}

sub soap_stopsms_body {
	my $self = shift;
	
	my ($username,$password,$nonce,$correlator) = @_;
	
	my $soap = $self->soap_header($username,$password,$nonce);
	
	$soap .= qq[<ns2:stopSmsNotification xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/notification_manager/v2_2/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
										<ns2:correlator>$correlator</ns2:correlator>
								</ns2:stopSmsNotification>];
	
	$soap .= $self->soap_footer();
	
	return $soap;
}

sub soap_deliv_body {
	my $self = shift;
	
	my ($username,$password,$nonce,$messageid) = @_;
	
	my $soap = $self->soap_header($username,$password,$nonce);
	
	if (ref($messageid) eq 'ARRAY') {
		foreach (@{$messageid}) {
			$soap .= qq[<ns2:getSmsDeliveryStatus xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/send/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
														<ns2:requestIdentifier>$_</ns2:requestIdentifier>
												</ns2:getSmsDeliveryStatus>];
		}
	}
	elsif ($messageid) {
		$soap .= qq[<ns2:getSmsDeliveryStatus xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/send/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
												<ns2:requestIdentifier>$messageid</ns2:requestIdentifier>
										</ns2:getSmsDeliveryStatus>];
	}
					
	$soap .= $self->soap_footer();
	
	return $soap;
}

sub soap_send_body {
	my $self = shift;
	my ($username,$password,$nonce,$addresses,$senderName,$message,$receiptRequest,$ChargingInformation) = @_;
	
	my $soap = $self->soap_header($username,$password,$nonce);
	
	if (ref($message) eq 'ARRAY') {
		#different messages for (possibly) different recipients
		for (my $i=0; $i < scalar(@{$message}); $i++) {
						
			$soap .= qq[<ns2:sendSms xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/send/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">];
			
			if (ref($addresses) eq 'ARRAY' && $addresses->[$i]) {
				$soap .= qq[<ns2:addresses>$addresses->[$i]</ns2:addresses>];
			}
			else {
				$soap .= qq[<ns2:addresses>$addresses</ns2:addresses>];
			}
			
			if (ref($senderName) eq 'ARRAY' && $senderName->[$i]) {
				$soap .= qq[<ns2:senderName>$senderName->[$i]</ns2:senderName>];
			}
			else {
				$soap .= qq[<ns2:senderName>$senderName</ns2:senderName>];
			}
			
			$soap .= qq[<ns2:message>$message->[$i]</ns2:message>];
			
			if (ref($receiptRequest) eq 'ARRAY' && ref($receiptRequest->[$i]) eq 'HASH') {
				$soap .= $self->receipt_request($receiptRequest->[$i]);
			}
			elsif ($receiptRequest) {
				$soap .= $self->receipt_request($receiptRequest);
			}
			
			if (ref($ChargingInformation) eq 'ARRAY' && ref($ChargingInformation->[$i]) eq 'HASH') {
				$soap .= $self->charging_info($ChargingInformation->[$i]);
			}
			elsif ($ChargingInformation) {
				$soap .= $self->charging_info($ChargingInformation);
			}
			
			$soap .= qq[</ns2:sendSms>];
		}
	}
	elsif (ref($addresses) eq 'ARRAY') {
		#same message to different recipients
		foreach (@{$addresses}) {
			$soap .= qq[<ns2:sendSms xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/send/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
														<ns2:addresses>$_</ns2:addresses>
														<ns2:message>$message</ns2:message>];
			
			if ($senderName) {
				$soap .= qq[<ns2:senderName>$senderName</ns2:senderName>];
			}
			
			if ($receiptRequest) {
				$soap .= $self->receipt_request($receiptRequest);
			}
			
			if ($ChargingInformation) {
				$soap .= $self->charging_info($ChargingInformation);
			}
			
			$soap .= qq[</ns2:sendSms>];
		}
	}
	else {
		#one message, one recipient
		$soap .= qq[<ns2:sendSms xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/send/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">
												<ns2:addresses>$addresses</ns2:addresses>
												<ns2:message>$message</ns2:message>];
	
		if ($senderName) {
			$soap .= qq[<ns2:senderName>$senderName</ns2:senderName>];
		}
			
		if ($receiptRequest) {
			$soap .= $self->receipt_request($receiptRequest);
		}
		
		if ($ChargingInformation) {
			$soap .= $self->charging_info($ChargingInformation);
		}
		
		$soap .= qq[</ns2:sendSms>];
	}
	
	$soap .= $self->soap_footer();
	
	return $soap;
}

sub soap_header {
	my $self = shift;
	my $username = shift || $self->{'username'};
	my $password = shift || $self->{'password'} || '';
	my $nonce    = shift || $self->{'nonce'}    || '';
	
	if ($password) {
		$password = q[<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">].$password.q[</wsse:Password>];
		
		#only if password, can nonce make sense or not ?
		if ($nonce) {
			$nonce = q[<wsse:Nonce EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">].$nonce.q[</wsse:Nonce>];
		}
	}
	
	return qq[<?xml version="1.0" ?>
				<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
						<SOAP-ENV:Header>
								<wsse:Security SOAP-ENV:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
										<wsse:UsernameToken wsu:Id="XWSSGID-11435375577461001212174" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
												<wsse:Username>]
					.$username
					.qq[</wsse:Username>]
					.$password
					.$nonce
					.qq[	
										</wsse:UsernameToken>
								</wsse:Security>
						</SOAP-ENV:Header>
						<SOAP-ENV:Body>];
}

sub soap_footer {
	my $self = shift;
	
	return qq[</SOAP-ENV:Body>
				</SOAP-ENV:Envelope>];
}

sub receipt_request {
	my $self = shift;
	
	my $rr = shift;
	
	if (ref($rr) ne 'HASH') {
		Carp::croak("Cant do receipt request without endpoint, interfaceName or correlator (receiptRequest is not a HASH reference\n");
	}
	
	if ($rr->{'endpoint'}) {
		$rr->{'endpoint'} = qq[<endpoint>$rr->{'endpoint'}</endpoint>];
	}
	if ($rr->{'correlator'}) {
		$rr->{'correlator'} = qq[<correlator>$rr->{'correlator'}</correlator>];
	}
	if ($rr->{'interfaceName'}) {
		$rr->{'interfaceName'} = qq[<interfaceName>$rr->{'interfaceName'}</interfaceName>];
	}
	
	if ($rr->{'interfaceName'} || $rr->{'correlator'} || $rr->{'endpoint'}) {
		return qq[<ns2:receiptRequest> $rr->{'endpoint'} $rr->{'interfaceName'} $rr->{'correlator'} </ns2:receiptRequest>];
	}
	else {
		return '';
	}
}

sub soap_receivesms_body {
	my $self = shift;
	my ($username,$password,$nonce,$registrationIdentifier) = @_;
	
	my $soap = $self->soap_header($username,$password,$nonce);
	
	$soap .= qq[<ns2:getReceivedSms xmlns:ns2="http://www.csapi.org/schema/parlayx/sms/receive/v2_1/local" xmlns:ns3="http://www.csapi.org/schema/parlayx/common/v2_1">];
	
	if ($registrationIdentifier) {
		$soap .= qq[<ns2:registrationIdentifier>$registrationIdentifier</ns2:registrationIdentifier>];
	}
	
	$soap .= qq[</ns2:getReceivedSms>];
	
	$soap .= $self->soap_footer();
}

sub charging_info {
	my $self = shift;
	
	my $ci = shift;
	
	if (ref($ci) ne 'HASH') {
		Carp::croak("Cant do charging information without description, currency, amount or code (ChargingInformation is not a HASH reference\n");
	}
	
	if ($ci->{'description'}) {
		$ci->{'description'} = qq[<description>$ci->{'description'}</description>];
	}
	if ($ci->{'currency'}) {
		$ci->{'currency'} = qq[<currency>$ci->{'currency'}</currency>];
	}
	if ($ci->{'amount'}) {
		$ci->{'amount'} = qq[<amount>$ci->{'amount'}</amount>];
	}
	if ($ci->{'code'}) {
		$ci->{'code'} = qq[<code>$ci->{'code'}</code>];
	}
	
	if ( ($ci->{'currency'} && $ci->{'amount'}) || $ci->{'code'} ) {
		return qq[<ns2:charging> $ci->{'currency'} $ci->{'amount'} $ci->{'description'} $ci->{'code'} </ns2:charging>];
	}
	else {
		return '';
	}
}

sub parse_xml {
	my $self = shift;
	
	my $soap = shift;
		
	my $returns = shift || '';
	
	my $doc;
	
	eval {
		if (ref($soap)) {
			$self->{'DEBUG'} and warn "SOAP document:\n". ("-" x 80) . "\n" . $$soap . "\n" .("-" x 80) ."\n";
			#might be a reference
			$doc = $self->{'parser'}->parse_string($$soap);
		}
		else {
			$self->{'DEBUG'} and warn "SOAP document:\n". ("-" x 80) . "\n$soap" . "\n" . ("-" x 80) ."\n";
			$doc = $self->{'parser'}->parse_string($soap);
		}
	};
	
	if ($@) {
		if (ref($soap)) {
			Carp::croak("SOAP document:\n\n$$soap\n\n is not valid XML\n");
		}
		else {
			Carp::croak("SOAP document:\n\n$soap\n\n is not valid XML\n");
		}
	}
	
	if (!$returns) {
		return 1;
	}
	else {
		my $ret = '';
		
		if (ref($returns) eq 'HASH') {
			my $count = 0; #one or more ``results'' ?
			#$ret will be an array of hashes if more than one
			$ret = [];
			foreach my $res ($doc->getElementsByTagName('result')) {
				if ($count) {
					push @{$ret},$returns;
				}
				foreach (keys(%{$returns})) {
					$returns->{$_} = $res->findvalue($_);
				}
				$count++;
			}
			
			if ($count > 1) {
				#had more than 1 <results> sections
				push @{$ret},$returns;
			}
			else {
				$ret = $returns;
			}
		}
		else {
			foreach my $res ($doc->getElementsByTagName($returns)) {
				$ret = $res->to_literal;
			}
		}
		
		if (!$ret) {
			$ret = $doc->findvalue('/');
		}
		return $ret;
	}
}
	
sub doHTTP {
	my $self = shift;
	
	my ($host,$soap,$soapaction,$lookfor) = @_;
	
	my $req = HTTP::Request->new(POST => $host);
	#ref $soap to save string copying back and forth...
	if (ref($soap)) {
		$req->content($$soap);
	}
	else {
		$req->content($soap);
	}
	
	$req->header('SOAPAction' => $soapaction);
	
	my $res = $self->{'ua'}->request($req);

	if ($res->is_success()) {
		$self->{'DEBUG'} and warn "Request successfull (200 OK) parsing response...\n";
		
		my $result = $self->parse_xml(\$res->content,$lookfor);
		
		return (1,$result);
	}
	else {
		if ($res->content) {
			$self->{'DEBUG'} and warn "Request unsuccessfull parsing response...\n";
			
			my $fault = $self->parse_xml(\$res->content,'Fault');
			return (0,$fault);
		}
		else {
			Carp::croak("request failed with ".$res->as_string."\n");
		}
	}
}
	

1;