Luis Moreno > WebSphere-Payment > CashRegister

Download:
WebSphere-Payment-1.21.tar.gz

Annotate this POD

View/Report Bugs
Source  

NAME ^

CashRegister - Simple Perl interface to IBM WebSphere Payment Manager 2.2 API

SYNOPSIS ^

use WebSphere::Payment; $cashregister = new WebSphere::Payment($pmurl,$currency,$admin, $timeout); # Creating a merchant $paystubref = {merchantnumber => $merchantnumber, merchanttitle => $merchantname, cassettename => 'SET', }; my ($errortext) = ();

if ($cashregister->createMerchant($paystubref) and !($cashregister->{prirc} or $cashregister->{secrc})) { if ($cashregister->createPaySystem($paystubref) and !($cashregister->{prirc} or $cashregister->{secrc})) { if ($cashregister->createAccount($paystubref) and !($cashregister->{prirc} or $cashregister->{secrc})) { if (! $cashregister->setUserAccessRights($paystubref) or ($cashregister->{prirc} or $cashregister->{secrc})) { $errortext = "SetUserAccessRights error"; } } else { $errortext = "Create Account error"; } } else { $errortext = "Create PaySystem error"; } } else { $errortext = "Create Merchant error"; } if ($errortext) { print "Fail...$errortext\n"; } else { print "Results...OK\n"; } print "prirc: " . $cashregister->{prirc} . "\n"; print "secrc: " . $cashregister->{secrc} . "\n"; print "pmmessage: " . $cashregister->{pmmessage} . "\n";

$paystubref = {merchantnumber => $merchantnumber, ordernumber => $ordernumber, approveflag => 0, depositflag => 0, amount => $amount, '%24expiry' => $yyyydd, '%24pan' => $cardnumber, '%24brand' => $cardtype, '%24orderdescription' => $description, '%24cardverifycodes' => $cvv2};

# Sending a transaction if ($cashregister->acceptPayment($paystubref)) { print "Results\n"; print "prirc: " . $cashregister->{prirc} . "\n"; print "secrc: " . $cashregister->{secrc} . "\n"; } print "pmmessage: " . $cashregister->{pmmessage} . "\n"; # Closing a Batch if ($batch = $cashregister->getOpenBatchNumber($paystubref)) { print "\n\nClosing the Batch number: $batch\n"; $cashregister->batchClose($paystubref, $batch); print "prirc: " . $cashregister->{prirc} . "\n"; print "secrc: " . $cashregister->{secrc} . "\n"; print "pmmessage: " . $cashregister->{pmmessage} . "\n"; } else { print "No batch opens. " . $cashregister->{error}; } $cashregister->close();

REQUIRES ^

Perl5.005

EXPORTS Nothing ^

DESCRIPTION ^

WebSphere::Payment provides a simple Interface to the API of the payment engine IBM WebSphere Payment Manager 2.2. It achieves this task, through commands send via http POST method.

METHODS ^

Creation

new WebSphere::Payment($pmurl,$admin,$currency,$timeout)

Create a new WebSphere::Payment object. If no parameters are specified, the object will be initialized with the default values. The pmurl is the url where the Payment Manager servlet (PaymentServlet) is listening. The currency parameter, represent the type of currency the transactions will use. The admin parameter consists of a userid and password string, separated by a single colon (":") character, encoded with a base64 encoding. This userid must have administrator permissions on the Payment Manager.

API Methods

acceptPayment($paydataref)

Send a transaction using the Payment Manager engine, with the data specified in the hash referenced by paydataref.

batchClose($paydataref, batchnumber)

Closes a batch given the merchantnumber within a hash reference and the number of the batch to be closed

getOpenBatchNumber($paydataref)

Given the merchantnumber within a hash reference returns the number of the batch if exists

createMerchant($paydataref)

Create a new merchant in the payment manager system

createPaySystem($paydataref)

Authorize a merchant to use a pay system (SET for example).

createAccount($paydataref)

Create a new Account for a merchant. An account represents the relationship between a merchant and an acquirer

SetUserAccessRights($paydataref)

Set permissions to a user of the Realm. The user must have the same name of the merchant

HISTORY ^

This module was originally created in Jun 2001 by Luis Moreno 1.20 Methods: batchClose, getOpenBatchNumber, createMerchant, createPaySystem, createAccount, setUserAccessRights (Oct 2001) 1.21 Minor documentation changes

AUTHOR ^

Luis Moreno, luis@cantv.net

COPYRIGHT ^

The IBM WebSphere Payment Manager is trademark of the IBM Corporation in the United States or both.

    This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

SEE ALSO ^

perl(1), IBM WebSphere Payment Manager Programmer's Guide and Reference

syntax highlighting: