Finance::Bank::Sporo - Perl extension for B<SporoPay> of Slovenska Sporitelna.
use Finance::Bank::Sporo; $sporo_obj = Bank::Sporo->new($prenumber,$number); $sporo_obj->configure( amt => $amt, vs => $vs, ss => $ss, rurl => $rurl, param => $param, ); print $sporo_obj->pay_form();
Module for generating pay forms and links for B<SporoPay> of Slovenska Sporitelna (http://www.slsp.sk/).
$sporo_obj = Finance::Bank::Sporo->new($prenumber,$number);
This creates a new Finance::Bank::Sporo object using $prenumber as a "Predcisle uctu" and $number as a "Cislo uctu"
$sporo_obj->configure( amt => $amt, vs => $vs, ss => $ss, rurl => $rurl, param => $param, image_src => '/PICS/sporopay_logo.gif', );
Set correct values to object. Possible parameters is: amt => Amount vs => Variable Symbol ss => Specific Symbol rurl => Redirect URL image_src => Path to image ( relative to DocumentRoot ) param => any parameter
Possible but default correct parameter is:
action_url => SporoPayPay action URL default: https://ib.slsp.sk/epayment/epayment/epayment.xml image_src => Path to image ( relative to DocumentRoot ) default: /PICS/sporopay_logo.gif
print $sporo_obj->pay_form(); Return HTML FORM.
print $sporo_obj->generic_pay_form($type); Return HTML FORM for payment with submit button.
print $sporo_obj->pay_link(); Return URL for payment.
Look at B<SYNOPSIS>, t/*, examples/* and use the source. ( lookin for a volunteer for writing documentation and man pages)
Copyright 2000 Jan ' Kozo ' Vajda, Jan.Vajda@alert.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@alert.sk
Thanks very much to:
for patience and love