2 set out [open admin_html.leg w]
3 while {[gets $f line]>=0} {
4 if ![regexp {^ *([0-9]+) (.*)$} $line all code text] continue
6 set outname "html/$code.html"
7 puts $out "$code $outname"
8 set f2 [open $outname "w"]
16 üÔÏ ÏÐÉÓÁÎÉÅ ÒÅÇÉÏÎÁ "$text"