NAME

Finance::Bank::Sporo - Perl extension for B<SporoPay> of Slovenska Sporitelna.

VERSION

0.16

SYNOPSIS

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

DESCRIPTION

Module for generating pay forms and links for B<SporoPay> of Slovenska
Sporitelna (http://www.slsp.sk/).

USE

Functions ( or Methods ? )

new
$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"

configure
	$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

  
pay_form
print $sporo_obj->pay_form();

Return HTML FORM.
generic_pay_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.

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@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

CREDITS

Thanks very much to:

my wife Erika & kozliatko

for patience and love

SEE ALSO

perl(1),Finance::Bank::TB(1).

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 62:

'=item' outside of any '=over'

Around line 281:

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