httpd wip
[fw/openocd] / src / server / httpd / index.tcl
1 # converted to .tcl by html2tcl.tcl\r
2 set buffer ""\r
3 append buffer {\r
4         \r
5         \r
6 \r
7                 <html xmlns="http://www.w3.org/TR/REC-html40">\r
8 <head>\r
9 <title>OpenOCD debugger</title>\r
10 <meta charset="utf-8" content="text/html" http-equiv="Content-Type"/>\r
11 <link type="text/css" rel="stylesheet" href="menuweb.css"/>\r
12 </head>\r
13 }\r
14 \r
15                                 set console ""\r
16                                 set upload_filename /ram/upload\r
17                         \r
18 append buffer {\r
19 <body style="margin:0px;">\r
20 <div style="width:974px;height:85px;">\r
21 <div style="float:left;position:relative;left:32px;width:478px;">\r
22 <a href="/">\r
23                                                         OpenOCD\r
24                                                 </a>\r
25 </div>\r
26 <div style="float:left;position:relative;height:26px; width:278px;left:122px;background-image:url('menu_cuts/top_right.png');">\r
27 <div style="position:relative;left:15px;top:4px;" class="textlight">\r
28 }\r
29 append buffer [capture version]\r
30 append buffer {\r
31 </div>\r
32 </div>\r
33 </div>\r
34 <table style="padding:0px;border-collapse:collapse;">\r
35 <tr>\r
36 <td style="width:33px;">\r
37 <div style="width:20px;height:510px;">\r
38                                                                 &nbsp;\r
39                                                         </div>\r
40 </td>\r
41 <td style="vertical-align:top;height:100%;width:140px;padding:0px;">\r
42 <table style="padding:0px;border-collapse:collapse;height:100%;width:140px;">\r
43 <tr style="height:59px;">\r
44 <td/>\r
45 </tr>\r
46 <tr>\r
47 <td style="width:140px;height:38px;background-image:url('menu_cuts/v_tab_selected.png');background-repeat: no-repeat;">\r
48 <div style="position:relative;left:10px;top:10px;font-weight:bold;">\r
49 <a href="index.tcl" style="font-weight: bold;">Target Status</a>\r
50 </div>\r
51 </td>\r
52 </tr>\r
53 <tr>\r
54 <td style="width:140px;height:35px;background-image:url('menu_cuts/v_1.png')"/>\r
55 </tr>\r
56 <tr>\r
57 <td style="width:140px;background-image:url('menu_cuts/v_2_tile.png')"/>\r
58 </tr>\r
59 <tr>\r
60 <td style="width:140px;height:140px;background-image:url('menu_cuts/v_3.png')"/>\r
61 </tr>\r
62 </table>\r
63 </td>\r
64 <td style="vertical-align:top;padding:0px;height:100%">\r
65 <table style="padding:0px;border-collapse:collapse;height:100%;">\r
66 <tr>\r
67 <td>\r
68 <table style="padding:0px;border-collapse:collapse;">\r
69 <tr>\r
70 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1_selected.png');background-repeat: no-repeat;">\r
71 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
72 <a href="index.tcl" style="font-weight: bold;">Config Target</a>\r
73 </div>\r
74 </td>\r
75 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
76 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
77 <a href="flashinfo.tcl">Flash</a>\r
78 </div>\r
79 </td>\r
80 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
81 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
82 <a href="browsemem.tcl">Memory</a>\r
83 </div>\r
84 </td>\r
85 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab1.png');background-repeat: no-repeat;">\r
86 <div style="position:relative;top:7px;font-weight:bold;text-align:center;width:100px;">\r
87 <a href="openocd.tcl">OpenOCD</a>\r
88 </div>\r
89 </td>\r
90 </tr>\r
91 </table>\r
92 </td>\r
93 </tr>\r
94 <tr>\r
95 <td style="height:30px;width:535px;background-image:url('menu_cuts/center_top.png');background-repeat: no-repeat;background-position:top right;" colspan="6">\r
96 <div style="width:500px;background-color:#ffffff;height:100%;">\r
97                                                                                         &nbsp;\r
98                                                                                 </div>\r
99 </td>\r
100 </tr>\r
101 <tr>\r
102 <td style="background-color:#ffffff;text-indent:30px;height:40px;" colspan="6">\r
103 <H1>OpenOCD debugger</H1>\r
104 </td>\r
105 </tr>\r
106 <tr style="height:100%;">\r
107 <td style="background-color:#ffffff;padding-left:30px;padding-right:30px;width=535px;height:100%;" colspan="6">\r
108 \r
109                         \r
110                         <table>\r
111                                 <tr><td style="height:10px;width:535px;">&nbsp</td></tr>\r
112                                 <tr><td style="height:1px;width:535px;background-color:#a2c5d1;"></td></tr>\r
113                                 <tr><td style="height:5px;width:535px;">&nbsp</td></tr>\r
114                         </table>\r
115 \r
116                         <H1>Target Status</H1>\r
117 \r
118                         <table>\r
119                                 <tr>\r
120                                         <td class="fontbigger">\r
121                                                 }\r
122 \r
123                                                         set form_address [formfetch form_address]\r
124                                                         set form_action [formfetch form_action]\r
125                                                         \r
126                                                         if {[string compare $form_action "Halt"]==0} {\r
127                                                                 append console [encode [capture_catch "halt"]]\r
128                                                         }\r
129                                                         if {[string compare $form_action "Resume"]==0} {\r
130                                                                 append console [encode [capture_catch "resume"]]\r
131                                                         }\r
132                                                           \r
133                                                         if {[string compare $form_action "Reset and run"]==0} {\r
134                                                                 append console [encode [capture_catch "reset run"]]\r
135                                                         }\r
136                                                         \r
137                                                         if {[string compare $form_action "Power on"]==0} {\r
138                                                                 append console [encode [capture_catch "power on"]]\r
139                                                         }\r
140                                                         if {[string compare $form_action "Power off"]==0} {\r
141                                                                 append console [encode [capture_catch "power off"]]\r
142                                                         }\r
143                                                 \r
144 append buffer {\r
145                                         \r
146                                                 }\r
147 append console [encode [capture_catch poll]]\r
148 append buffer {\r
149                                         </td>\r
150                                 </tr>\r
151                         </table>\r
152 \r
153                         <form action="index.tcl" method="post"> \r
154                                 <table><tr>\r
155                                         <td><input type="submit" name="form_action" value="Reset and run"></td>\r
156                                         <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Halt"></td>\r
157                                         <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Resume"></td>\r
158                                         <td style="width:50px;"></td><td><input type="submit" name="form_action" value="Power on"></td>\r
159                                         <td class="buttonspacesmall"></td><td><input type="submit" name="form_action" value="Power off"></td>\r
160                                 </tr></table>\r
161 \r
162                                 <br>                                            \r
163                                 <br>                                            \r
164                                                                                 \r
165                                 <p>\r
166                         </form>\r
167                         </td>\r
168 </tr>\r
169 }\r
170 \r
171                                                                         \r
172                                                                         set toggle_details [formfetch toggle_details]\r
173                                                                         if {[string length $toggle_details]==0} {\r
174                                                                                 set toggle_details 0\r
175                                                                         }\r
176                                                                         set show_details [load_var show_details]\r
177                                                                         if {[string length $show_details]==0} {\r
178                                                                                 set show_details 0\r
179                                                                         }\r
180                                                                         if {$toggle_details==1} {\r
181                                                                                 set show_details [expr 1-$show_details]\r
182                                                                                 save_var show_details $show_details\r
183                                                                         }\r
184                                                                         \r
185                                                                         if {[string length $console]!=0} {\r
186                                                                                 \r
187 append buffer {\r
188 <tr style="height:100%;">\r
189 <td style="height:100%;background-color:red;" colspan="6">\r
190 <table style="padding:0px;border-collapse:collapse;background-color:#ffffff;width:100%" class="textgray">\r
191 <td style="width:25px;">&nbsp;</td>\r
192 }\r
193 \r
194                                                                                                                 if {$show_details==1} {\r
195                                                                                                                         append buffer <\r
196                                                                                                                         append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"}\r
197                                                                                                                         append buffer >\r
198                                                                                                                 } else {\r
199                                                                                                                         append buffer <\r
200                                                                                                                         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;"}\r
201                                                                                                                         append buffer >\r
202                                                                                                                 }\r
203                                                                                                         \r
204 append buffer {\r
205 <a class="openocd" href="index.tcl?toggle_details=1">\r
206 }\r
207 \r
208                                                                                                                         if {$show_details==1} {\r
209                                                                                                                                 append buffer "Hide details"\r
210                                                                                                                                 append buffer <br/>\r
211                                                                                                                         } else {\r
212                                                                                                                                 append buffer {<div style="position:relative;top:7px;text-align:center;">}\r
213                                                                                                                                 append buffer "Show details"\r
214                                                                                                                                 append buffer {</div>}\r
215                                                                                                                         }\r
216                                                                                                                         \r
217 append buffer {\r
218 </a>\r
219 }\r
220 \r
221                                                                                                                         if {$show_details==1} {\r
222                                                                                                                                 append buffer $console\r
223                                                                                                                         }\r
224                                                                                                                 \r
225 append buffer {</td>}\r
226 \r
227                                                                                                                 if {$show_details!=1} {\r
228                                                                                                                         append buffer {<td>&nbsp;</td>}\r
229                                                                                                                 }\r
230                                                                                                          \r
231 append buffer {\r
232 <td style="width:25px;">&nbsp;</td>\r
233 </table>\r
234 </td>\r
235 </tr>\r
236 }\r
237 \r
238                                                                          }\r
239                                                                 \r
240 append buffer {\r
241 <tr>\r
242 <td style="height:30px;background-image:url('menu_cuts/center_bottom.png');background-repeat: no-repeat;background-position:top right;" colspan="6">\r
243 <div style="width:500px;background-color:#ffffff;height:100%;">\r
244                                                                                         &nbsp;\r
245                                                                                 </div>\r
246 </td>\r
247 </tr>\r
248 </table>\r
249 </td>\r
250 <td style="width:6px;"/>\r
251 <td style="width:245px;height:100%">\r
252 <table style="padding:0px;border-collapse:collapse;height:100%;">\r
253 <tr>\r
254 <td style="width:103px;height:29px;background-image:url('menu_cuts/h_tab2_selected.png');background-repeat: no-repeat;">\r
255 <div style="position:relative;top:7px;;font-weight:bold;text-align:center;width:100px;" class="textgray">\r
256                                                                                     Documentation\r
257                                                                                  </div>\r
258 </td>\r
259 <td width="40px">\r
260                                                                                 &nbsp;\r
261                                                                         </td>\r
262 <td/>\r
263 </tr>\r
264 <tr>\r
265 <td style="height:10px;width:245px;background-image:url('menu_cuts/right_top_small.png');" colspan="3"/>\r
266 </tr>\r
267 <tr>\r
268 <td style="background-color:#d8d7d7;width:245px;padding-left:10px;padding-buttom:10px;line-height:17px;" colspan="3">\r
269 <a target="_blank" href="http://openocd.berlios.de/doc/openocd.pdf">OpenOCD Manual</a>\r
270 <br/>\r
271 </td>\r
272 </tr>\r
273 <tr>\r
274 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
275 </tr>\r
276 <tr>\r
277 <td colspan="3">\r
278 <table style="padding:0px;border-collapse:collapse;">\r
279 <td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
280 <td style="background-color:#999999;width:225px; height:1px;"/>\r
281 <td style="background-color:#d8d7d7;width:10px;height:1px"/>\r
282 </table>\r
283 </td>\r
284 </tr>\r
285 <tr>\r
286 <td style="background-color:#d8d7d7;height:15px;" colspan="3"/>\r
287 </tr>\r
288 <tr style="height:100%;">\r
289 <td style="height:100%;background-color:#d8d7d7;padding-left:10px;padding-right:10px;" colspan="3" class="textgray">\r
290                                 \r
291                                         <p>Target status shows that status of the connected target. </p> \r
292                                         <p><b>Current target</b> - selected target configuration. <br>\r
293                                         <p><b>Startup</b> - whether or not the target script ran to completion. Note\r
294                                         that even if the target is disconnected, powered down or unresponsive, the\r
295                                         startup script will still run to completion. Startup - OK does not mean\r
296                                         that the target is fully operational, simply that the configuration script\r
297                                         did not contain syntax errors for instance. \r
298                                         See log for details. <br>\r
299                                         <p><b>Target power</b> - Detects power on target. <br>\r
300                                         If the JTAG cable is not connected, or the target has no power, then no target power will be detected.</p>\r
301                                         <p>Type "help power" in telnet for command to control power relay.</p>\r
302                                 \r
303                         </td>\r
304 </tr>\r
305 <tr>\r
306 <td style="height:30px;background-image:url('menu_cuts/right_bottom.png');" colspan="3">\r
307                                                                                 &nbsp;\r
308                                                                         </td>\r
309 </tr>\r
310 </table>\r
311 </td>\r
312 </tr>\r
313 </table>\r
314 </body>\r
315 </html>\r
316                 \r
317                 \r
318 \r
319 \r
320                 \r
321 \r
322 \r
323 \r
324                 \r
325                 \r
326 \r
327                 \r
328 \r
329 \r
330 \r
331 \r
332                 \r
333 \r
334 \r
335 \r
336                 \r
337 \r
338 \r
339                 \r
340 \r
341 \r
342                 \r
343 \r
344                 \r
345 \r
346 \r
347                 \r
348 \r
349 \r
350 \r
351                 \r
352 \r
353                 \r
354                 \r
355                 \r
356                 \r
357 \r
358 \r
359                 \r
360 \r
361 \r
362                 \r
363 \r
364 \r
365                 \r
366 \r
367 \r
368                 \r
369         \r
370         \r
371 }\r
372 \r
373 start_chunked "html"\r
374 write_chunked $buffer\r
375 end_chunked\r
376 \r