diff options
author | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
---|---|---|
committer | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
commit | ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2 (patch) | |
tree | d3bb9f5d25a2dc09ca81adecf39621d871534297 /kig/generate_todo_inc.pl | |
download | tdeedu-ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2.tar.gz tdeedu-ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2.zip |
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdeedu@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kig/generate_todo_inc.pl')
-rw-r--r-- | kig/generate_todo_inc.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/kig/generate_todo_inc.pl b/kig/generate_todo_inc.pl new file mode 100644 index 00000000..6999f217 --- /dev/null +++ b/kig/generate_todo_inc.pl @@ -0,0 +1,26 @@ +#! /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"; |