#!/mod/bin/jimsh lassign [system padding] pre post proc padval {num str def} { puts -nonewline "<option value=$num" if {$num == $def} { puts -nonewline " selected" } puts ">$str" } puts { <ul id=optmenu class=contextMenu style="width: 200px"> <li class=delete><a href=#delete>Delete</a></li> <li class=separator><a href=#ar>Enable AR</a></li> <li class=separator><a href=#folder>Change Folder</a></li> </ul> <div id=padding style="display: none"> <form id=paddingf method=post action=pad.jim> <input type=hidden id=paddingsid name=slot value=0> <table class=keyval> <tr> <th>Start Padding</th> <td><select id=prepadding name=pre class="ui-widget-content ui-corner-all"> } padval 0 "Off" $pre padval 60 "1 minute" $pre padval 120 "2 minutes" $pre padval 300 "5 minutes" $pre padval 600 "10 minutes" $pre puts { </select></td> </tr><tr> <th>End Padding</th> <td><select id=postpadding name=post class="ui-widget-content ui-corner-all"> } padval 0 "Off" $post padval 60 "1 minute" $post padval 120 "2 minutes" $post padval 300 "5 minutes" $post padval 600 "10 minutes" $post puts { </select></td> </tr> </table> </form> </div> <div id=fchange title="Change folder" style="display: none"> <form id=fchangeform> <input type=hidden name=sid id=fchangeslot value=0> <table border=0> <tr> <th> <label for="name"> <b>New Folder Name</b> </label> </th> <td> <input type=text name="name" id="fchangename" value="" size=70 maxlength=255 class="text ui-widget-content ui-corner-all"> </td> </tr> </table> </form> </div> }