NAME

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

VERSION

0.23

SYNOPSIS

  use Finance::Bank::TB;

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

  $tb_obj->configure(
	      cs	=> $cs,
	      vs	=> $vs,
	      amt	=> $amt,
	      rurl	=> $rurl,
	      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,
	      image_src => '/PICS/tatrapay_logo.gif',
  );

  print $tb_obj->pay_form();

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/ )

The current version of Finance::Bank::TB is available 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 name => Name of client res => Result Code of transaction ac => Approval Code

Possible but default correct parameters is:

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

eliot_action_url => EliotPay action URL
default:
  https://moja.tatrabanka.sk/cgi-bin/ibanking/start/eliotpay.jsp

action_url => default action URL
default:
  https://moja.tatrabanka.sk/cgi-bin/ibanking/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;
print $tb_obj->card_sign;

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

get_send_sign

print $tb_obj->get_send_sign();

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

get_card_sign

print $tb_obj->get_card_sign();

Calculate and return CardPay signature. Set $tb_obj->card_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);

Type is "tatra" or "eliot" or null. Default is null (action_url). Recomended is null.

Return HTML FORM.

card_form

print $tb_obj->card_form();

Return CardPay HTML FORM.

pay_link

print $tb_obj->pay_link($type);

Type is "tatra" or "eliot" or null. Default is null (action_url). Recomended is null.

Return URL for payment.

card_link

print $tb_obj->card_link();

Return CardPay URL for payment.

generic_pay_form

print $tb_obj->generic_pay_form($type);

Type is "tatra" or "eliot" or null. Default is null (action_url). Recomended is null.

Return HTML FORM for payment with submit button.

generic_cardpay_form

print $tb_obj->generic_cardpay_form();

Return HTML FORM for CardPay with submit button.

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 & kozliatko

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).