]> www.wagner.pp.ru Git - oss/fgis.git/blob - testdata/mkhtml.tcl
The first attempt to automate building process
[oss/fgis.git] / testdata / mkhtml.tcl
1 set f [open admin.leg]
2 set out [open admin_html.leg w]
3 while {[gets $f line]>=0} {
4   if ![regexp {^ *([0-9]+)  (.*)$} $line all code text] continue
5   if {$code<0} continue
6   set outname "html/$code.html"
7   puts $out "$code  $outname"
8   set f2 [open $outname "w"]
9   puts $f2 "<HTML>
10 <HEAD>
11 <TITLE>$text</TITLE>
12 </HEAD>
13 <BODY>
14 <H1>$text</H1>
15
16 üÔÏ ÏÐÉÓÁÎÉÅ ÒÅÇÉÏÎÁ &quot;$text&quot;
17 </BODY>
18 </HTML>"
19 close $f2
20 }
21 close $out
22 close $f
23
24