Verbindungsaufbau mit IO::Socket::SSL (gelöst) (Fragen zu Perl-Modulen)

[thread]15986[/thread]

Verbindungsaufbau mit IO::Socket::SSL [gelöst]

Leser: 30

Articles: hide open all | hide show old branches

Teilbaum:
Umsätze per FinTS-GV HKKAZ abrufen (11 Artikel) 2013-04-15 15:08

+14 replies

bianca

2011-02-20 10:15

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

Guten Morgen!

Versuche einen Verbindungsaufbau zu einer HBCI-Schnittstelle irgendeiner Bank. Will nicht so recht klappen.

Weiß jemand, was ich falsch mache?
Vielen Dank

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket::SSL;

my %config = (
    bankadressen    => {
        1   => {
            name        => 'Postbank',
            addr        => 'https://hbci.postbank.de/banking/hbci.do',
            port        => 443,
            proto       => 'tcp',
        },
        2   => {
            name        => 'Sparkasse',
            addr        => 'hbci-pintan-rl.s-hbci.de/PinTanServlet',
            port        => 443,
            proto       => 'tcp',
        },
    },
    bank_verwenden  => 1,
    debug           => 1,
);

testconnect (\%config);

###############################################################################

sub testconnect {
    print "Verbindungsaufbau zu '$config{bankadressen}{$config{bank_verwenden}}{name}'\n" if $config{debug};
    my $client = IO::Socket::SSL -> new (
        PeerAddr => $config{bankadressen}{$config{bank_verwenden}}{addr},
        PeerPort => $config{bankadressen}{$config{bank_verwenden}}{port},
        Proto => $config{bankadressen}{$config{bank_verwenden}}{proto},
    ) || warn "Problem: " . IO::Socket::SSL::errstr();


    print $client "GET / HTTP/1.0\r\n\r\n";
    print <$client>;
}

Quote
Verbindungsaufbau zu 'Postbank'
Problem: IO::Socket::INET configuration failederror:00000000:lib(0):func(0):reason(0) at test_fints.pl line 31.
Can't use string ("1") as a symbol ref while "strict refs" in use at test_fints.pl line 38.

10 print "Hallo"
20 goto 10

+13 replies

velorius

2011-02-20 11:09

User since
2011-01-30
9 Artikel
BenutzerIn
[default_avatar]

Du bekommst eine Fehlermeldung, weil du Pfad und Zieladresse mischt.
Die Zieladresse ist nur die Domain (hbci.postbank.de) oder die IP. In der GET-Methode (es handelt sich hierbei um HTTP) gibst du dann den Pfad (/banking/hbci.do) an.

Als Beispiel dein Code (fehlerhaft) angepasst :)

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket::SSL;

my %config = (
        bankadressen    => {
                1       => {
                        name            => 'Postbank',
                        addr            => 'hbci.postbank.de',
                        port            => 443,
                        proto           => 'tcp',
                },
                2       => {
                        name            => 'Sparkasse',
                        addr            => 'hbci-pintan-rl.s-hbci.de/PinTanServlet',
                        port            => 443,
                        proto           => 'tcp',
                },
        },
        bank_verwenden  => 1,
        debug                   => 1,
);

testconnect (\%config);

###############################################################################

sub testconnect {
        print "Verbindungsaufbau zu '$config{bankadressen}{$config{bank_verwenden}}{name}'\n" if $config{debug};
        my $client = IO::Socket::SSL -> new (
                PeerAddr => $config{bankadressen}{$config{bank_verwenden}}{addr},
                PeerPort => $config{bankadressen}{$config{bank_verwenden}}{port},
                Proto => $config{bankadressen}{$config{bank_verwenden}}{proto},
        ) || warn "Problem: " . IO::Socket::SSL::errstr();


        print $client "GET /banking/hbci.do HTTP/1.0\r\n\r\n";
        print <$client>;
}

bianca

2011-02-20 14:22

Subtree with 12 replies: Umsätze per FinTS-GV HKKAZ abrufen

User since
2009-09-13
6977 Artikel
BenutzerIn

Klappt, danke Dir.

Frage in die Runde: Weiß jemand zufällig, wie man jetzt weiter vorgeht, um von seinem Konto die Umsätze (per FinTS-GV HKKAZ) abzurufen?

modedit Editiert von GwenDragon: Subthread
Last edited: 2011-02-21 16:30:56 +0100 (CET)
10 print "Hallo"
20 goto 10

View all threads created 2011-02-20 10:15.