#!/usr/bin/perl -w
use 5.008;
use strict;
use diagnostics;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Dumper;
$Data::Dumper::Sortkeys = \&dumper_filter;
sub dumper_filter {
    my ($hash) = @_;
    return [(sort {lc $a cmp lc $b} keys %$hash)];
}
$| ++;
my $iban_wsdl_getform = 'http://dev.iban-bic.com/Riban/soap2/';

my %account = (
    'acc_user'  => 'test',
    'acc_pass'  => 'test',
);

my $cgi = CGI -> new;
print $cgi -> header;
print $cgi -> start_html ('Test Escape SOAP Content');
print $cgi -> p ('- Begin of script -');

my $modul = 1;
eval "use SOAP::Lite; 1;" or $modul = 0;
if ($modul) {
    my $version = SOAP::Lite -> VERSION;
    print $cgi -> p ("SOAP::Lite $version detected");
    my $soap = SOAP::Lite -> new ();

    # get input mask
    $soap -> proxy ($iban_wsdl_getform);
    my ($hash_ref,@params);

    my %parameter = (
        'country'   => 'NL',
    );

    foreach my $key (%parameter) {
        push @params,
            \SOAP::Data -> value (
                SOAP::Data -> name ('key' => $key) -> type ('xsd:string'),
                SOAP::Data -> name ('value' => $parameter{$key}) -> type ('xsd:string'),
            );
    }
    print $cgi -> p ('SENDE:<br><pre>' . Dumper (\@params) . '</pre>');
    eval {
        # do it in eval because smallest errors always cause hard abort in SOAP::Lite
        # !!ATTENTION!! The SOAP map always must be the first parameter,
        # username und password always have to be second and third parameter!
        $hash_ref = $soap -> get_form (
            SOAP::Data -> name ('params' => \@params) -> type ('tns:Map'),
            SOAP::Data -> name ('user' => $account{'acc_user'}) -> type ('xsd:string'),
            SOAP::Data -> name ('password' => $account{'acc_pass'}) -> type ('xsd:string'),
        );
    };
    if (defined $hash_ref) {
        my $result = $hash_ref -> result;
        print $cgi -> p ("ERHALTE:<br><pre>" . Dumper (\$result) . "</pre>");
    }
    else {
        print $cgi -> p (
            "Sorry, one or more internal errors occurred!"
            . "<br>Do you perform your request in correct order, first=map, second=user, third=password?"
        );
    }
}
else {
    print $cgi -> p ("Sorry, can't find SOAP::Lite!");
}
print $cgi -> p ('- End of script -');
print $cgi -> end_html;