/usr/lib/tcltk/rivet2.1/rivet-tcl/html.tcl is in libapache2-mod-rivet 2.1.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ###
## html <string> ?arg.. arg.. arg..?
## Print text with the added ability to pass HTML tags following the string.
## Example:
## html "Test" b i
##
## Will produce:
## <b><i>Test</i></b>
##
## string - A text string to be displayed.
## args - A list of HTML tags (without <>) to surround <string> in.
##
## $Id: html.tcl 1300262 2012-03-13 18:05:13Z mxmanghi $
##
###
namespace eval ::rivet {
proc html {string args} {
foreach arg $args { append output <$arg> }
append output $string
for {set i [expr {[llength $args] - 1} ]} {$i >= 0} {incr i -1} {
append output </[lindex [lindex $args $i] 0]>
}
puts $output
}
}
|