--- a/bin/chronicle	Sun Nov 25 14:15:10 2007 +0000
+++ b/bin/chronicle	Sat Dec 08 16:45:17 2007 +0000
@@ -34,6 +34,7 @@
    --force       Force the copying of static files from the blog theme.
    --no-archive  Don't create an archive page.
    --no-cache    Don't use the optional memcached features, even if available.
+   --no-calander Don't use the optional calendar upon the index.
    --no-tags     Don't produce any tag pages.
    --lower-case  Lower-case all filenames which are output.
 
@@ -167,6 +168,15 @@
 
 =cut
 
+=head1 OPTIONAL CALENDAR
+
+  If the 'HTML::CalendarMonthSimple' module is available each blog will
+ contain a simple month-view of the current month upon the index.
+
+  To disable this invoke the program with '--no-calendar'.
+
+=cut
+
 
 =head1 AUTHOR
 
@@ -174,6 +184,8 @@
  --
  http://www.steve.org.uk/
 
+ $Id: chronicle,v 1.28 2007-11-10 00:13:21 steve Exp $
+
 =cut
 
 =head1 LICENSE
@@ -207,8 +219,7 @@
 #
 #  NOTE:  Set by 'make release'.
 #
-my $RELEASE = 'UNRELEASED';
-
+my $RELEASE = '1.0';
 
 #
 #  The names of the months.  Posted early to allow i18n users.
@@ -284,7 +295,6 @@
 #
 my %data = createDataStructure();
 
-
 #
 #  Find each unique tag used within our entries.
 #
@@ -830,8 +840,8 @@
     #
     # Abort if we didn't work.
     #
-    die "Couldn't find first year"  unless defined($year1);
-    die "Couldn't find second year" unless defined($year2);
+    die "Couldn't find first year:  $a->{'date'}"  unless defined($year1);
+    die "Couldn't find second year: $b->{'date'}" unless defined($year2);
 
     #
     #  Convert to compare
@@ -872,7 +882,6 @@
     }
     my @tmp2 = sort bywhen @$tmp;
 
-
     #
     #  The number of entries to display upon the index.
     #
@@ -889,6 +898,23 @@
     my $template = loadTemplate( "index.template",
                                  die_on_bad_params => 0 );
 
+
+    #
+    # create the calendar if we can.
+    #
+    my $calendar = createCalendar();
+    if ( defined( $calendar ) )
+    {
+        my $text = $calendar->as_HTML();
+
+        $text =~ s/<\/?b>//g;
+        $text =~ s/<\/?p>//g;
+
+        $template->param( calendar       => 1,
+                          calendar_month => $text );
+    }
+
+
     #
     #  The entries.
     #
@@ -1209,7 +1235,6 @@
           = stat($filename);
 
         $date = localtime( $ctime );
-
     }
 
     $CONFIG{'verbose'} && print "\t$filename\n";
@@ -1392,8 +1417,7 @@
     #
     if ( ! defined($date) ||( !length( $date ) ) )
     {
-        my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov De
-c );
+        my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
           localtime(time);
 
@@ -1878,3 +1902,75 @@
         }
     }
 }
+
+
+
+=begin doc
+
+Create and configure a calendar for the index, if and only iff the
+HTML::CalendarMonthSimple module is installed.
+
+=end doc
+
+=cut
+
+sub createCalendar
+{
+    #
+    #  Attempt to load the module.
+    #
+    my $test  = "use HTML::CalendarMonthSimple;";
+    eval( $test );
+
+    #
+    #  If there was an error, or the calander is disabled then
+    # return undef.
+    #
+    if ( ( $@ ) || ( $CONFIG{'no-calendar'} ) )
+    {
+        print "Calander not available: $@";
+        return undef;
+    }
+
+    #
+    #  Continue
+    #
+    my $cal = new HTML::CalendarMonthSimple();
+
+    # configuration of the calendar
+    $cal->border(0);
+    $cal->weekstartsonmonday(1);
+    $cal->showweekdayheaders(1);
+    $cal->sunday('Sun');
+    $cal->saturday('Sat');
+    $cal->weekdays('Mo','Tue','We','Thu','Fr');
+
+    # get 4th element from localtime aka month in form of (0..11)
+    my $curmonth = (localtime)[4] + 1;
+
+    foreach my $f (%data)
+    {
+        my $h = $data{$f};
+        next if ( !$h );
+        my $entrydate          = $h->{'date'};
+
+        if ( !$entrydate )
+        {
+            my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+                $atime,$mtime,$ctime,$blksize,$blocks)
+              = stat($f);
+
+            $entrydate = localtime( $ctime );
+        }
+
+        my $date               = time2str("%Y-%m-%d", str2time($entrydate));
+        my ($year,$month,$day) = split(/-/,$date);
+
+
+        if ($month eq $curmonth)
+        {
+            $cal->setdatehref($day,fileToTitle($data{$f}->{'title'}));
+        }
+    }
+    return ($cal);
+}

--- a/themes/blocky/index.template	Sun Nov 25 14:15:10 2007 +0000
+++ b/themes/blocky/index.template	Sat Dec 08 16:45:17 2007 +0000
@@ -56,6 +56,10 @@
 </td>
 <td width="20%" valign="top">
 
+<!-- tmpl_if name='calendar' -->
+  <!-- tmpl_var name='calendar_month' -->
+<!-- /tmpl_if name='calendar' -->
+
 <!-- tmpl_if name='datecloud' -->
 <fieldset><legend>Archive</legend>
 <ul>

--- a/themes/copyrighteous/index.template	Sun Nov 25 14:15:10 2007 +0000
+++ b/themes/copyrighteous/index.template	Sat Dec 08 16:45:17 2007 +0000
@@ -48,6 +48,11 @@
 
 
 <div id="rightmenu">
+
+<!-- tmpl_if name='calendar' -->
+  <!-- tmpl_var name='calendar_month' -->
+<!-- /tmpl_if name='calendar' -->
+
 <!-- tmpl_if name='datecloud' -->
 <span class="rightMenu">Archives</span><br />
 <ul>

--- a/themes/default/index.template	Sun Nov 25 14:15:10 2007 +0000
+++ b/themes/default/index.template	Sat Dec 08 16:45:17 2007 +0000
@@ -41,6 +41,11 @@
 
 <div id="sidebar">
 
+<!-- tmpl_if name='calendar' -->
+<!-- tmpl_var name='calendar_month' -->
+<!-- /tmpl_if name='calendar' -->
+
+
 <!-- tmpl_if name='datecloud' -->
 <h2>Archive</h2>
 <ul>