Thread Verbindungsaufbau mit IO::Socket::SSL (13 answers)
Opened by bianca at 2011-02-20 10:15

velorius
 2011-02-20 11:09
#145786 #145786
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#!/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>;
}

View full thread Verbindungsaufbau mit IO::Socket::SSL