in reply to Re^2: Checkboxes with the same name
in thread Checkboxes with the same name

I'm confused as to why you're talking about HTTP::Request::Form again, since we established there was a bug in it.

I ran a few tests:

use URI;

my $uri = URI->new("http://www.domain.com/");

$uri->query_form(
   editions => [qw( D A H )],
);

print($uri->as_string(), "\n");
# http://www.domain.com/?editions=D&editions=A&editions=H

[download]

so far so good

use LWP;
use HTTP::Request::Common;

$request = POST 'http://www.domain.com/', [
   editions => [qw( D A H )],
];

print($request->as_string(), "\n");
# POST http://www.domain.com/
# Content-Length: 54
# Content-Type: application/x-www-form-urlencoded
#
# editions=D&editions=A&editions=H

[download]

Working great!

>perl -MURI -le "print $URI::VERSION"
1.19

>perl -MLWP -le "print $LWP::VERSION"
5.64

[download]

I'm not sure what you're trying to do. WWW::Mechanize might be of interest to you.

Replies are listed 'Best First'.
Re^4: Checkboxes with the same name
by seaver (Pilgrim) on Sep 27, 2004 at 18:14 UTC
    OK, here's the problem

    Below I have two '$request->as_string()' each identical and yet from different sources:

    my $f = HTTP::Request::Form->new($forms[0], $wosURL);
my $boo = $f->press("General Search");
print $boo->as_string;

    [download]
    outputs: 
    POST http://wos4.isiknowledge.com/CIW.cgi
Content-Length: 227
Content-Type: application/x-www-form-urlencoded

Func=Search&Form=HomePage&SID=QVhJgArh%40WcAACmJAys&topic=Enter+a+topi
+c&editions=H&editions=H&editions=H&Period=Year+Range&week_selection=L
+atestWeek&years=2004&start_year=1955&end_year=2004&General+Search.x=2
+&General+Search.y=2

    [download]
    and this one 
    my $request = POST 'http://wos4.isiknowledge.com/CIW.cgi', 
            [Func => 'Search',
             Form => 'HomePage',
             SID => $sid,
             topic => 'Enter a topic',
             editions => [qw( D A H )],
             Period => 'Year Range',
             week_selection => 'LatestWeek',
             years => 2004,
             start_year => 1955,
             end_year => 2004,
             'General Search.x' => 2,
             'General Search.y' => 2];

print $request->as_string();

    [download]
    outputs: 
    POST http://wos4.isiknowledge.com/CIW.cgi
Content-Length: 227
Content-Type: application/x-www-form-urlencoded

Func=Search&Form=HomePage&SID=QVhJfQrh%40WcAABfkZ3c&topic=Enter+a+topi
+c&editions=D&editions=A&editions=H&Period=Year+Range&week_selection=L
+atestWeek&years=2004&start_year=1955&end_year=2004&General+Search.x=2
+&General+Search.y=2

    [download]
    Because of the bug in HTTP::Request::Form, when I send the first request, the resulting web-page lists the three same editions, BUT if I send using the request I made on my own, the resulting web-page doesnt list ANY edition.

    This tells me there's something different between the request object generated by HTTP::Request::Form, and my own request object, and I'm not sure what it is??

    Thanks
    Sam

    ps I'll check out Mechanize, thanks

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom