Hi all,
just my first technical post on this list.
To automate my work i have to get a html page by my company site after a
login in an secure area.
After a long googling job, I decided to use WWW:Selenium to do this.
It seems to be bugged and i would ask to you if there is e clear method
to do this.
Many thanks in advance.
There is my code:
---- CODE ----
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;
#system ('/usr/bin/selenium-server &');
my $line = '<td colspan="1" class="tdInt3" align="center">';
my $users_file = "config_user.cfg" ;
open ( USERS , "$users_file" ) or die "Unable to open file:
$users_file\n $!\n";
my $string = "";
## Perl trim function to remove whitespace from the start and end of the
string
sub trim($) {
$string = shift;
$string =~ s/.*\>(.*?)\<.*/$1/ ;
return $string;
}
my $sel = Test::WWW::Selenium->new( host => "localhost",
port => 4444,
browser => "*firefox",
browser_url =>
"http://webmail.sorint.it/"; );
$sel->open_ok("http://xxxxxxxxx";);
$sel->title_is("Sun Java System Access Manager (Login)");
$sel->type_ok("IDToken1", "xxxxxxxxx");
$sel->type_ok("IDToken2", "xxxxxxxxx");
$sel->click_ok("Login.Submit");
$sel->wait_for_page_to_load_ok("30000");
$sel->title_is("");
$sel->open_ok('https://xxxxxxxxx/http://its-cslpsr-01.sorint.it/nextstage/jsp/index.jsp');
my $i = "";
while ($i = <USERS>) {
my $field1 = "";
my $field2 = "";
my $field3 = "";
my $line = "$i";
($field1,$field2,$field3) = split ';', $line;
print "$field1\t"."$field2\t"."$field3\n";
my $compurl0 =
'https://xxxxxxxxx/http://its-cslpsr-01.xxxxxx.it/nextstage/contratti/resoconto/RiepilogoOre.jsp?matricola='."$field2".'&mese_m=mar&anno_a=2010&tipo=';
my $compurl1 =
'https://xxxxxxxxx/http://its-cslpsr-01.xxxxxx.it/nextstage/contratti/resoconto/RiepilogoOreCommercio.jsp?matricola='."$field2".'&mese_m=mar&anno_a=2010&tipo=';
if ( $field1 == 0 ) {
print "Il campo di controllo è 0 e quindi uso la stringa:\n
$compurl0";
$sel->open_ok("$compurl0");
$sel->wait_for_page_to_load_ok("30000");
sleep 30;
} else {
print "Il campo di controllo è 1 e quindi uso la stringai:\n
$compurl1";
$sel->open_ok("$compurl1");
$sel->wait_for_page_to_load_ok("30000");
sleep 30;
}
my $outfile = "out-$field2.htm";
my $output_page = $sel->get_html_source;
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);
open ( FILE , "$outfile" ) or die "Cannot open file: $outfile - $! \n";
open ( LINES , ">data-$field2.txt" ) or die "Cannot open file:
data-$field2.txt - $! \n";
open ( PIPPO , ">original-$field2.txt" ) or die "Cannot open file
original-$field2.txt: $! \n";
my $counter = 0;
my $row = "";
while ($row = <FILE>) {
$counter++;
if ($row =~ /$line/) {
$a = trim($row);
open ( LINES , ">>data-$field2.txt" ) or die "Cannot
open file data-$field2.txt: $! \n";
open ( PIPPO , ">>original-$field2.txt" ) or die
"Cannot open file original-$field2.txt: $! \n";
print PIPPO "$row";
print LINES "$a";
close LINES;
close PIPPO;
}
}
close FILE;
close LINES;
}
close USERS;
exit;
--
go ahead... be a heretic!
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
