chiark / gitweb /
add --prefix option; stop appending /debian/po to old-tree; check that target file...
[bin.git] / print-calendar
1 #! /usr/bin/perl -w
2 use strict;
3 use Time::ParseDate;
4
5 my $days = shift;
6 my $unixend = parsedate("now + $days days");
7 die "Usage: $0 days calendar-file" if not defined($unixend);
8
9 while (<>)
10 {
11         chomp;
12         (my $when) = split /[^0-9\/-]/;
13         my $unixwhen = parsedate($when, UK => 1);
14         last if $unixwhen > $unixend;
15         print "$_\n";
16 }