use local checkout

[sysadmin-cookbook-html] / bin / html.pl

diff --git a/bin/html.pl b/bin/html.pl
index 87d6dfa..6039b36 100755 (executable)
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-my $recepies = '/srv/sysadmin-cookbook/recepies';
+my $recepies = 'recepies/';
 
 use File::Find;
 use File::Slurp;
@@ -30,10 +30,11 @@ sub file {
        my $changes = join("\n",
                map {
                        my $d = $_->{date};
-                       $d =~ s{\.\d+Z}{};
+                       $d =~ s{:\d\d\.\d+Z}{};
                        $d =~ s{T}{ };
-                       qq|<li>$_->{msg} <span class="date">$d</span></li>|
-               } @{ $log->{logentry} }
+                       my $r = $_->{revision};
+                       qq|<li>$_->{msg} <a class="date" title="r$r" href="http://svn.rot13.org/index.cgi/sysadmin-cookbook/revision?rev=$r">$d</a></li>|
+               } reverse @{ $log->{logentry} }
        );
 
        $path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;
@@ -46,7 +47,7 @@ sub file {
 
 my @names;
 find({ follow => 0, no_chdir => 1, wanted => sub {
-       push @names, $_ unless m{/\.};
+       push @names, $_ unless m{/\.} || m{^\.};
 }}, $recepies );
 
 my $last_level = 0;
@@ -74,6 +75,8 @@ my $to_path = '';
 
 foreach my $path ( sort @names ) {
 
+       next if ( -d $path && ! -e "$path/.svn" );
+
        my $name = $path;
        $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
        next unless $name;
@@ -126,6 +129,7 @@ li .date {
        font-family: monospace;
        color: #888;
        float: right;
+       margin-right: 1em;
 }
 
 </style>