Portál AbcLinuxu, 19. dubna 2024 16:26
Zdravim
Tak jsme to vyresil, misto follow_link jsem pouzil get. Takze skripty kterymi resim pozadovanou funkcnost jsou zde. Jen jeste musim doresit datumy v jednom z dotazu (od-do), ale to si stejne zajemce udela po svym, tohle je jen pro predstavu.
Oproti realite jsem zmenil prihlasovaci udaje, cislo uctu a "contractid". Staci si zkopirovat odkaz primo ze stranek servis24, tam to je uvedene.
#!/usr/bin/perl
use WWW::Mechanize;
my $m = new WWW::Mechanize(
agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)',
autocheck => 1,
);
$m->get('https://www.servis24.cz/ebanking-s24/dispatcher');
$m->submit_form(
fields => {
getUidXX23F => 'uziv-cislo',
getPWDXX23F => 'heslo',
});
#zmenit datumy a cislo uctu + contractid
$m->get('https://www.servis24.cz/ebanking-s24/dispatcher?aid=901950&cffvhidformid=
deb_th_get&dtstart=20050626&dtend=20050726&accountnumber=0123456789&bankcode=800&
accounttype=S&contractid=12345678&accountcurrency=CZK&trnhistorytype=1');
print $m->content, "\n";
#odhlaseni
$m->get('https://www.servis24.cz/ebanking-s24/dispatcher?aid=910136');
Vysledkem tohoto skriptu je CVS soubor s transakcni historii OD - DO dle zadanych datumu. Odhlaseni zda se funguje v poradku, staci si dat print az uplne nakonec, vyleze stranka "byly jste odhlaseni".
Tento skript vezme data z tempfile a vytahne z toho prichozi platby 300Kc a ukaze datum, var. symbol a jmeno majitele odchoziho uctu.
#!/bin/bash
grep 300.00 tempfile > tf2
exec < tf2
while read line
do
echo $line | cut -d "\"" -f 3- | cut -d "," -f 2,3,9
done
rm tf2
Ty dva cuty tam jsou z pekne trapnyho duvodu. V CVS souboru jsou data oddeleny carkou a data vypadaji takhle:
"úhrada z jiné banky",2005/07/18,8,300.00,"0- 123456790/0300",2005/07/18,8,"","jose armando",0558,,""
"úhrada z ČS, a.s.",2005/07/18,17,300.00,"0- 987654325/0800",2005/07/18,17,"","pepa z depa",,,""
Vidite tu pi..ip carku za CS?
Zdenek
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.