# Blosxom Plugin: update # Author: az, original by Anthony Towns but # there's not much left of that package update; use strict; use File::Slurp; use File::stat; my $extension= "upd"; # .upd, .upd1,... sub start { return 1; } sub story { my ($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_; my $bdd = $blosxom::datadir . "$path"; my ($updfn,$updn); while (-e ($updfn = "$bdd/$filename.$extension$updn")) { my ($dw,$mo,$mo_num,$da,$ti,$yr)= blosxom::nice_date(stat($updfn)->mtime); my $stuff; $stuff="

Update $da.$mo_num.$yr:
"; $stuff.=read_file($updfn); $$body_ref .= $stuff; $updn+=1; } return 1; } 1;