--- with-embellishments/H-W-NM-embellish.pl 2005-05-06 10:31:51.359923568 +0300 +++ fine-grained-site-flow/H-W-NM-fine-grained-site-flow.pl 2005-05-06 10:34:32.615409008 +0300 @@ -113,10 +113,12 @@ { 'text' => "English Resumé", 'url' => "resume.html", + 'skip' => 1, }, { 'text' => "Detailed English Resumé", 'url' => "resume_detailed.html", + 'skip' => 1, }, ], }, @@ -126,6 +128,7 @@ 'text' => "Humour", 'url' => "humour/", 'title' => "My Humorous Creations", + 'show_always' => 1, 'subs' => [ { @@ -181,6 +184,7 @@ { 'text' => "Software", 'url' => "open-source/", + 'expand' => { 're' => "^(open-source|perl)/", }, 'title' => "Pages related to Software (mostly Open-Source)", 'subs' => [ @@ -227,17 +231,20 @@ 'text' => "Portability Libraries", 'title' => "Cross-Platform Abstraction Libraries", 'url' => "abstraction/", + 'hide' => 1, }, { 'text' => "Software Tools", 'title' => "Software Construction and Management Tools", 'url' => "software-tools/", + 'hide' => 1, }, ], }, { 'text' => "Lectures", 'url' => "lecture/", + 'expand' => { 're' => "^lecture/", }, 'title' => "Presentations I Wrote (Mostly Technical)", 'subs' => [ @@ -357,6 +364,20 @@ }; }; +push @pages, +( + { + 'path' => "perl/japhs/", + 'title' => "Perl JAPHs", + 'content' => "
JAPHs for fun and profit.
", + }, + { + 'path' => "open-source/yowza/", + 'title' => "A Wonderful Yowza", + 'content' => "Yowza is da-bomb man!
", + } +); + foreach my $page (@pages) { my $path = $page->{'path'}; @@ -383,7 +404,6 @@ open my $out, ">", $full_path or die "Could not open \"$full_path\" for writing!"; - my $template = Template->new( {