326
327
328
329
330
331
332
333
334
335
336
337
|
puts $fd " <tr>"
puts $fd " <td bgcolor=\"$bgcolor\"><small>$statustext</small></td>"
puts $fd " <td><small>$statusdetail</small></td>"
puts $fd " </tr>"
}
puts $fd " </table>"
puts $fd " <p>Generated on [clock format [clock seconds]]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
|
|
|
326
327
328
329
330
331
332
333
334
335
336
337
|
puts $fd " <tr>"
puts $fd " <td bgcolor=\"$bgcolor\"><small>$statustext</small></td>"
puts $fd " <td><small>$statusdetail</small></td>"
puts $fd " </tr>"
}
puts $fd " </table>"
puts $fd " <p>Generated on [clock format [clock seconds] -format {%Y%m%dT%H%M%SZ} -timezone :UTC]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
|