display rss path

[sysadmin-cookbook-html] / bin / html.pl

diff --git a/bin/html.pl b/bin/html.pl
index 768fce4..fd355f1 100755 (executable)
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -8,6 +8,7 @@ my $recepies = 'recepies/';
 
 use File::Find;
 use File::Slurp;
+use File::Path;
 use Data::Dump qw/dump/;
 use XML::Simple;
 use Regexp::Common qw /URI/;
@@ -40,9 +41,10 @@ sub file {
        );
 
        $path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;
+warn "## path = $path\n";
        return ''
                . qq|<ul class=changes>$changes</ul>|
-               . ( $path =~ m{(\.sh|Makefile)$}i ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
+               . ( $path =~ m{(\.sh|Makefile|\.conf|\.pl)$}i || -x "$recepies/$path" ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
                . qq|<pre class=content>$content</pre>|
                ;
 }
@@ -52,30 +54,48 @@ find({ follow => 0, no_chdir => 1, wanted => sub {
        push @names, $_ unless m{/\.} || m{^\.};
 }}, $recepies );
 
-my $last_level = 0;
-my $toc_html = '';
+warn "## names = ",dump( @names );
+
+our $last_level = 0;
+our $toc_html = '';
 sub header {
-       my ($level, $content) = @_;
-       my $display = $content;
+       my ($level, $name, $full_name) = @_;
+       $full_name ||= $name;
+       $full_name =~ s{recepies/}{};
+       warn "## header $level $name [$full_name]\n";
+
+       my $display = $name;
        $display =~ s{^\d+[\.-]}{};
        $display =~ s{-}{ }g;
        $display =~ s{\.\w+$}{};
-       $content =~ s{\W+}{_}g;
-       html qq|<a name=$content></a>|;
+
+       my $anchor = $full_name;
+       $anchor =~ s{</?[^>]+>}{}g;
+       $anchor =~ s{\W+}{_}g;
+
+       html qq|<a name=$anchor></a>|;
        html qq|<h$level>$display</h$level>|;
 
        if ( $last_level > $level ) {
                $toc_html .= "</ul>";
+               warn "## $last_level > $level toc /ul";
        } elsif ( $last_level < $level ) {
                $toc_html .= "<ul>";
+               warn "## $last_level < $level toc ul";
        }
-       $toc_html .= qq|<li><a href="#$content">$display</li>|;
+       $toc_html .= qq|<li><a href="#$anchor">$display</li>|;
        $last_level = $level;
 }
 
 my $to_path = '';
 our @item;
 
+sub mkfilepath {
+       my $path = shift;
+       $path =~ s{/[^/]+$}{};
+       mkpath $path unless -d $path;
+}
+
 sub new_feed {
        my $name = shift;
        my $feed = XML::FeedPP::RSS->new();
@@ -95,9 +115,11 @@ sub add_item {
 
        my $item_feed = new_feed( $name );
        add_feed_item_description($item_feed, $name, "http://sysadmin-cookbook.rot13.org/#$name", $content);
-       $item_feed->to_file("rss/$name.xml");
+       my $file = "rss/$name.xml";
+       mkfilepath $file;
+       $item_feed->to_file($file);
 
-       warn "# $name\n";
+       warn "# $name $file\n";
 }
 
 sub add_feed_item_description {
@@ -110,22 +132,30 @@ sub add_feed_item_description {
 
 foreach my $path ( sort @names ) {
 
-       next if ( -d $path && ! -e "$path/.svn" );
+       next if ( -d $path && -e "$path/.svn" );
 
        my $name = $path;
+#      $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
        $name =~ s{^$recepies.*?([^/]+)$}{$1} || next;
-       next unless $name;
+
+       my @just_path = split m{/}, $path;
+       @just_path = splice @just_path, 1, -1;
+
+       warn "## ?? $path";
 
        if ( -d $path ) {
                add_item( splice(@item,0) );
-               header 1,$name;
+               my $h1 = join(' ',@just_path);
+               $h1 = qq|<span class="p">$h1</span> | if $h1;
+               $h1 .= $name;
+               header 1, $h1;
                $to_path = '';
                push @item, $name;
        } elsif ( -l $path ) {
                $to_path = " " . readlink $path;
                next;
        } else {
-               header 2, $name . $to_path;
+               header 2, $name . $to_path, $path;
                $to_path = '';
                my $content = file $path;
                html $content;
@@ -152,6 +182,10 @@ h1 {
        padding: 0.3em;
 }
 
+h1 .p {
+       color: #888;
+}
+
 .toc {
        font-size: 80%;
 }