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	#!/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	use Data::Dump qw/dump/;
11
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	return ''
24	. "<pre class=changes>" . `svn log $path` . "</pre>"
25	. "<pre class=content>$content</pre>"
26	;
27	}
28
29	my @names;
30	find({ follow => 0, no_chdir => 1, wanted => sub {
31	push @names, $_ unless m{/\.};
32	}}, $recepies );
33
34	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	foreach my $path ( sort @names ) {
51
52	my $name = $path;
53	$name =~ s{^$recepies.*?([^/]+)$}{$1};
54	next unless $name;
55
56	if ( -d $path ) {
57	header 1,$name;
58	} elsif ( -l $path ) {
59	my $to = readlink $path;
60	header 2,$name;
61	html $to;
62	} else {
63	header 2, $name;
64	html file( $path );
65	}
66
67	};
68
69	$toc_html .= "</ul>" foreach ( 1 .. $last_level );
70
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	pre.changes {
79	color: #444;
80	}
81	pre.content {
82	padding: 1em;
83	background: #eee;
84	}
85	</style>
86	</head><body>
87	\|
88	. "<div class=toc>$toc_html</div>"
89	, join("\n", @html)
90	, "</body></html>"
91	;
92