From: Dobrica Pavlinusic Date: Wed, 13 May 2009 19:51:26 +0000 (+0000) Subject: create first html rendering of cookbook X-Git-Url: http://git.rot13.org/?p=sysadmin-cookbook-html;a=commitdiff_plain;h=0af1b54b628559cca524061dc12875672abe2121;ds=sidebyside create first html rendering of cookbook git-svn-id: file:///home/dpavlin/private/svn/sysadmin-cookbook-html@1 3e18072f-9615-4e06-9d3a-648eafba3f8d --- 0af1b54b628559cca524061dc12875672abe2121 diff --git a/bin/html.pl b/bin/html.pl new file mode 100755 index 0000000..0436565 --- /dev/null +++ b/bin/html.pl @@ -0,0 +1,67 @@ +#!/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 = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); +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 "" if $in_ul++; + html "

$name

$name
$name
```
", file( $path ), "
```

" if $in_ul; + +print qq| + +Sysadmin Cookbook + + + + | + , join("\n", @html) + , "" + ; +