SHTTP Search Problem 1

[dannite]

I need to log in to a secure site and perform some automated searching. I have the secure login working fine, but the search is returning so results with search strings that yield results on a browser.

I assume that something I am doing is making it impossible for the Javascript that runs the page to access its database.

Any help would be awesome.



#!c:\\perl\\bin
use strict;
use warnings;
use

http://WWW::Mechanize;

use HTTP::Cookies;

#use LWP:ebug qw(+);

my $outfile = "out.htm";
my $url = "

https://y.byu.edu/ry/ae/prod/person/cgi/personLookup.cgi";

my $username = "bdaniel2";
my $password = "dannite3";


my $mech =

http://WWW::Mechanize->new();

$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_name('Login');
$mech->field(USER => $username);
$mech->field(PASSWORD => $password);
$mech->click();



$mech->form_name('personxref');
$mech->field(inpSearchPattern => "Daniel");
$mech->field(inpFirstName => "Bruce");
$mech->click();




my $output_page = $mech->content();
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);

 

[KevinADC]

http://WWW::Mechanize

does not support javascript (see the modules documentation), so if there is javascript in the page you are accessing it will not work. Maybe someone knows of a work around. You can try IE::Mechanize ( might not be the correct name ) which I am pretty sure will support javascript.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[dannite]

I'll try that out.

Does it make any difference the form that I deal with to search is html,or is the mere presence of javascript throwing it off?

 

[KevinADC]

If what you want to do with

http://WWW::Mechanize

requires that javascript be run, it will not work. If the form on the website you access uses javascript in anyway it will most likely not work. The other module is called Win32::IE::Mechanize

http://search.cpan.org/~abeltje/Win32-IE-Mechanize-0.009/lib/Win32/IE/Mechanize.pm

probably has other Win32 dependencies, you will have to check into that.

------------------------------------------
- Kevin, perl coder unexceptional!