#!/usr/bin/perl

use SOAP::Lite +trace => 'debug';
$SOAP::Constants::PREFIX_ENV = "soapenv";
my $soap = SOAP::Lite
    -> proxy ('<strong>Enter Proxy URL HERE</strong>)
        -> on_action( sub {join '', '"urn:Process"',''} )
    -> readable(true); # make the XML readable, set this to false or comment out on production

#Change some HTTP Header defaults
$SOAP::Constants::DEFAULT_HTTP_CONTENT_TYPE
      = 'text/xml';
#Add some custom Name Spaces to the soapenv:Envronment
$soap->serializer->register_ns("http://api.apihost.com/xsd","xmlns:xsd");
$soap->serializer->register_ns("http://api.apihost.com","xmlns:api");
$soap->serializer->register_ns("http://www.w3.org/2005/08/addressing","xmlns:wsa");
#Need todo some funky business with the SoapAction --> See ->on_action as it joins.
$soap->default_ns('api:Process');
$soap->autotype(1);
$soap->outputxml('true');

#setup Username and Password, Get this from your Welcome email.
my $username = "testshayne";
#MD5 password
my $password = "8eee3efdde1eb6cf6639a58848362bf4";

#TODO: create a random word for the nounce, instead of using static base64_encode nounce
my $nonce = "4djRSlpeyWeGzcNgatneSA==";
#TODO: Auto create timestamp
my $timestamp = "2005-2-5T17:18:15Z";

#TODO - Get the digest to work! - This will enable the WSSE Password Digest, instead of using PlainText md5 password
#my $digest = MIME::Base64::encode_base64(Digest::SHA1::sha1(MIME::Base64::decode_base64($nonce) . $timestamp . $password), '');

#Build the WS Security Headers.
my $security=SOAP::Header->name("wsse:Security")->attr({'soapenv:mustUnderstand'=>1,'xmlns:wsse'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd'});

my $userToken =SOAP::Header->name("wsse:UsernameToken" =>
                                   \SOAP::Header->value(
                                    SOAP::Header->name('wsse:Username')->value($username)->type(''),
                                    SOAP::Header->name('wsse:Password')->value($password)->type('')->attr({'Type'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText'}),
                                    SOAP::Header->name('wsse:Nonce')->value($nonce)->type('')->attr({'EncodingType'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary'}),
                                   
                                    SOAP::Header->name('wsu:Created')->value($timestamp)->type(''))
                                        )->attr({'xmlns:wsu'=>'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd'});
                                       
my $address="http://www.w3.org/2005/08/addressing";
my $addressing=SOAP::Header->name("wsa:ReplyTo" => \SOAP::Header->value(SOAP::Header->name('wsa:Address')->value($address)->type('')));
my $action=SOAP::Header->name('wsa:Action')->value('urn:Process')->type('')->attr({'soapenv:mustUnderstand'=>'1'});
my $message=SOAP::Header->name('wsa:MessageID')->value('uuid:7176ecf3-1066-4e97-99da-0aef3f5c12c8')->type('')->attr({'soapenv:mustUnderstand'=>'1'});

#Set minimum values to pass to the API

my $Amount = '100.00';
my $Currency = 'USD';
my $AttemptMode = '1';
my $IPAddress = '192.168.120.157';
my $Email = 'bob10@bob.com';
my $FirstName = 'Bob';
my $LastName = 'Builder';
my $Address1 = '450 Queen St';
my $Address2 = 'City';
my $City = 'Brisbane';
my $State = 'Queensland';
my $Country = 'AU';
my $Postcode = '4000';
my $Phone = 'XXXXXXXX';
my $CardName = 'Bob';
my $CardNumber = 'XXXXXXXXXXXXXXXX';
my $ExpiryMonth = '04';
my $ExpiryYear = '2010';
my $CVV = '123';
my $SiteId = 'XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX';
my $TestTransaction = 'true';
my $TuringKey = 'XXXXX';
my $Product = 'Shoes';
my $Note = 'Transaction for Shoes';
my $CustomerRef ='wo0t2';

#build the array

my $arrAmount = (\SOAP::Data->value(
    SOAP::Data->name('api:Amount')->value($Amount)->type(''),
    SOAP::Data->name('api:Currency')->value($Currency)->type('')
));
my $details = (\SOAP::Data->value(
        SOAP::Data->name('api:FirstName')->value($FirstName)->type(''),
        SOAP::Data->name('api:LastName')->value($LastName)->type(''),
        SOAP::Data->name('api:Address1')->value($Address1)->type(''),
        SOAP::Data->name('api:Address2')->value($Address2)->type(''),
        SOAP::Data->name('api:City')->value($City)->type(''),
        SOAP::Data->name('api:State')->value($State)->type(''),
        SOAP::Data->name('api:Country')->value($Country)->type(''),
        SOAP::Data->name('api:Postcode')->value($Postcode)->type(''),
        SOAP::Data->name('api:Phone')->value($Phone)->type(''),

)->type(''));
my $arrCustDetails = (\SOAP::Data->value(
    SOAP::Data->name('api:Details')->value($details)->type(''),
    SOAP::Data->name('api:CustomerRef')->value($CustomerRef)->type(''),
    SOAP::Data->name('api:Email')->value($Email)->type(''),
    SOAP::Data->name('api:IPAddress')->value($IPAddress)->type('')
));
my $arrCardDetails = (\SOAP::Data->value(
    SOAP::Data->name('api:CardName')->value($CardName)->type(''),
    SOAP::Data->name('api:CardNumber')->value($CardNumber)->type(''),
    SOAP::Data->name('api:ExpiryMonth')->value($ExpiryMonth)->type(''),
    SOAP::Data->name('api:ExpiryYear')->value($ExpiryYear)->type(''),
    SOAP::Data->name('api:CVV')->value($CVV)->type('')));

#package the final array                   
my $params = ( SOAP::Data->value(
    SOAP::Data->name('api:CardDetails' => $arrCardDetails),
    SOAP::Data->name('api:Customer' => $arrCustDetails),
    SOAP::Data->name('api:Amount' => $arrAmount),
    SOAP::Data->name('api:AttemptMode')->value($AttemptMode)->type(''),
    SOAP::Data->name('api:Note')->value($Note)->type(''),
    SOAP::Data->name('api:Product')->value($Product)->type(''),
    SOAP::Data->name('api:SiteId')->value($SiteId)->type(''),
    SOAP::Data->name('api:TuringKey')->value($TuringKey)->type(''),
    SOAP::Data->name('api:TestTransaction')->value($TestTransaction)->type('')
));

#Set the envrionment prefix for Process
$process ='api:Process';
#send our request and process a transaction
print $soap->$process($params, $security->value(\$userToken, $action, $message));