never mind....
my bad... i figured it out.. misread one of the docs...
in case anyone's interested...
the following segment of code kind of shows how to access various headers...
you can get a feel as to what's possible by looking at the
UserAgent/Response/Request cpan/perl docs
-------------------------------------------------------------
# go ahead and get the selection page within the frame..
# use www::machanize
my $agent = WWW::Mechanize->new();
my $res1 = $agent->get($url);
my $_form = $agent->form_number(1);
if (!$_form) {
warn "Nothing came back";
exit;
}
$agent->field($tmp->{'name'}, $tmp->{'val'});
$agent->field("Term", $semester->{'val'});
$res1 = $agent->submit();
print "-- ".$agent->content(). "\n";
#print "agent->agent = ". $res1->agent(). "\n";
print "agent->code = ". $res1->code(). "\n";
print "agent->msg = ". $res1->message(). "\n";
print "agent->base = ". $res1->base. "\n";
print "agent->ref = ". $res1->referer(). "\n";
print "agent->fieldname = ". $res1->header_field_names. "\n";
print "uri = ". $agent->uri(). "\n";
print "ref = ". $agent->response()->request()->referer(). "\n";
print "cont len = ". $agent->response()->request()->content_length(). "\n";
print "cont = ". $agent->response()->request()->content(). "\n";
print "req = ". $agent->response()->request()->as_string(). "\n";
print "-------------111111111----------\n";
foreach (keys %{$res1->headers()})
{
print "$_ = ", $res1->headers()->{$_}, "\n";
}
die;
------------------------------------------------------------------
enjoy....
-bruce
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
bruce
Sent: Friday, June 25, 2004 12:26 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: url/querystring question...
hi...
i'm implementing an app using www::mechanize. i'm curious about how i can
actually see/access the url/querystring that's being generated by the
"submit" of the form...
i do a:
$res = $agent->submit();
and i'm curious to know what's the actual URL/Querystring that's actually
created/used...
i'm assuming that the information is somewhere in the headers...???
thanks
-bruce
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
