NAME

Finance::Bank::TB - Perl extension for B<TatraPay> of Tatra Banka and B<EliotPay> of .eliot.

VERSION

0.22

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 B<TatraPay> of Tatra
Banka (http://www.tatrabanka.sk/) and for B<EliotPay> of .eliot.
(http://www.eliot.sk/)

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

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;

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

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

Return HTML FORM.

pay_link

print $tb_obj->pay_link($type);

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

Return URL for payment.

generic_pay_form

print $tb_obj->generic_pay_form($type);

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

Return HTML FORM for payment with submit button.

EXAMPLES

Look at B<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@somi.sk. All rights
reserved.  It may be used and modified freely, 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@somi.sk

CREDITS

Thanks very much to:

my wife Erika

for patience

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