forked from hummypkg/webif
28 lines
462 B
Tcl
Executable File
28 lines
462 B
Tcl
Executable File
#!/mod/bin/jimsh
|
|
|
|
source /mod/webif/lib/setup
|
|
require plugin system.class
|
|
|
|
proc menuitem {title icon link {width 217} {height 0} {extra ""}} {
|
|
if {$extra ne ""} { append extra " " }
|
|
puts -nonewline "
|
|
<div class=left>
|
|
<center>
|
|
<a href=$link>
|
|
<img src=$icon ${extra}border=0 width=$width"
|
|
if {$height} { puts -nonewline " height=$height" }
|
|
puts -nonewline ">
|
|
</a>
|
|
<br>
|
|
<a href=$link>
|
|
<b>$title</b>
|
|
</a>
|
|
<br>
|
|
</center>
|
|
</div>
|
|
"
|
|
}
|
|
|
|
eval_plugins menu
|
|
|