# converted to .tcl by html2tcl.tcl set buffer "" append buffer { OpenOCD debugger } set console "" set upload_filename /ram/upload append buffer {
OpenOCD
} append buffer [capture version] append buffer {
 
} set toggle_details [formfetch toggle_details] if {[string length $toggle_details]==0} { set toggle_details 0 } set show_details [load_var show_details] if {[string length $show_details]==0} { set show_details 0 } if {$toggle_details==1} { set show_details [expr 1-$show_details] save_var show_details $show_details } if {[string length $console]!=0} { append buffer { } } append buffer {
 

Run Command
} set form_command [formfetch form_command] set form_edittext "" if {[string length $form_command]>0} { set form_edittext [capture_catch {eval $form_command}] } append buffer {
} "\n" append buffer {Command
} append buffer {
} append buffer {
} append buffer {
} append buffer {
} "\n" append buffer {
} if {$show_details==1} { append buffer < append buffer {td style="background-color:#dddddd;padding-left:5px;padding-right:5px;padding-top:3px;padding-bottom:3px;"} append buffer > } else { append buffer < 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;"} append buffer > } append buffer { } if {$show_details==1} { append buffer "Hide details" append buffer
} else { append buffer {
} append buffer "Show details" append buffer {
} } append buffer { } if {$show_details==1} { append buffer $console } append buffer {} if {$show_details!=1} { append buffer {} } append buffer {
   
 
Documentation
 
OpenOCD Manual

Run tcl statement(s). Add "ocd_" prefix to OpenOCD commands otherwise there will be no output, e.g. "reset init" use "ocd_reset init".

Click here to download log.

To download log you can also use commands like "wget http://} append buffer [ip] append buffer {/ram/log", or point your web browser to said address.

You can also execute tcl commands using curl from your developer PC:

curl --form form_command=ocd_version } append buffer [ip] append buffer {runtcl.tcl
 
} start_chunked "html" write_chunked $buffer end_chunked