Hi,Ich hab ein Problem mit dem Modul HTTP::Form zusammen mit dem LWP::UserAgent. Ich öffne eine URL und parse da ein Formular, ganz wie in der perldoc beschrieben. Dummerweise will der das Dormular dann nicht abschicken *grml*. Es kommt nur die Fehlermeldung "Bad file descriptor"...
Hier mein code:
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'], 'http://XXX.XXX.XXX.XXX:XXXX/');
$ua->agent("");$response = $ua->get('http://www.bla.foo');
use HTML::Form;
$form = HTML::Form->parse($response);
foreach ($form->inputs) {
$_->readonly(0); ## wegen einiger hidden fields
}
$form->value('question1', 'ja');
$form->value('question2', 'ja');
$form->value('question3', 'ja');
$form->value('vorname', '...');
$form->value('nachname', '...');
$form->value('strasse', '...');
...
print $form->dump;
$response = $ua->request($form->click);
print $!; # > 'Bad file descriptor'
print $response->content; # > ''
Datum: 23.08.2005-14:37
