[svn-upgrade] Tagging libhtml-calendarmonth-perl (1.25)

[deb_pkgs/libhtml-calendarmonth-perl.git] / 1.25 / lib / HTML / CalendarMonth / DateTool / Cal.pm

diff --git a/1.25/lib/HTML/CalendarMonth/DateTool/Cal.pm b/1.25/lib/HTML/CalendarMonth/DateTool/Cal.pm
new file mode 100644 (file)
index 0000000..2d63e00
--- /dev/null
+++ b/1.25/lib/HTML/CalendarMonth/DateTool/Cal.pm
@@ -0,0 +1,37 @@
+package HTML::CalendarMonth::DateTool::Cal;
+BEGIN {
+  $HTML::CalendarMonth::DateTool::Cal::VERSION = '1.25';
+}
+
+# Interface to unix 'cal' command
+
+use strict;
+use warnings;
+use Carp;
+
+use base qw( HTML::CalendarMonth::DateTool );
+
+sub dow1st_and_lastday {
+  my($self, $month, $year) = @_;
+  $month ||= $self->month;
+  $year  ||= $self->year;
+  my $cmd = $self->_cal_cmd or croak "cal command not found\n";
+
+  my @cal = grep(!/^\s*$/,`$cmd $month $year`);
+  chomp @cal;
+  my @days     = grep(/\d+/,split(/\s+/,$cal[2]));
+  my $dow1st   = 6 - $#days;
+  my($lastday) = $cal[$#cal] =~ /(\d+)\s*$/;
+  # With dow1st and lastday, one builds a calendar sequentially.
+  # Historically, in particular Sep 1752, days have been skipped. Here's
+  # the chance to catch that.
+  $self->_skips(undef);
+  if ($month == 9 && $year == 1752) {
+    my %skips;
+    grep(++$skips{$_}, 3 .. 13);
+    $self->_skips(\%skips);
+  }
+  ($dow1st, $lastday);
+}
+
+1;