X-Git-Url: http://git.rot13.org/?p=sysadmin-cookbook-html;a=blobdiff_plain;f=bin%2Fhtml.pl;h=6039b361b649dd1bd424b7e9e752fc0656902ce3;hp=cd9485dd7bfcef053c81061da450f6c72e8e947c;hb=b356e721222c6504f99da41d51206092e3792b3e;hpb=bace34e122e1331e987af50ddad063ce136416a5 diff --git a/bin/html.pl b/bin/html.pl index cd9485d..6039b36 100755 --- a/bin/html.pl +++ b/bin/html.pl @@ -3,11 +3,13 @@ use warnings; use strict; -my $recepies = '/srv/sysadmin-cookbook/recepies'; +my $recepies = 'recepies/'; use File::Find; use File::Slurp; use Data::Dump qw/dump/; +use XML::Simple; +use Regexp::Common qw /URI/; my @html; sub html { push @html, @_ } @@ -20,47 +22,74 @@ sub file { my $content = read_file $path; $content =~ s{[\n\r\s]+$}{}s; $content =~ s/($escape_re)/$escape{$1}/gs; + $content =~ s[$RE{URI}{HTTP}{-keep}][$1]gs; + + my $log = XMLin( scalar `svn log --xml $path`, + ForceArray => [ 'logentry' ], + ); + my $changes = join("\n", + map { + my $d = $_->{date}; + $d =~ s{:\d\d\.\d+Z}{}; + $d =~ s{T}{ }; + my $r = $_->{revision}; + qq|
" . `svn log $path` . "" - . "
$content" + . qq|
$content| ; } my @names; find({ follow => 0, no_chdir => 1, wanted => sub { - push @names, $_ unless m{/\.}; + push @names, $_ unless m{/\.} || m{^\.}; }}, $recepies ); my $last_level = 0; my $toc_html = ''; sub header { my ($level, $content) = @_; + my $display = $content; + $display =~ s{^\d+[\.-]}{}; + $display =~ s{-}{ }g; + $display =~ s{\.\w+$}{}; + $content =~ s{\W+}{_}g; html qq||; - html qq|