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;

my $in_ul = 0;

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 $content;
}

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

foreach my $path ( sort @names ) {

        my $name = $path;
        $name =~ s{^$recepies/*}{};

        if ( -d $path ) {
                html "</ul>" if $in_ul++;
                html "<h1>$name</h1><ul>";
        } elsif ( -l $path ) {
                my $to = readlink $path;
                html "<li>$name</li>";
        } else {
                html "<li>$name<pre>", file( $path ), "</pre></li>";
        }

};

html "</ul>" if $in_ul;

print qq|
<html><head>
<title>Sysadmin Cookbook</title>
<!--
<link type=text/css rel=stylesheet href="style.css">
-->
<style type=text/css>
pre {
        background: #eee;
}
</style>
</head><body>
        |
        , 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
11	my $in_ul = 0;
12
13	my @html;
14	sub html { push @html, @_ }
15
16	my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"');
17	my $escape_re = join '\|' => keys %escape;
18
19	sub file {
20	my $path = shift;
21	my $content = read_file $path;
22	$content =~ s{[\n\r\s]+$}{}s;
23	$content =~ s/($escape_re)/$escape{$1}/gs;
24	return $content;
25	}
26
27	my @names;
28	find({ follow => 0, no_chdir => 1, wanted => sub {
29	push @names, $_ unless m{/\.};
30	}}, $recepies );
31
32	foreach my $path ( sort @names ) {
33
34	my $name = $path;
35	$name =~ s{^$recepies/*}{};
36
37	if ( -d $path ) {
38	html "</ul>" if $in_ul++;
39	html "<h1>$name</h1><ul>";
40	} elsif ( -l $path ) {
41	my $to = readlink $path;
42	html "<li>$name</li>";
43	} else {
44	html "<li>$name<pre>", file( $path ), "</pre></li>";
45	}
46
47	};
48
49	html "</ul>" if $in_ul;
50
51	print qq\|
52	<html><head>
53	<title>Sysadmin Cookbook</title>
54	<!--
55	<link type=text/css rel=stylesheet href="style.css">
56	-->
57	<style type=text/css>
58	pre {
59	background: #eee;
60	}
61	</style>
62	</head><body>
63	\|
64	, join("\n", @html)
65	, "</body></html>"
66	;
67