#!/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"; 
		}
	}
}


##</code><code>##

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