#!/usr/bin/perl # $Id$ open(MENU, "menu.txt"); $section = ""; while(){ if(/^\s*$/){ next; } chomp; if(/^[^>-]/){ $section = $_; } if(/^([->])\s*(.*)$/){ $title = $2; $code = $1; $filename = $title; $filename =~ tr/A-Z/a-z/; $filename =~ s/[^a-z]/_/g; $filename =~ s/_+/_/g; $filename =~ s/^_//; $filename =~ s/_$//; push(@tree, "$section,,$title,,$filename,,$code"); } } for($x = 0; $tree[$x]; $x++) { ($section, $title, $filename, $code) = split(',,', $tree[$x]); open(FILE, ">${filename}.html") || die($!); select(FILE); print < $title
$section > $title
EOM ; &plugin_menu($filename); print <


$title EOM ; if($code eq '>'){ print qq{


Original }; } print qq{

}; print < These pages describe plugins for GIMP, a freely available image manipulation tool for Unix. For the latest news on GIMP, check out my GIMP News page.

Zachary Beane EOM ; select(STDOUT); close(FILE); } sub plugin_menu { local($myself, $x, $section, $title, $file) = @_; $last_section = "foo"; for($x = 0; $tree[$x]; $x++){ ($section, $title, $file) = split(',,', $tree[$x]); if($section ne $last_section){ print "

$section
\n"; $last_section = $section; } if($file eq $myself){ print qq{  $title <
\n}; } else { print qq{  $title
\n}; } } }