|
I figured it out....
Here is the code that I got to work... in case someone needs it..
#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
my $username = 'fakename';
my $password = 'fakepassword';
my $LoginUrl = 'http://www.betterinvesting.org/Members';
my $ticker = 'ibm';
my $ExpUrl = "http://tools.betterinvesting.org/CR/Expanded.aspx?ticker=$ticker";
my $mech = WWW::Mechanize->new(autocheck => 1);
$mech->get( $LoginUrl );
$mech->form_name("aspnetForm");
$mech->set_visible( $username, $password ) ;
$mech->click('ctl00$ContentPlaceHolder1$LoginButton');
|
