Warning, file /education/kig/generate_todo_inc.pl was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 #! /usr/bin/env perl 0002 0003 use warnings; 0004 0005 print "<ul>\n"; 0006 open( TODO, "<TODO" ); 0007 while( <TODO> ) 0008 { 0009 if( /^\* (.*)$/ ) 0010 { 0011 print "</li></ul></li>\n\n" if( $inlist ); 0012 print "<li><span style=\"font-weight:bold\">$1</span><br/>\n"; 0013 $inlist = 0; 0014 $initem = 0; 0015 } 0016 elsif( /^- (.*)$/ ) 0017 { 0018 if( $initem ) { print "</li>"; }; 0019 print "<ul>\n" if( ! $inlist ); 0020 $inlist = 1; 0021 print "<li>$1\n"; 0022 $initem = 1; 0023 } 0024 else { print unless /^$/; } 0025 }; 0026 print "</li></ul></li></ul>\n";