problem with HTTP::forms

Hi,

I am trying to fill a form from a web page and submit it.
I would really appreciate if someone could help me with this issue.

This is the code I used to get to the homepage containing the form:

################################################
!/usr/bin/perl -w
use WWW::Mechanize;
use HTTP::Cookies;
my $mech = WWW::Mechanize->new(agent => "WWW");
$mech->cookie_jar(HTTP::Cookies->new);
my $url = "http://www.immobilienscout24.de/";
$mech->get($url);

$mech->follow_link(text=>"Wohnung kaufen");
$mech->follow_link(text=>"Berlin");
$mech->click_button(
name => "event:doSubmit",
value => "Weiter"
);

$form = $mech->current_form();
$form->dump();
$mech->select("quarterControl",{n => 3});
#########################################

When I try to run I get the following error:

#####################################
GET http://www.immobilienscout24.de/find.national.criteriasInter val/criteriasDialog.go;jsessionid=194BBA6C50A5764EF47C0BDE9E 28D6F7.worker2
[simbaForm]
iac=1 (hidden readonly)
style=is24 (hidden readonly)
is24EC=IS24 (hidden readonly)
quarterControl= (option) [<UNDEF>/off|*/Keine Einschr?nkung]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Adlershof
(Treptow)/Adlershof (Treptow) (27)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Altglienicke
(Treptow)/Altglienicke (Treptow) (10)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Alt-Hohensch?nhausen
(Hohensch?nhausen)/Alt-Hohensch?nhausen (Hohensch?nhausen) (7)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Baumschulenweg (Treptow)/Baumschulenweg (Treptow) (42)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Biesdorf
(Marzahn)/Biesdorf (Marzahn) (46)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Blankenburg
(Wei?ensee)/Blankenburg (Wei?ensee) (4)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Blankenfelde
(Pankow)/Blankenfelde (Pankow) (2)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Bohnsdorf
(Treptow)/Bohnsdorf (Treptow) (4)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Britz
(Neuk?lln)/Britz (Neuk?lln) (52)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Buch
(Pankow)/Buch (Pankow) (1)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Buckow
(Neuk?lln)/Buckow (Neuk?lln) (113)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Charlottenburg (Charlottenburg)/Charlottenburg
(Charlottenburg) (677)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Dahlem
(Zehlendorf)/Dahlem (Zehlendorf) (74)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Falkenberg
(Hohensch?nhausen)/Falkenberg (Hohensch?nhausen) (2)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Franz?sisch
Buchholz (Pankow)/Franz?sisch Buchholz (Pankow) (30)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Friedenau
(Sch?neberg)/Friedenau (Sch?neberg) (182)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Friedrichsfelde (Lichtenberg)/Friedrichsfelde
(Lichtenberg) (54)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Friedrichshagen (K?penick)/Friedrichshagen (K?penick)
(47)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Friedrichshain (Friedrichshain)/Friedrichshain
(Friedrichshain) (363)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Frohnau
(Reinickendorf)/Frohnau (Reinickendorf) (43)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Gatow
(Spandau)/Gatow (Spandau) (1)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Gr?nau
(K?penick)/Gr?nau (K?penick) (15)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Grunewald
(Wilmersdorf)/Grunewald (Wilmersdorf) (165)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Haselhorst
(Spandau)/Haselhorst (Spandau) (20)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Heiligensee
(Reinickendorf)/Heiligensee (Reinickendorf) (28)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Heinersdorf
(Wei?ensee)/Heinersdorf (Wei?ensee) (4)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Hellersdorf
(Hellersdorf)/Hellersdorf (Hellersdorf) (24)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Hermsdorf
(Reinickendorf)/Hermsdorf (Reinickendorf) (32)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Johannisthal
(Treptow)/Johannisthal (Treptow) (20)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Karlshorst
(Lichtenberg)/Karlshorst (Lichtenberg) (98)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Karow
(Wei?ensee)/Karow (Wei?ensee) (2)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Kaulsdorf
(Hellersdorf)/Kaulsdorf (Hellersdorf) (20)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Kladow
(Spandau)/Kladow (Spandau) (10)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Konradsh?he
(Reinickendorf)/Konradsh?he (Reinickendorf) (4)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|K?penick
(K?penick)/K?penick (K?penick) (116)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Kreuzberg
(Kreuzberg)/Kreuzberg (Kreuzberg) (207)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Lankwitz
(Steglitz)/Lankwitz (Steglitz) (122)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Lichtenberg
(Lichtenberg)/Lichtenberg (Lichtenberg) (61)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Lichtenrade
(Tempelhof)/Lichtenrade (Tempelhof) (70)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Lichterfelde
(Steglitz)/Lichterfelde (Steglitz) (313)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|L?bars
(Reinickendorf)/L?bars (Reinickendorf) (2)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Mahlsdorf
(Hellersdorf)/Mahlsdorf (Hellersdorf) (21)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Malchow
(Hohensch?nhausen)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Mariendorf
(Tempelhof)/Mariendorf (Tempelhof) (116)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Marienfelde
(Tempelhof)/Marienfelde (Tempelhof) (47)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Marzahn
(Marzahn)/Marzahn (Marzahn) (36)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Mitte
(Mitte)/Mitte (Mitte) (582)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|M?ggelheim
(K?penick)/M?ggelheim (K?penick) (11)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Neu-Hohensch?nhausen
(Hohensch?nhausen)/Neu-Hohensch?nhausen (Hohensch?nhausen) (3)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Neuk?lln
(Neuk?lln)/Neuk?lln (Neuk?lln) (178)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Niedersch?neweide (Treptow)/Niedersch?neweide (Treptow)
(17)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Niedersch?nhausen (Pankow)/Niedersch?nhausen (Pankow)
(104)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Nikolassee
(Zehlendorf)/Nikolassee (Zehlendorf) (95)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Obersch?neweide (K?penick)/Obersch?neweide (K?penick)
(24)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Pankow
(Pankow)/Pankow (Pankow) (91)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Pl?nterwald
(Treptow)/Pl?nterwald (Treptow) (21)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Prenzlauer
Berg (Prenzlauer Berg)/Prenzlauer Berg (Prenzlauer Berg) (615)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Rahnsdorf
(K?penick)/Rahnsdorf (K?penick) (11)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Reinickendorf (Reinickendorf)/Reinickendorf
(Reinickendorf) (206)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Rosenthal
(Pankow)/Rosenthal (Pankow) (48)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Rudow
(Neuk?lln)/Rudow (Neuk?lln) (54)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Rummelsburg
(Lichtenberg)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Schmargendorf (Wilmersdorf)/Schmargendorf (Wilmersdorf)
(96)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Schm?ckwitz
(K?penick)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Sch?neberg
(Sch?neberg)/Sch?neberg (Sch?neberg) (344)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Siemensstadt
(Spandau)/Siemensstadt (Spandau) (24)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Spandau
(Spandau)/Spandau (Spandau) (377)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Staaken
(Spandau)/Staaken (Spandau) (32)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Steglitz
(Steglitz)/Steglitz (Steglitz) (350)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Tegel
(Reinickendorf)/Tegel (Reinickendorf) (56)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Tempelhof
(Tempelhof)/Tempelhof (Tempelhof) (145)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Tiergarten
(Tiergarten)/Tiergarten (Tiergarten) (248)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Treptow
(Treptow)/Treptow (Treptow) (44)]
quarterControl=<UNDEF> (option)
[*<UNDEF>/off|Waidmannslust (Reinickendorf)/Waidmannslust
(Reinickendorf) (11)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wannsee
(Zehlendorf)/Wannsee (Zehlendorf) (39)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wartenberg
(Hohensch?nhausen)/Wartenberg (Hohensch?nhausen) (16)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wedding
(Wedding)/Wedding (Wedding) (182)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wei?ensee
(Wei?ensee)/Wei?ensee (Wei?ensee) (106)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wilmersdorf
(Wilmersdorf)/Wilmersdorf (Wilmersdorf) (519)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Wittenau
(Reinickendorf)/Wittenau (Reinickendorf) (71)]
quarterControl=<UNDEF> (option) [*<UNDEF>/off|Zehlendorf
(Zehlendorf)/Zehlendorf (Zehlendorf) (292)]
criteriasGroup.nrRoomsControl.min= (text)
criteriasGroup.nrRoomsControl.max= (text)
criteriasGroup.netAreaControl.min= (text)
criteriasGroup.netAreaControl.max= (text)
criteriasGroup.priceControl.min= (text)
criteriasGroup.priceControl.max= (text)
criteriasGroup.isRentedControl=<UNDEF> (checkbox) [*<UNDEF>/off|true/Ja]
event:doSubmit=Ergebnisse anzeigen (submit)

>Illegal value 'Altglienicke (Treptow)' for field 'quarterControl' at
/usr/lib/perl5/site_perl/5.8.8/WWW/Mechanize.pm line 1232


Does anybody know what I am doing wrong ?

Marco
marco.perl.list [ Mo, 02 April 2007 23:43 ] [ ID #1676747 ]
Perl » perl.libwww » problem with HTTP::forms

Vorheriges Thema: post request with content length 0
Nächstes Thema: /Perl and LWP/ now an online book