Changeset 23757

Timestamp:

11/15/08 14:25:21 (8 weeks ago)

Author:

nyarla

Message:

blosxomの自作プラグインを追加

Location:

lang/perl/blosxom

Files:

• blosxom.nyarla.cgi (modified) (2 diffs)
• plugins/chatlog (added)
• plugins/configurable (added)
• plugins/datemap (modified) (5 diffs)
• plugins/datesection (added)
• plugins/hidden (added)
• plugins/lastmod (added)
• plugins/lastmod_cache (added)
• plugins/micromason (added)
• plugins/pagination (added)
• plugins/quote (added)
• plugins/ttize (added)
• plugins/variable (added)

lang/perl/blosxom/blosxom.nyarla.cgi

@@ -132 +132 @@
 
 $path_info_yr       ||= q{};
+$path_info_mo       ||= q{};
 $path_info_mo_num   ||= q{};
 $path_info_da       ||= q{};
@@ -397 +398 @@
             ( $hr, $min) = split m{:}, $ti;
             ( $hr12, $ampm ) = ( $hr >= 12 ) ? ( $hr - 12,'pm' ) : ( $hr, 'am' ) ; 
-            $hr12 =~ s{^0}{};
-            $hr12 = 12 if ( $hr12 == 0 );
+            $hr12   =~ s{^0}{};
+            $hr12 ||= 0;
+            $hr12   = 12 if ( $hr12 == 0 );
 
             # Only stories from the right date

lang/perl/blosxom/plugins/datemap

@@ -1 +1 @@
 # Blosxom Plugin: datemap
 # Author: Naoki Okamura (Nyarla) <thotep@nyarla.net>
-# Version: 2008-03-02
-# Licesen: public domain
+# Version: 2008-04-15
+# License: public domain
 
 package datemap;
@@ -9 +9 @@
 use warnings;
 
-use FileHandle;
+use YAML::Syck ();
+use DateTime;
+use DateTime::Format::W3CDTF;
 
 # -- configurable variables ---------- #
 
-my $file = "$blosxom::plugin_state_dir/datemap.dat";
+my $file        = "$blosxom::plugin_state_dir/datemap.yaml";
+my $meta_prefix = 'meta-';
+my $meta_date   = 'date';
+my $timezone    = 'Asia/Tokyo';
 
 # -- package variables --------------- #
 
 my $datemap = { files => {}, others => {} };
+my $save    = 0;
+my $format  = DateTime::Format::W3CDTF->new;
 my $fh      = FileHandle->new;
 
@@ -24 +31 @@
 sub start {
     if ( -f $file && -r _ ) {
-        $datemap = load($file);
+        $datemap = YAML::Syck::LoadFile( $file );
     }
     return 1;
@@ -37 +44 @@
         mapping( $others, $datemap->{'others'} );
 
-        save($file, $datemap);
+        YAML::Syck::DumpFile( $file, $datemap ) if ( $save );
 
         return ( $files, $indexes, $others );
@@ -44 +51 @@
 
 sub mapping {
-    my ( $files, $date ) =  @_;
+    my ( $files, $indexes ) = @_;
 
     for my $path ( keys %{ $files } ) {
-        if ( exists $date->{$path} ) {
-            $files->{$path} = $date->{$path};
+        my $key = $path;
+           $key =~ s{^$blosxom::datadir/}{};
+
+        if (
+            exists $indexes->{$key}
+            && $files->{$path} == $indexes->{$key}->{'lastmod'}
+        ) {
+            $files->{$path} = $indexes->{$key}->{'created'};
         }
         else {
-            $date->{$path} = $files->{$path};
+            my $created = extract_datetime( $path );
+            if (
+                defined $created
+                && exists $indexes->{$key}
+                && $created == $indexes->{$key}->{'created'}
+            ) {
+                $files->{$path} = $created;
+                next;
+            }
+            else {
+                my $lastmod = $files->{$path};
+                   $created = $files->{$path} if ( ! defined $created );
+
+                $files->{$path}  = $created;
+                $indexes->{$key} = {
+                    created => $created,
+                    lastmod => $lastmod,
+                };
+
+                $save++;
+                write_datetime( $path, $created );
+            }
         }
     }
 
-    for my $path ( keys %{ $date } ) {
-        delete $date->{$path} if ( ! exists $files->{$path} );
+    for my $key ( keys %{ $indexes } ) {
+        my $path = "$blosxom::datadir/$key";
+        if ( ! exists $files->{$path} ) {
+            delete $indexes->{$key};
+            $save++;
+        }
+        delete $indexes->{$key} if ( ! exists $files->{$path} );
     }
-
 }
 
-sub load {
+sub extract_datetime {
     my ( $file ) = @_;
 
-    my $data = { files => {}, others => {} };
-
-    $fh->open( $file, '<' ) or die "Couldn't open file: $file: $!";
-    while ( my $line = <$fh> ) {
+    $fh->open( $file, '<' ) or die "Failed to open file: $file: $!";
+    my $line = <$fh>;
+    while ( $line = <$fh> ) {
         chomp $line;
-        my ( $type, $mtime, $path ) = ( $line =~ m{^(\w+)[|](\d+)[|](.+)$} );
-        $data->{$type}->{$path} = $mtime;
+        last if ( $line !~ m{^$meta_prefix} );
+        if ( $line =~ m{^$meta_prefix$meta_date:\s*(.+?)\s*$} ) {
+            my $dt = eval { $format->parse_datetime( $1 ) };
+            if ( defined $dt ) {
+                $fh->close;
+                return $dt->epoch();
+            }
+        }
     }
     $fh->close;
 
-    return $data;
+    return;
 }
 
-sub save {
-    my ( $file, $data ) = @_;
-    my $output = q{};
+sub write_datetime {
+    my ( $file, $mtime ) = @_;
 
-    for my $type ( keys %{ $data } ) {
-        for my $path ( keys %{ $data->{$type} } ) {
-            my $mtime = $data->{$type}->{$path};
-            $output .= "${type}|$mtime|$path\n";
+    my $output  = q{};
+    my $dt      = DateTime->from_epoch( epoch => $mtime, time_zone => $timezone );
+    my $w3cdtf  = $format->format_datetime( $dt );
+    my $meta    = "${meta_prefix}${meta_date}: ${w3cdtf}\n";
+
+    $fh->open( $file, '<' ) or die "Failed to open file: $file: $!";
+    my $line = <$fh>;
+    $output .= "$line";
+    my $add_meta = 0;
+    while ( $line = <$fh> ) {
+        if ( $line !~ m{^$meta_prefix} ) {
+            $output .= $meta if ( ! $add_meta );
+            $output .= $line;
+            $output .= do { local $/; <$fh> };
+            $fh->close;
+            last;
         }
+
+        if ( $line =~ m{^$meta_prefix$meta_date} ) {
+            $output .= $meta;
+            $add_meta++;
+        }
+        else {
+            $output .= $line;
+        }
+
     }
 
-    $fh->open( $file, '>' ) or die "Couldn't open file: $file: $!";
+    $fh->open( $file, '>' ) or die "Failed to open file: $file: $!";
     print $fh $output;
     $fh->close;