use warnings;
use strict;
-my $recepies = '/srv/sysadmin-cookbook/recepies';
+my $recepies = 'recepies/';
use File::Find;
use File::Slurp;
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;
my @names;
find({ follow => 0, no_chdir => 1, wanted => sub {
- push @names, $_ unless m{/\.};
+ push @names, $_ unless m{/\.} || m{^\.};
}}, $recepies );
my $last_level = 0;
foreach my $path ( sort @names ) {
+ next if ( -d $path && ! -e "$path/.svn" );
+
my $name = $path;
$name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
next unless $name;
}
pre.content {
- padding: 1em;
+ padding: 0.5em;
+ margin: 1em;
background: #eee;
}
font-family: monospace;
color: #888;
float: right;
+ margin-right: 1em;
}
</style>
</head><body>
+ <a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/3.0/hr/"><img alt="Creative Commons License" style="border-width:0; float: right" src="http://i.creativecommons.org/l/by-nc-sa/3.0/hr/88x31.png" /></a>
+ <span xmlns:dc="http://purl.org/dc/elements/1.1/" href="http://purl.org/dc/dcmitype/Text" property="dc:title" rel="dc:type">Sysadmin Cookbook</span> by <a xmlns:cc="http://creativecommons.org/ns#" href="http://www.rot13.org/~dpavlin/" property="cc:attributionName" rel="cc:attributionURL">Dobrica Pavlinusic</a> is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/3.0/hr/">Creative Commons Attribution-Noncommercial-Share Alike 3.0 Croatia License</a>.
+ <br />
+ <small><a href="http://svn.rot13.org/index.cgi/sysadmin-cookbook/">Source code repository</a></small>
|
. "<div class=toc>$toc_html</div>"
, join("\n", @html)