[Vienna-pm] $form-click() uund nix ??
Carl A. Schreiber
gooly at gmx.at
Thu Sep 28 06:01:06 PDT 2006
Also,
tcpdump sagt mir, dass der POST-Request offenbar nicht abgesetzt wird -
wahrscheinlich wegen des fehlenden Namens des Submit-Feldes ??
Das zB:
$form->click;
geht nicht!!
Aber auch das:
foreach my $i ($form->inputs) {
if ($i->name =~ /^47$|^62511$|^59439$/) { # rel.Felder
printf "\t%10s %10s %s",$i->name,$i->type,$i->value;
$i->value( (($i->value) ? 0 : 1) ); # Ändere Feldwert
printf " => \t%10s %10s %s\n",$i->name,$i->type,$i->value;
}
if ($i->type =~/submit/i) {# DAS submit Feld gefunden !!
print "\n\nrename and click.. \n";
my $hmm = $i->name( 'OK' );
}
}
sleep 5;
$from->click( 'OK' );
sleep 5;
# neu laden = 2. GET-Request ist OK und tcpdump-sichtbar!
geht nicht.
Konkret gibt es 10 Sekunden (2x Sleep 5) _nix_im log an den 80er Port
des Telefones, während bei Konquerer sehr wohl der POST-Request dorthin
schickt uund er abgesetzt wird!!
Die beiden GET-Requests zum Laden der Seite (Form) erscheinen sehr wohl.
Das bedeutet der POST-Request wird vom Perl-Programm nicht erzeugt (im
Gegensatz zum GET)?
Jemand mit einer Idee warum?
Danke,
Calli
Das From sieht in etwa so aus (ich sehe kein Java/JavaScript beim
Submit)
<head>
<title>Sipura SPA Configuration</title>
</head>
<body>
<center>
<table border="0" bgcolor="white" cellpadding="0" cellspacing="0"
width="710">
<tr> <td align="right" valign="middle">
<a href="http://www.sipura.com" target="sipura">
<img width="100%" src="/spabanner.jpg" border="0" alt="Sipura Technology
Inc">
<tr><td>
[ ... ]
<tr><td>
<form action="bsipura.spa" method="POST">
<div class="tab-page" id="Info"><BR><table class="stat" cellpadding="1"
cellspacing="0" width="100%">
<COLGROUP>
[ .. ]
<tr><td>
<table width="100%">
<tr><td align=right>
<input type="reset" value="Undo All Changes">
<td align=left> <input type="submit" value="Submit All Changes">
</table></form>
More information about the Vienna-pm
mailing list