writeback plugin with date entry

• we do not need 'date' entry in @fields, so the diff is just

  % diff writeback.orig writeback
  7a8,9
  > use Time::Local;
  > 
  15c17,18
  < my $writeback_dir = "";
  ---
  > #my $writeback_dir = "";
  > my $writeback_dir = "$blosxom::plugin_state_dir/writeback";
  133a137,146
  >       # add 'date:' field -- tedeous, though, it is working here
  >       my ($Second, $Minute, $Hour,
  >         $Day, $Month, $Year,
  >         $WeekDay, $DayOfYear, $IsDST) = localtime ();
  >       my $postdate = sprintf ("%d/%d/%d %d:%02d:%02d",
  >                             $Year + 1900,
  >                             $Month + 1,
  >                             $Day,
  >                             $Hour, $Minute, $Second);
  >       print $fh "date: $postdate\n";
   

• also, I am now using modified "recentwritebacks_tree" (cf.recentwritebacks_tree プラグイン (Blosxom))

  % diff recentwritebacks_tree.orig recentwritebacks_tree
  17,18c15,19
  < my $cm_entry = 3;
  < my $cm_num = 5;
  ---
  > my $wb_entry = 3;
  > my $wb_num = 5;
  > # comments
  > #my $cm_entry = 3;
  > #my $cm_num = 5;
  20,21c21,22
  < my $tb_entry = 3;
  < my $tb_num = 3;
  ---
  > #my $tb_entry = 3;
  > #my $tb_num = 3;
  25c26,27
  < use vars qw/$cm_list $tb_list @wb_list/;
  ---
  > #use vars qw/$cm_list $tb_list @wb_list/;
  > use vars qw/$wbs @wb_list/;
  29d30
  <   #return 0 if ($blosxom::path_info =~ /\./);
  31,32c32,34
  <   $cm_list =  &getwritebacks("comment", $cm_entry, $cm_num);
  <   $tb_list = &getwritebacks("excerpt", $tb_entry, $tb_num);
  ---
  >   $wbs     = &getwritebacks("", $wb_entry, $wb_num);
  >   #$cm_list = &getwritebacks("comment", $cm_entry, $cm_num);
  >   #$tb_list = &getwritebacks("excerpt", $tb_entry, $tb_num);
  61,64c63,73
  <       if($_ =~ /[\r\n]+$mode:(.+)/) {
  <         $count++;
  <         $body = $1;
  <         if($count == 1) {
  ---
  >       #if($_ =~ /[\r\n]+$mode:(.+)/) {
  >       #  $count++;
  >       #  $body = $1;
  >       #  if($count == 1) {
  >       #    $entrytitle = &gettitle($file);
  >       #    $entry++;
  >       #  }
  >       #}
  >       $count++;
  >       $body = $1;
  >       if($count == 1) {
  67d75
  <         }
  81,84c89,95
  <         if($_ =~ /[\r\n]+date:(\d+)/) {
  <           @dates = localtime($1);
  <           $date = sprintf("%02d/%02d %02d:%02d", $dates[4]+1, $dates[3], $dates[2], $dates[1]);
  <         }
  ---
  > 	#if($_ =~ /[\r\n]+date:(\d+)/) {
  >           #@dates = localtime($1);
  >           #$date = sprintf("%02d/%02d %02d:%02d", $dates[4]+1, $dates[3], $dates[2], $dates[1]);
  >         #}
  > 	if($_ =~ /[\r\n]+date: (.+)/) {
  > 	    $date = $1;
  > 	}
  98c109
  <       $ret .= "</ul>\n</li>\n";
  ---
  >       $ret .= "</ul>\n";
  99a111
  >     $ret .= "</li>\n";
   

• to use it, put "$recentwritebacks_tree::wbs" where you want.