You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
494 B
27 lines
494 B
15 years ago
|
#! /usr/bin/env perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
print "<ul>\n";
|
||
|
|
open( TODO, "<TODO" );
|
||
|
|
while( <TODO> )
|
||
|
|
{
|
||
|
|
if( /^\* (.*)$/ )
|
||
|
|
{
|
||
|
|
print "</li></ul></li>\n\n" if( $inlist );
|
||
|
|
print "<li><span style=\"font-weight:bold\">$1</span><br/>\n";
|
||
|
|
$inlist = 0;
|
||
|
|
$initem = 0;
|
||
|
|
}
|
||
|
|
elsif( /^- (.*)$/ )
|
||
|
|
{
|
||
|
|
if( $initem ) { print "</li>"; };
|
||
|
|
print "<ul>\n" if( ! $inlist );
|
||
|
|
$inlist = 1;
|
||
|
|
print "<li>$1\n";
|
||
|
|
$initem = 1;
|
||
|
|
}
|
||
|
|
else { print unless /^$/; }
|
||
|
|
};
|
||
|
|
print "</li></ul></li></ul>\n";
|