The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.

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

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 96:

'=item' outside of any '=over'

Around line 436:

You forgot a '=back' before '=head1'