sysadmin-cookbook-html/bin/html.pl

#!/usr/bin/perl

use warnings;
use strict;

my $recepies = '/srv/sysadmin-cookbook/recepies';

use File::Find;
use File::Slurp;
use Data::Dump qw/dump/;

my @html;
sub html { push @html, @_ }

my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
my $escape_re  = join '|' => keys %escape;

sub file {
        my $path = shift;
        my $content = read_file $path;
        $content =~ s{[\n\r\s]+$}{}s;
        $content =~ s/($escape_re)/$escape{$1}/gs;
        return ''
                . "<pre class=changes>" . `svn log $path` . "</pre>"
                . "<pre class=content>$content</pre>"
                ;
}

my @names;
find({ follow => 0, no_chdir => 1, wanted => sub {
        push @names, $_ unless m{/\.};
}}, $recepies );

my $last_level = 0;
my $toc_html = '';
sub header {
        my ($level, $content) = @_;
        html qq|<a name=$content></a>|;
        html qq|<h$level>$content</h$level>|;

        if ( $last_level > $level ) {
                $toc_html .= "</ul>";
        } elsif ( $last_level < $level ) {
                $toc_html .= "<ul>";
        }
        $toc_html .= qq|<li><a href="#$content">$content</li>|;
        $last_level = $level;
}

foreach my $path ( sort @names ) {

        my $name = $path;
        $name =~ s{^$recepies.*?([^/]+)$}{$1};
        next unless $name;

        if ( -d $path ) {
                header 1,$name;
        } elsif ( -l $path ) {
                my $to = readlink $path;
                header 2,$name;
                html $to;
        } else {
                header 2, $name;
                html file( $path );
        }

};

$toc_html .= "</ul>" foreach ( 1 .. $last_level );

print qq|
<html><head>
<title>Sysadmin Cookbook</title>
<!--
<link type=text/css rel=stylesheet href="style.css">
-->
<style type=text/css>
pre.changes {
        color: #444;
}
pre.content {
        padding: 1em;
        background: #eee;
}
</style>
</head><body>
        |
        . "<div class=toc>$toc_html</div>"
        , join("\n", @html)
        , "</body></html>"
        ;

1	dpavlin	1	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			my $recepies = '/srv/sysadmin-cookbook/recepies';
7
8			use File::Find;
9			use File::Slurp;
10	dpavlin	2	use Data::Dump qw/dump/;
11	dpavlin	1
12			my @html;
13			sub html { push @html, @_ }
14
15			my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"');
16			my $escape_re = join '\|' => keys %escape;
17
18			sub file {
19			my $path = shift;
20			my $content = read_file $path;
21			$content =~ s{[\n\r\s]+$}{}s;
22			$content =~ s/($escape_re)/$escape{$1}/gs;
23	dpavlin	2	return ''
24			. "<pre class=changes>" . `svn log $path` . "</pre>"
25			. "<pre class=content>$content</pre>"
26			;
27	dpavlin	1	}
28
29			my @names;
30			find({ follow => 0, no_chdir => 1, wanted => sub {
31			push @names, $_ unless m{/\.};
32			}}, $recepies );
33
34	dpavlin	2	my $last_level = 0;
35			my $toc_html = '';
36			sub header {
37			my ($level, $content) = @_;
38			html qq\|<a name=$content></a>\|;
39			html qq\|<h$level>$content</h$level>\|;
40
41			if ( $last_level > $level ) {
42			$toc_html .= "</ul>";
43			} elsif ( $last_level < $level ) {
44			$toc_html .= "<ul>";
45			}
46			$toc_html .= qq\|<li><a href="#$content">$content</li>\|;
47			$last_level = $level;
48			}
49
50	dpavlin	1	foreach my $path ( sort @names ) {
51
52			my $name = $path;
53	dpavlin	2	$name =~ s{^$recepies.*?([^/]+)$}{$1};
54			next unless $name;
55	dpavlin	1
56			if ( -d $path ) {
57	dpavlin	2	header 1,$name;
58	dpavlin	1	} elsif ( -l $path ) {
59			my $to = readlink $path;
60	dpavlin	2	header 2,$name;
61			html $to;
62	dpavlin	1	} else {
63	dpavlin	2	header 2, $name;
64			html file( $path );
65	dpavlin	1	}
66
67			};
68
69	dpavlin	2	$toc_html .= "</ul>" foreach ( 1 .. $last_level );
70	dpavlin	1
71			print qq\|
72			<html><head>
73			<title>Sysadmin Cookbook</title>
74			<!--
75			<link type=text/css rel=stylesheet href="style.css">
76			-->
77			<style type=text/css>
78	dpavlin	2	pre.changes {
79			color: #444;
80			}
81			pre.content {
82			padding: 1em;
83	dpavlin	1	background: #eee;
84			}
85			</style>
86			</head><body>
87			\|
88	dpavlin	2	. "<div class=toc>$toc_html</div>"
89	dpavlin	1	, join("\n", @html)
90			, "</body></html>"
91			;
92