html stranka pres https
Vladimír Fux
fux na infoline.cz
Středa Únor 27 20:21:38 MET 2002
Ahoj!
Me to chodi takhle, s tim, ze uz si kulovy pamatuju, jestli, a ktery
moduly jsem tam musel nasoukat. Ale mam pocit, ze si to o ne
nejak v chybovejch hlaskach reklo:
#
require LWP::UserAgent;
require HTTP::Request;
$ua = new LWP::UserAgent('Mozilla/4.0 (compatible; MSIE 5.0;
Windows 98; DigExt)','nobody na localhost');
my
$qstring="https://klient3.ebanka.cz/ebts/owa/shop.getpayments?shopname=MUJSH
OPP&password=mujpasswd
&creditaccount=11111001&creditbank=2400&&validfrom=$dnesnidatum
&showaccname=Y";
my $req = HTTP::Request->new(GET => $qstring);
my $response = $ua->request($req);
my $obsah=cs($response->content);
$vypis=~s/<.*?>//g; # a mame dnesni vypis
# a tak dal.. #
Vladimir
----- Original Message -----
From: "Honza Pazdziora" <adelton na informatics.muni.cz>
To: "Multiple recipients of list PERL" <perl na muni.cz>
Sent: Wednesday, February 27, 2002 3:37 PM
Subject: Re: html stranka pres https
> On Wed, Feb 27, 2002 at 09:36:15AM +0100, Martin Povolny wrote:
> >
> > Zkuste lwp-request https://klient2.ebanka.cz
> > lwp-request je soucast libwww-perl (alespon na CPANu a v debianu, snad i
> > v RH).
> >
> > Na debianu potrebujete jeste neco jako libnew-ssleay-perl, nebo neco
> > takoveho, jinak si lwp-request bude stezovat, ze neumi ssl.
> >
> > Pripadne hledejte 'ssl' na CPANu
>
> Tak jsem udelal
>
> use LWP::Simple;
> getprint 'https://www.ebanka.cz/';
> print join "\n", sort(keys %INC), '';
> __END__
>
> a to same pro http://www.ebanka.cz/ a udelat si diff modulu pouzitych
> pri https pristupu, a potreba jsou (cili navic pri https):
>
> Crypt/SSLeay.pm
> Crypt/SSLeay/CTX.pm
> Crypt/SSLeay/MainContext.pm
> LWP/Protocol/https.pm
> Net/SSL.pm
> URI/https.pm
>
> Cili je treba zkontrolovat, jestli jsou nainstalovany.
>
> --
> ------------------------------------------------------------------------
> Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
> ... all of these signs saying sorry but we're closed ...
> ------------------------------------------------------------------------
Další informace o konferenci Perl