| Perl
1. BankVal International
2. BankVal UK
1. BankVal International ™
To access BankVal International methods from Perl, the simplest technique is to use the SOAP::Lite toolkit and the service definition file (WSDL). The following examples show how to do this for both BankVal International methods.
A call to the backup services is included in case a problem is encountered.
swiftvalidate
use SOAP::Lite;
...
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValinternationalall.wsdl')
-> swiftvalidate('userid|PIN|SWIFTBIC');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValinternationalall.wsdl')
-> swiftvalidate('userid|PIN|SWIFTBIC');
}
ibanvalidate
use SOAP::Lite;
...
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValinternationalall.wsdl')
-> ibanvalidate('userid|PIN|IBAN');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValinternationalall.wsdl')
-> ibanvalidate('userid|PIN|IBAN');
}
<< back to top >>2. BankVal UK ™
To access BankVal UK methods from Perl, the simplest technique is to use the SOAP::Lite toolkit and the service definition file (WSDL). The following examples show how to do this for all BankVal UK methods.
A call to the backup services is included in case a problem is encountered.
bankvalidate
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> bankvalidate('userid|PIN|sortcode|account');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> bankvalidate('userid|PIN|sortcode|account');
}
bankvalplus
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> bankvalplus('userid|PIN|sortcode|account');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> bankvalplus('userid|PIN|sortcode|account');
}
bankvalfull
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> bankvalfull('userid|PIN|sortcode|account');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> bankvalfull('userid|PIN|sortcode|account');
}
getbranchdetails
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> getbranchdetails('userid|PIN|sortcode');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> getbranchdetails('userid|PIN|sortcode');
}
cardvalidate
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> cardvalidate('userid|PIN|cardnumber');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> cardvalidate('userid|PIN|cardnumber');
}
transpose
use SOAP::Lite;
..
eval {
$result = SOAP::Lite
-> service('http://www.unifiedsoftware.co.uk/BankValukall.wsdl')
-> transpose('userid|PIN|sortcode|account');
};
if ($@)
{
$result = SOAP::Lite
-> service('http://www.unifiedservices.co.uk/BankValukall.wsdl')
-> transpose('userid|PIN|sortcode|account');
}
<< back to top >> |