Hi,
I needed something similar the day before yesterday:
At work we have a system that reads our badge whenever we enter or leave the building. A J2EE application has been set up to let you look for the hours you worked. Unfortunately what you have to do is to log in in the J2EE site, search for your own name, click on your name found and then go to the hours reported. You'll see a calender view with only the total hours inside the building for the day. When you click on such a total it shows you the details.
I wanted a two month maximum overview of total hours and details and I didn't want to click myself to death, so:
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("http://some.site.on.our.intranet/jsp/indexPage.do");
$mech->submit_form(
fields => {
userName => 'myUserid',
password => 'myPasswordYouDontNeedToKnow',
}
);
$mech->follow_link( text_regex => qr/Search for Employee/ );
$mech->submit_form(
fields => {
nom => 'myFirstName',
prenom => 'myLastName',
}
);
$mech->follow_link( text_regex => qr/myFullName/ );
$mech->follow_link( text_regex => qr/Overview Badge Hours/ );
$mech->follow_link( n => 17 ); # link 17 is the previous month
dump_hours();
$mech->follow_link( n => 18 ); # link 18 is the next month
dump_hours();
$mech->follow_link( text_regex => qr/Logoff/ );
# the end
sub dump_hours {
my @links = $mech->find_all_links( text_regex => qr/\d+:\d+/ );
foreach my $link (@links) {
my $total = $link->text(); # total hours worked
$mech->get($link);
my $text = $mech->content( format => 'text');
if ( $text =~ /(... \d\d\/\d\d\/\d\d\d\d) INOUT(.+)$/ ) {
my $date = $1;
my $hours = $2;
print $date . " (" . $total . ") ";
# $hours is a long string of hours, 5 positions wide
while ($hours) {
my $slice = substr($hours,0,5)."-".substr($hours,5,5);
$hours .= "?"x5 if (length($hours) % 10 == 5);
$hours = substr($hours,10);
print $slice . " " ;
}
print "\n";
}
}
}
Output:
bash-3.00$ ./pgase.pl
Mon 01/08/2005 (09:17) 07:05-11:28 11:30-16:52
Tue 02/08/2005 (09:31) 07:05-12:25 12:33-16:27 16:28-16:55 16:55-17:06
+
Wed 03/08/2005 (09:27) 07:03-09:35 09:36-09:43 09:44-11:22 11:25-17:00
+
Thu 04/08/2005 (11:20) 07:04-11:58 12:04-14:54 14:55-15:24 15:25-16:19
+ 16:19-17:04 17:05-17:38 17:38-18:54
Fri 05/08/2005 (09:58) 06:50-07:11 07:12-09:12 09:15-10:16 10:16-17:18
+
Mon 08/08/2005 (09:19) 07:03-16:52
Tue 09/08/2005 (08:18) 07:03-11:14 11:16-15:51
Wed 10/08/2005 (08:15) 07:04-11:38 11:40-15:49
Thu 11/08/2005 (09:05) 07:04-12:58 13:52-17:03
Fri 12/08/2005 (09:10) 07:06-11:36 11:38-16:46
Tue 16/08/2005 (09:07) 07:04-11:03 11:06-16:42
Wed 17/08/2005 (09:23) 07:04-11:00 11:05-16:57
Thu 18/08/2005 (09:29) 07:04-17:03
Fri 19/08/2005 (09:17) 07:04-11:37 11:40-16:51
Mon 22/08/2005 (09:15) 07:05-08:05 08:06-09:04 09:05-11:20 11:24-15:15
+ 15:16-15:31 15:32-16:50
Tue 23/08/2005 (09:32) 07:03-12:40 12:49-17:06
Wed 24/08/2005 (09:19) 07:05-11:23 11:27-16:54
Thu 25/08/2005 (09:23) 07:04-11:10 11:13-11:50 11:51-12:04 12:04-16:58
+
Fri 26/08/2005 (09:27) 07:03-11:39 11:47-14:02 14:03-14:23 14:24-17:01
+
Mon 29/08/2005 (09:27) 07:04-11:35 11:40-17:01
Tue 30/08/2005 (08:17) 07:04-11:04 11:09-15:52
Wed 31/08/2005 (08:35) 07:04-07:10 07:10-11:31 12:45-16:54
Thu 01/09/2005 (10:13) 07:06-17:50
Fri 02/09/2005 (09:28) 07:05-08:36 09:04-17:03
Thu 08/09/2005 (00:37) 16:31-16:35 16:36-17:09
Mon 12/09/2005 (09:16) 07:06-12:40 12:45-13:10 13:11-16:53
Tue 13/09/2005 (09:10) 07:04-11:41 11:45-11:46 11:47-16:45
Wed 14/09/2005 (09:35) 07:04-17:10
Mon 19/09/2005 (08:44) 07:36-12:52 12:56-15:14 15:14-15:21 15:22-16:50
+
Tue 20/09/2005 (07:17) 07:34-09:52 09:52-11:16 11:17-11:37 11:38-11:44
+ 13:52-17:01
Ok, it's far from perfect (perfect would be to connect directly to the database and to select the hours with an sql statement - but unfortunately we don't have direct access), if the layout changes my little 'format => text and regexp' trick my program will stop to work.
--
if ( 1 ) { $postman->ring() for (1..2); }
|