X-Git-Url: http://git.rot13.org/?p=sysadmin-cookbook-html;a=blobdiff_plain;f=bin%2Fhtml.pl;h=013077d45edb3ae2a0de68d0d459e6b95cc384f7;hp=0a591fafe793b60c92175e68b639da65bc695f88;hb=039a7fec75df2c7da1742a5e593f65f3f5b084fd;hpb=54c82eb6d404da8cdb0ada498b8b129a93573510 diff --git a/bin/html.pl b/bin/html.pl index 0a591fa..013077d 100755 --- a/bin/html.pl +++ b/bin/html.pl @@ -8,6 +8,8 @@ my $recepies = '/srv/sysadmin-cookbook/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,9 +22,25 @@ 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+Z}{}; + $d =~ s{T}{ }; + qq|
" . `svn log $path` . "" - . "
$content" + . qq|
$content| ; } @@ -38,6 +56,8 @@ sub header { my $display = $content; $display =~ s{^\d+[\.-]}{}; $display =~ s{-}{ }g; + $display =~ s{\.\w+$}{}; + $content =~ s{\W+}{_}g; html qq||; html qq|