| … | |
… | |
| 9 | |
9 | |
| 10 | my $arch; |
10 | my $arch; |
| 11 | |
11 | |
| 12 | umask 022; |
12 | umask 022; |
| 13 | |
13 | |
| 14 | our $VERSION = '1.01'; |
14 | our $VERSION = '1.02'; |
| 15 | |
15 | |
| 16 | sub escape_html($) { |
16 | sub escape_html($) { |
| 17 | local $_ = shift; |
17 | local $_ = shift; |
| 18 | s/([<>&])/sprintf "&#%d;", ord $1/ge; |
18 | s/([<>&])/sprintf "&#%d;", ord $1/ge; |
| 19 | $_ |
19 | $_ |
| … | |
… | |
| 159 | print "</td>"; |
159 | print "</td>"; |
| 160 | } |
160 | } |
| 161 | print "</tr>"; |
161 | print "</tr>"; |
| 162 | } |
162 | } |
| 163 | |
163 | |
|
|
164 | my $W2 = $W + 600; |
|
|
165 | |
| 164 | print "</table></p><hr/><p style='font-size: 8pt'>created by <b>cfmap2html</b> version $VERSION</p>", |
166 | print "</table></p><hr/><p style='font-size: 8pt'>created by <b>cfmap2html</b> version $VERSION</p>", |
| 165 | "<p style='height: 600px;'/></body></html>"; |
167 | "<p style='width: ${W2}px; height: 600px;'/></body></html>"; |
| 166 | |
168 | |
| 167 | close $fh; |
169 | close $fh; |
| 168 | |
170 | |
| 169 | system "gzip", "-7f", "$path.html"; |
171 | system "gzip", "-7f", "$path.html"; |
| 170 | } |
172 | } |
