#!/usr/bin/perl # # Copyright Andrew M. Bishop 1996-2013. # # Usage: README.CONF-html.pl < README.CONF > README.CONF.html # $_=; s/^ *//; s/ *\n//; $title=$_; print "\n"; print "\n"; print "\n"; print "\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$title

\n"; print "\n"; $hr=1; $blank=0; $intro=-1; $appendix=0; $first=1; $dl=0; while() { chop; s/&/&/g; s//>/g; s/ä/ä/g; s/ö/ö/g; s/ü/ü/g; s/Ä/Ä/g; s/Ö/Ö/g; s/Ü/Ü/g; s/ß/ß/g; # Separator if ($_ eq "--------------------------------------------------------------------------------") { $hr=1; $intro=0; } # Underlines elsif (m/^ *[-=]+ *$/) { next; } # Section heading elsif ($hr==1 && m/^([-A-Za-z0-9&;]+)$/) { $section = $1; if ($section eq "WILDCARD") { $appendix=1; } $intro=1 if($intro==-1); print "\n"; print "

$_

\n"; print "\n"; print "

\n"; $hr=0; $blank=0; $first=1; } # Item elsif (!$intro && !$appendix && m/^(\[?<URL-SPEC>\]? *)?(.?[-()a-z0-9]+)( *= *.+)?$/) { $item=$section."_".$2; s%(URL-SPECIFICATION|URL-SPEC)%$1%g; s%(WILDCARD)%$1%g; print "\n"; print "

$_

\n"; print "\n"; print "

\n"; $blank=0; $first=1; } # Item elsif (!$intro && !$appendix && (m/^(\[!\])?URL-SPECIFICATION/ || m/^\(/)) { $item = ""; s%(URL-SPECIFICATION|URL-SPEC)%$1%g; s%(WILDCARD)%$1%g; print "\n"; print "

$_

\n"; print "\n"; print "

\n"; $blank=0; $first=1; } # Blank elsif (m/^$/) { print "\n" if($dl); $blank=1 if(!$first); $dl=0; } # Text list elsif ($appendix && m%^([-a-zA-Z0-9():?*/.]+) +(.+)%) { $thing=$1; $descrip=$2; print "\n

$thing\n: $descrip\n"; $blank=0; $first=0; $dl=1; } # Text else { s/^ *//; s%(URL-SPECIFICATION|URL-SPEC)%$1%g; s%(WILDCARD)%$1%g; print "
\n" if($blank); print "$_\n"; $blank=0; $first=0; } } print "\n"; print "\n"; print "\n"; print "\n";