loggarsi da perl al sito delle poste italiane

Stato
Discussione chiusa ad ulteriori risposte.

vincy6

Utente Silver
27 Giugno 2009
0
0
0
55
Ciao ragazzi, ho la necessita di connettermi al sito delle poste italiane tramite perl.
ci ho provato ma.... con poco successo.
Non so perche , ho sniffato le varie post e le ho riprodotte, impostato l'agent,il referer,il cookie. ma mi da login fallito.
Codice:
my $urlhome="http://posteitaliane.it/";
my $urllogin='https://www.poste.it/siteminderagent/forms/login.fcc';
my $urlsaldo='https://bancopostaonline.poste.it/bpol/cartepre/servizi/cartapostepay/cartapostepay.aspx?pnlstart=saldo';
my $urlin="https://www.poste.it/online/personale/myposte/";
my $user="**nascosto**";
my $pwd="**nascosto**";
my $card="**Nascosto**";
$ua = LWP::UserAgent->new();
$ua->cookie_jar({});
$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; InfoPath.2; OfficeLiveConnector.1.3; OfficeLivePatch.0.0)');
$ua->default_header('Accept' => 'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1',
'Accept-Language' => 'it,en;q=0.9');
$ua->default_header('Referer' => "https://www.poste.it/online/personale/loginPrivati.fcc");
sub login{
	#-----LOGIN----#
	$res=$ua->post($urllogin,{
	USER=>$user,
	PASSWORD=>$pwd,                                        
	target=>'https://www.poste.it/online/personale/myposte/',  
	smauthreason=>'0',                                             
	bottone=>'Invia',                                       
	});
	if($res->is_success){
		print"\n Login effettuato";
	}else{
		print "errore durante il login\n";
$stringa=$res->content;
print $stringa;
	}
}

mi printa errore durante il login(quindi la post non viene oproprio effettutata, e >$stringa non la printa neanche .
 
or quell'errore non me lo da piu
ma diceva hash(quelcosa di numeri)

grazie a whivel che mi ha dato la soluzione:
aggiungere questo all'header.
Codice:
push @{ $ua->requests_redirectable }, 'POST';
 
vincy6 ha detto:
or quell'errore non me lo da piu
ma diceva hash(quelcosa di numeri)

grazie a whivel che mi ha dato la soluzione:
aggiungere questo all'header.
Codice:
push @{ $ua->requests_redirectable }, 'POST';



sai almeno cosa hai fatto aggiungendo quella linea?
 
Stato
Discussione chiusa ad ulteriori risposte.