src/server/httpd/editfile.tcl

   1 # converted to .tcl by html2tcl.tcl
   2 set buffer ""
   3 append buffer {
   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
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51
  52
  53
  54
  55
  56
  57
  58
  59
  60
  61                 <html xmlns="http://www.w3.org/TR/REC-html40">
  62 <head>
  63 <title>Zylin ZY1000 JTAG debugger</title>
  64 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>
  65 <link type="text/css" rel="stylesheet" href="menuweb.css"/>
  66 </head>
  67 }
  68
  69                                 set console ""
  70                                 set upload_filename /ram/upload
  71
  72 append buffer {
  73 <body style="margin:0px;">
  74 <div style="width:974px;height:85px;">
  75 <div style="float:left;position:relative;left:32px;width:478px;">
  76 <a href="/">
  77 <img src="menu_cuts/logo_top.png" style="border:0px;"/>
  78 </a>
  79 </div>
  80 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">
  81 <div style="position:relative;left:15px;top:4px;" class="textlight">
  82 }
  83 append buffer [capture version]
  84 append buffer {
  85 </div>
  86 </div>
  87 </div>
  88 <table style="padding:0px;border-collapse:collapse;">
  89 <tr>
  90 <td style="width:33px;">
  91 <div style="width:20px;height:510px;">
  92                                                                 &nbsp;
  93                                                         </div>
  94 </td>
  95 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">
  96 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">
  97 <tr style="height:59px;">
  98 <td/>
  99 </tr>
 100 <tr>
 101 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
 102 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
 103 <a href="zy1000.tcl" style="">Set IP Address</a>
 104 </div>
 105 </td>
 106 </tr>
 107 <tr>
 108 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
 109 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
 110 <a href="upgrade.tcl" style="">ZY1000 Firmware</a>
 111 </div>
 112 </td>
 113 </tr>
 114 <tr>
 115 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab_selected.png');background-repeat: no-repeat;">
 116 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
 117 <a href="editfile.tcl" style="font-weight: bold;">Edit File</a>
 118 </div>
 119 </td>
 120 </tr>
 121 <tr>
 122 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
 123 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
 124 <a href="support.tcl" style="">Support Request</a>
 125 </div>
 126 </td>
 127 </tr>
 128 <tr>
 129 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab.png');background-repeat: no-repeat;">
 130 <div style="position:relative;left:10px;top:10px;font-weight:bold;">
 131 <a href="log.tcl#tail" style="">View Tail of Log</a>
 132 </div>
 133 </td>
 134 </tr>
 135 <tr>
 136 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>
 137 </tr>
 138 <tr>
 139 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>
 140 </tr>
 141 <tr>
 142 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>
 143 </tr>
 144 </table>
 145 </td>
 146 <td style="vertical-align:top;padding:0px;height:100%">
 147 <table style="padding:0px;border-collapse:collapse;height:100%;">
 148 <tr>
 149 <td>
 150 <table style="padding:0px;border-collapse:collapse;">
 151 <tr>
 152 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 153 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 154 <a href="/ram/cgi/index.tcl">Config Target</a>
 155 </div>
 156 </td>
 157 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 158 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 159 <a href="/ram/cgi/flashinfo.tcl">Flash</a>
 160 </div>
 161 </td>
 162 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 163 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 164 <a href="/ram/cgi/browsemem.tcl">Memory</a>
 165 </div>
 166 </td>
 167 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">
 168 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 169 <a href="/ram/cgi/openocd.tcl">OpenOCD</a>
 170 </div>
 171 </td>
 172 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">
 173 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">
 174 <a href="/ram/cgi/zy1000.tcl" style="font-weight: bold;">Setup ZY1000</a>
 175 </div>
 176 </td>
 177 </tr>
 178 </table>
 179 </td>
 180 </tr>
 181 <tr>
 182 <td style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
 183 <div style="width:500px;background-color:#ffffff;height:100%;">
 184                                                                                         &nbsp;
 185                                                                                 </div>
 186 </td>
 187 </tr>
 188 <tr>
 189 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">
 190 <H1>Edit File</H1>
 191 </td>
 192 </tr>
 193 <tr style="height:100%;">
 194 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">
 195 }
 196
 197
 198
 199 #Read a text file, edit it and write it back. Useful for interactive debugging
 200 #of tcl scripts
 201
 202 set data ""
 203 append buffer {<form action="editfile.tcl" method="post">} "\n"
 204
 205 set err "";
 206
 207 set form_edittext [formfetch form_edittext];
 208 set form_action [formfetch form_action];
 209 set form_filename [formfetch form_filename];
 210
 211 puts Action $form_action
 212
 213 if {[string compare $form_action "Load"]==0} {
 214
 215         set form_edittext ""
 216         catch {
 217                 set fp [aio.open $form_filename r];
 218                 set form_edittext [$fp read];
 219                 $fp close;
 220         } err
 221 }
 222 if {[string compare $form_action "Delete"]==0} {
 223         capture "rm $form_filename"
 224 }
 225
 226 set form_edittext_subst [to_textarea $form_edittext]
 227
 228
 229 if {[string compare $form_action "Save"]==0} {
 230         if {[catch {
 231                 set fp [aio.open $form_filename w];
 232                 $fp puts [from_textarea $form_edittext]
 233                 $fp close
 234                 append buffer "Wrote file $form_filename<br>"
 235         } err]} {
 236                 append buffer "Could not write $form_filename<br>"
 237         }
 238 }
 239
 240
 241
 242
 243 append buffer {<table><tr><td class="formtext">File</td><td style="padding-top:1px;"><input type="text" name="form_filename" } "\n"
 244 append buffer "value=\"$form_filename\" ></td>\n"
 245 append buffer {<td class="buttonspacesmall">&nbsp</td><td><input type="submit" value="Load" name="form_action" ></td><td class="buttonspacesmall">&nbsp</td><td><input type="submit" value="Save" name="form_action"></td><td class="buttonspacesmall">&nbsp</td><td><input type="submit" value="Delete" name="form_action"></td>} "\n"
 246 append buffer {</tr></table>} "\n"
 247 append buffer {<br>}
 248
 249 append buffer {<textarea  style="overflow:auto;"  rows="18" cols="65" name="form_edittext" wrap="off">}
 250 append buffer $form_edittext_subst
 251 append buffer {</textarea><br>}
 252
 253 append buffer {</html> } "\n"
 254
 255
 256
 257 append buffer {
 258
 259                         </td>
 260 </tr>
 261 }
 262
 263
 264                                                                         set toggle_details [formfetch toggle_details]
 265                                                                         if {[string length $toggle_details]==0} {
 266                                                                                 set toggle_details 0
 267                                                                         }
 268                                                                         set show_details [load_var show_details]
 269                                                                         if {[string length $show_details]==0} {
 270                                                                                 set show_details 0
 271                                                                         }
 272                                                                         if {$toggle_details==1} {
 273                                                                                 set show_details [expr 1-$show_details]
 274                                                                                 save_var show_details $show_details
 275                                                                         }
 276
 277                                                                         if {[string length $console]!=0} {
 278
 279 append buffer {
 280 <tr style="height:100%;">
 281 <td style="height:100%;background-color:red;" colspan="6">
 282 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">
 283 <td style="width:25px;">&nbsp;</td>
 284 }
 285
 286                                                                                                                 if {$show_details==1} {
 287                                                                                                                         append buffer <
 288                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}
 289                                                                                                                         append buffer >
 290                                                                                                                 } else {
 291                                                                                                                         append buffer <
 292                                                                                                                         append buffer {td style="background-image:url('menu_cuts/h_tab_free.png');width:110px;height:29px;background-repeat: no-repeat;background-position:top left;"}
 293                                                                                                                         append buffer >
 294                                                                                                                 }
 295
 296 append buffer {
 297 <a class="openocd" href="/ram/cgi/editfile.tcl?toggle_details=1">
 298 }
 299
 300                                                                                                                         if {$show_details==1} {
 301                                                                                                                                 append buffer "Hide details"
 302                                                                                                                                 append buffer <br/>
 303                                                                                                                         } else {
 304                                                                                                                                 append buffer {<div style="position:relative;top:7px;text-align:center;">}
 305                                                                                                                                 append buffer "Show details"
 306                                                                                                                                 append buffer {</div>}
 307                                                                                                                         }
 308
 309 append buffer {
 310 </a>
 311 }
 312
 313                                                                                                                         if {$show_details==1} {
 314                                                                                                                                 append buffer $console
 315                                                                                                                         }
 316
 317 append buffer {</td>}
 318
 319                                                                                                                 if {$show_details!=1} {
 320                                                                                                                         append buffer {<td>&nbsp;</td>}
 321                                                                                                                 }
 322
 323 append buffer {
 324 <td style="width:25px;">&nbsp;</td>
 325 </table>
 326 </td>
 327 </tr>
 328 }
 329
 330                                                                          }
 331
 332 append buffer {
 333 <tr>
 334 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">
 335 <div style="width:500px;background-color:#ffffff;height:100%;">
 336                                                                                         &nbsp;
 337                                                                                 </div>
 338 </td>
 339 </tr>
 340 </table>
 341 </td>
 342 <td style="width:6px;"/>
 343 <td style="width:245px;height:100%">
 344 <table style="padding:0px;border-collapse:collapse;height:100%;">
 345 <tr>
 346 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">
 347 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">
 348                                                                                     Documentation
 349                                                                                  </div>
 350 </td>
 351 <td width="40px">
 352                                                                                 &nbsp;
 353                                                                         </td>
 354 <td/>
 355 </tr>
 356 <tr>
 357 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>
 358 </tr>
 359 <tr>
 360 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">
 361 <a target="_blank" href="http://www.zylin.com/zy1000/ZY1000_Quick_Start_Guide.pdf">Quick Start Manual</a>
 362 <br/>
 363 <a target="_blank" href="http://www.zylin.com/zy1000/openocd.pdf">OpenOCD Manual</a>
 364 <br/>
 365 <a target="_blank" href="http://www.zylin.com/zy1000_contact.html">Contact Zylin AS</a>
 366 </td>
 367 </tr>
 368 <tr>
 369 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 370 </tr>
 371 <tr>
 372 <td colspan="3">
 373 <table style="padding:0px;border-collapse:collapse;">
 374 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 375 <td style="background-color:#999999;width:225px; height:1px;"/>
 376 <td style="background-color:#d8d7d7;width:10px;height:1px"/>
 377 </table>
 378 </td>
 379 </tr>
 380 <tr>
 381 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>
 382 </tr>
 383 <tr style="height:100%;">
 384 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">
 385
 386                                 Edit any file on the ZY1000 by typing in the
 387                                 filename and pressing Load.
 388                                 </p>
 389                                 <table style="line-height:17px;"><tr>
 390                                         <td><a href="/ram" target="_blank">Browse files on /ram</a><br>
 391                                         <a href="/config" target="_blank">Browse files on /config</a><br>
 392                                         <a href="/rom" target="_blank">Browse files on /rom</a></td>
 393                                 </tr></table>
 394
 395                         </td>
 396 </tr>
 397 <tr>
 398 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">
 399                                                                                 &nbsp;
 400                                                                         </td>
 401 </tr>
 402 </table>
 403 </td>
 404 </tr>
 405 <tr>
 406 <td/>
 407 <td>
 408 <img border="0" src="menu_cuts/logo_bottom.png"/>
 409 </td>
 410 </tr>
 411 </table>
 412 </body>
 413 </html>
 414
 415
 416
 417
 418
 419
 420
 421
 422
 423
 424
 425
 426
 427
 428
 429
 430
 431 }
 432
 433 start_chunked "html"
 434 write_chunked $buffer
 435 end_chunked
 436