#!/usr/bin/perl -w

use strict;

use lib qw { ../src };

use CreditCall::Client;
use CreditCall::Request;

# Setup the request
my $request = CreditCall::Request->new;
$request->setSoftwareName("SoftwareName");
$request->setSoftwareVersion("SoftwareVersion");
$request->setTerminalID($ARGV[0]);
$request->setTransactionKey($ARGV[1]);

# Setup the request detail
$request->setRequestType(CreditCall::RequestType::RequestType_Auth);
$request->setAmount("123");
$request->setPAN("341111597241002");
$request->setExpiryDate("2012");

print $request->toString;

# Setup the client
my $client = CreditCall::Client->new;
$client->addServerURL("https://test.cardeasexml.com/generic.cex", 45000);
$client->setRequest($request);

# Process the request
$client->processRequest;

# Get the response
my $response = $client->getResponse;
print $response->toString;