#!/usr/bin/perl

use POSIX;
use Time::Local;

print "Timezone: " . $ENV{TZ} . "\n\n";
&dateTimeToTimestamp("2008-03-30T00:59:59");
&dateTimeToTimestamp("2008-03-30T01:00:00");
&dateTimeToTimestamp("2008-03-30T01:00:01");
&dateTimeToTimestamp("2008-03-30T02:00:00");
&dateTimeToTimestamp("2008-10-26T00:59:59");
&dateTimeToTimestamp("2008-10-26T01:00:00");
&dateTimeToTimestamp("2008-10-26T01:00:01");
&dateTimeToTimestamp("2008-10-26T01:00:02");
&dateTimeToTimestamp("2008-10-26T01:30:00");
&dateTimeToTimestamp("2008-10-26T01:30:01");
&dateTimeToTimestamp("2008-10-26T01:30:01");
&dateTimeToTimestamp("2008-10-26T01:45:00");
&dateTimeToTimestamp("2008-10-26T01:50:00");
&dateTimeToTimestamp("2008-10-26T01:55:00");
&dateTimeToTimestamp("2008-10-26T01:55:59");
&dateTimeToTimestamp("2008-10-26T01:56:00");
&dateTimeToTimestamp("2008-10-26T01:57:00");
&dateTimeToTimestamp("2008-10-26T01:58:00");
&dateTimeToTimestamp("2008-10-26T01:59:58");
&dateTimeToTimestamp("2008-10-26T01:59:59");
&dateTimeToTimestamp("2008-10-26T02:00:00");
&dateTimeToTimestamp("2008-10-26T02:00:01");
&dateTimeToTimestamp("2008-10-26T02:59:59");
&dateTimeToTimestamp("2008-10-26T03:00:00");
&dateTimeToTimestamp("2008-10-26T03:00:01");

sub dateTimeToTimestamp {
    print $_[0];
    print "|";
    $_[0] =~ /(\d{4})-(\d{2})-(\d{2})([ |T])(\d{2}):(\d{2}):(\d{2})/;
    my($year, $mon, $day, $GMT, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6, $7);

    use DateTime;
    my $dt = eval {
        DateTime->new(
            time_zone => 'UTC',
            year => $year,
            month => $mon,
            day => $day,
            hour => $hour,
            minute => $min,
            second => $sec, 
        );
    };
    if($@){
        print $/,$@,$/;
        return;
    }

    print $dt->strftime( "%Y-%m-%d %Z %H:%M:%S" );

    $dt = eval {
        DateTime->new(
            time_zone => 'Europe/Dublin',
            year => $year,
            month => $mon,
            day => $day,
            hour => $hour,
            minute => $min,
            second => $sec, 
        );
    };
    if($@){
        print $/,$@,$/;
        return;
    }
    print "|";
    print $dt->strftime( "%Y-%m-%d %Z %H:%M:%S" );
    print "\n";

}
__END__