NAME

Finance::Bank::TB - Perl extension for TatraPay and CardPay of Tatrabanka and EliotPay of .eliot.

VERSION

0.28

SYNOPSIS

  use Finance::Bank::TB;

  $tb_obj = Finance::Bank::TB->new($mid,$key);

  $tb_obj->configure(
	      cs	=> $cs,
	      vs	=> $vs,
	      amt	=> $amt,
	      rurl	=> $rurl,
	      name	=> $uname,
	      ipc	=> $ip_of_client,
	      image_src => '/PICS/tatrapay_logo.gif',
  );

  my $send_sign = $tb_obj->get_send_sign();
  my $recv_sign = $tb_obj->get_recv_sign();
  my $new_cs = $tb_obj->cs($cs);
 

or

  use Finance::Bank::TB;

  $tb_obj = Finance::Bank::TB->new($mid,$key);

  $tb_obj->configure(
	      cs	=> $cs,
	      vs	=> $vs,
	      amt	=> $amt,
	      rurl	=> $rurl,
	      desc	=> $description,
	      rsms	=> $mobilephonenumber,
	      rem	=> $remote_mail,
	      name	=> $uname,
	      ipc	=> $ip_of_client,
	      image_src => '/PICS/tatrapay_logo.gif',
  );

  print $tb_obj->pay_form("TatraPay");

DESCRIPTION

Module for generating signatures and pay forms for TatraPay and CardPay of Tatra Banka ( http://www.tatrabanka.sk/ ) and for EliotPay of .eliot. ( http://www.eliot.sk/ )

(EliotPay is deprecated.)

The current version of Finance::Bank::TB is available at CPAN or at

http://rodney.alert.sk/perl/

USE

Functions ( or Methods ? )

new

$tb_obj  = Finance::Bank::TB->new($mid,$key);

This creates a new Finance::Bank::TB object using $mid as a MID ( MerchantID ) and $key as a DES PassPhrase.

configure

	$tb_obj->configure(
		cs        => $cs,
		vs        => $vs,
		amt       => $amt,
		rurl      => $rurl,
		image_src => '/PICS/tatrapay_logo.gif',
	);

 

Set correct values to object. Possible parameters is: cs => Constant Symbol vs => Variable Symbol amt => Amount rurl => Redirect URL image_src => Path to image ( relative to DocumentRoot ) desc => Description rsms => Mobile Number for SMS notification rem => E-mail address for email notification ipc => IP address of Client aredir => Automatic redirect (0|1 default 0) lang => User language (default: sk) name => Name of client res => Result Code of transaction ac => Approval Code

Possible but default correct parameters is:

action_url => default action URL
default:
  https://moja.tatrabanka.sk/cgi-bin/e-commerce/start/e-commerce.jsp

image_src => Path to image ( relative to DocumentRoot )
default:
  /PICS/tatrapay_logo.gif

calculate_signatures

$tb_obj->calculate_signatures();
print $tb_obj->send_sign;
print $tb_obj->recv_sign;

Calculate Send and Receive Signature from parameters of object and set send_sign and recv_sign.

get_send_sign

print $tb_obj->get_send_sign();

Calculate and return send signature. Set $tb_obj->send_sign.

get_recv_sign

print $tb_obj->get_send_sign();

Calculate and return receive signature. Set $tb_obj->recv_sign.

pay_form

print $tb_obj->pay_form($type,$generic);

Type is "TatraPay", "EliotPay", "CardPay" or null. Default is null (user must select type by hand). If defined $generic form will be with input type=submit instead input type=image ( and image_src will be ignored )

Return HTML FORM.

pay_link

print $tb_obj->pay_link($type);

Type is "TatraPay", "EliotPay", "CardPay" or null. Default is null.

Return URL for payment.

EXAMPLES

Look at SYNOPSIS, t/*, examples/* and use the source. (lookin for a volunteer for writing documentation and man pages)

AUTHOR INFORMATION

Copyright 2000 Jan ' Kozo ' Vajda, Jan.Vajda@alert.sk. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, but I do request that this copyright notice remain attached to the file. You may modify this module as you wish, but if you redistribute a modified version, please attach a note listing the modifications you have made.

Address bug reports and comments to: Jan.Vajda@alert.sk

CREDITS

Thanks very much to:

my wife Erika & kozliatka

for patience and love

Gildir ( gildir@alert.sk )

for debugging

M. Sulik from TatraBanka

for documentation, C examples and mail helpdesk.

SEE ALSO

perl(1),Digest::SHA1(1),Crypt::DES(1).