#!/usr/bin/perl -s

# getdate - convert a date string into a Unix time integer, or test a daterange
# Steve Kinzler, kinzler@cs.indiana.edu, Jan 00/Aug 06/Jun 08
# http://www.cs.indiana.edu/~kinzler/home.html#unix

$usage = <<EOF;
usage: $0 [ date | unix_time ]
       $0 -t start_date [ end_date [ test_date ] ]
The default end_date is infinity.  The default test_date is now.
EOF
die $usage if $h || $t && ! @ARGV;

use Time::ParseDate;

print(@ARGV ? &parsedatetime(join(' ', @ARGV)) : time, "\n"), exit unless $t;

$start = &parsedatetime($ARGV[0]);
$end   = ($ARGV[1] eq '') ? ''   : &parsedatetime($ARGV[1]);
$test  = ($ARGV[2] eq '') ? time : &parsedatetime($ARGV[2]);

exit 0 if $test >= $start && ($end eq '' || $test <= $end);
exit 1;

sub parsedatetime {
	($_[0] =~ /^\d+$/) ? $_[0] : parsedate($_[0]);
}

# newer GNU date(1)s:	date +%s -d "$1"