Perl UploadRegistrantVerificationMessage

In case the partner does the Registrant Verification, the proof can be uploaded via AWS. In this case the process is like this:

  • Partner send an e-mail to the end-customer
  • The endcustomer clicks on a link, that leads to the partners confirmation site
  • The partner stores the e-mail he sent, together with the IP-address of the customer
  • The partner uploads it via AWS.

The customers email is passed in the "value" field.

Please click here for more information about the process: Registrant Verification process.

Response UploadRegistrantVerificationMessage(string sessionId,string value)

Response codes

ResultCodeMessageValue
200OK
401Authorization failed
404Object not found

UploadRegistrantVerificationMessage request

PropertyDescription
sessionIdExample: o58t9fjgw9bjarp6q7byv13e
valuePlease provide an e-mail address here
Example: "administrator@ascio-test-domain.com"
details

UploadRegistrantVerificationMessageResponse

Property
UploadRegistrantVerificationMessageResult

Perl example

use SOAP::Lite;
use Date::Format;
$proxy = "https://awstest.ascio.com/2012/01/01/AscioService.svc";
$namespace = "http://www.ascio.com/2007/01";
$soap = SOAP::Lite -> on_action( sub { "http://www.ascio.com/2007/01/IRegistrantService/UploadRegistrantVerificationMessage" } ) -> proxy($proxy);
$soap->autotype(0);
$method = SOAP::Data->name("UploadRegistrantVerificationMessage")
->attr({xmlns => $namespace});

#Attachment
$attachment =  \SOAP::Data->value(
	SOAP::Data->name('Data','DataTest'),
	SOAP::Data->name('FileName','anything.jpg')
);

#ArrayOfAttachment
$attachments = array($attachment);
	
	\SOAP::Data->value(

	)

#Message
$message =  \SOAP::Data->value(
	SOAP::Data->name('Attachments',$attachments),
	SOAP::Data->name('Body','BodyTest'),
	SOAP::Data->name('Created',time2str('%Y-%m-%dT%H:%M:%SZ', time, 'EST')),
	SOAP::Data->name('FromAddress','administrator@ascio-test-domain.com'),
	SOAP::Data->name('Subject','base64-encoded or 7 Bit ASCII'),
	SOAP::Data->name('ToAddress','ToAddressTest'),
	SOAP::Data->name('Type','Message_to_Partner')
);

#ArrayOfMessage
$messages = array($message);
	
	\SOAP::Data->value(

	)

#RegistrantVerificationDetails
$details =  \SOAP::Data->value(
	SOAP::Data->name('VerifiedBy','1.1.1.1'),
	SOAP::Data->name('VerificationDate',time2str('%Y-%m-%dT%H:%M:%SZ', time, 'EST')),
	SOAP::Data->name('Messages',$messages)
);
@query = (
	SOAP::Data->name(sessionId => $sessionId),
	SOAP::Data->name(value => $value),
	SOAP::Data->name(details => $details)
);

$result = $soap->call($method => @query);
unless ($result->fault) {
	$response = $result->valueof("//UploadRegistrantVerificationMessageResponse/UploadRegistrantVerificationMessageResult");
	print "ResultCode : $response->{'ResultCode'}\r\n";
	print "Message : $response->{'Message'}\r\n";
	if ($response->{"ResultCode"} == 200) {
		print "OK";
	}
}
else {
	print join ", ",
	$result->faultcode,
	$result->faultstring,
	$result->faultdetail;
}
WSDL for AWS v2
https://aws.demo.ascio.com/2012/01/01/AscioService.wsdl (OTE)
https://aws.ascio.com/2012/01/01/AscioService.wsdl (Live)