# Blosxom Plugin: writeback
# Author(s): Rael Dornfest <rael@oreilly.com>
# Version: 2003-09-18
# Documentation: See the bottom of this file or type: perldoc writeback
 

diff writeback.orig writeback.new
7a8,9
> use Time::Local;
> 
15c17,18
< my $writeback_dir = "";
---
> #my $writeback_dir = "";
> my $writeback_dir = "$blosxom::plugin_state_dir/writeback";
27c30,31
< my @fields = qw! name url title comment excerpt blog_name !;
---
> #my @fields = qw! name url title comment excerpt blog_name !;
> my @fields = qw! name url title comment excerpt blog_name date !;
133a138,147
>       # add 'date:' field -- tedious, 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";
 

• increment $num for titled-entries (to prevent the duplicated $num).