Hallo,
ich habe schon in de.comp.lang.perl.misc das ganze gepostet, denke aber, hier sitzen auch ein paar helle Köpfe, gelle ;-)
Also: ich will bei meiner Advancebank über das schöne Portal my.advance.de (geht endlich auch mit normalen Browsern) ohne jedesmal einloggen meinen Kontostand abfragen. Perl kommt mir gerade Recht, da ich darin noch nicht so Fix bin - also auch was zum Lernen. Allerdings komme ich nur bis:
pummel@k7:~/bin > ./advance.pl Fehler beim Zugriff auf https://my.advance.de/fipo/portal/fwk/login/logon.jsp 500 Can't connect to my.advance.de:443 ()
Auch andere Urls (Spaßkasse) habe ich getestet, es geht nicht mit https. Einfache HTTP-Verbindungen klappen. Den ganzen SSL-Zirkus von perl habe ich solange via CPAN nachinstalliert, bis keine Fehlermeldungen über fehlende Module mehr kamen. Sollte also komplett sein. Ich poste hier mal die paar Zeilen, ist ja nich nicht zuviel. Ich hoffe, es kann mir jemand bei der Fehlersuche helfen.
----------------------------------------- #!/usr/bin/perl
use strict; use warnings; use LWP::UserAgent; use HTML::TableExtract;
# meine PIN -> streng geheim !! my @PIN = (x,x,x,x,x,x); my $PERSONENZAHL = xxxxxxxxx; my $LOGIN_URL = "https://my.advance.de/fipo/portal/fwk/login/logon.jsp"; my $KONTO_URL = "https://my.advance.de/fipo/portal/navigation.jsp";
# 1. Login aufrufen my $ua = LWP::UserAgent->new( agent=>"(Mozilla/5.0 (compatible; MSIE 5.5 X11; U; Linux 2.6.16 i586))", ); # Cookies annehmen?? $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
my $request = HTTP::Request->new('GET', $LOGIN_URL); my $response = $ua->request($request); if($response->is_error()){ print "Fehler beim Zugriff auf $LOGIN_URL\n"; print $response->code(),"\n", $response->message(),"\n"; exit 0; }
------------------------------------------------
Mit freundlichen Grüßen
Jens Puruckherr