diff options
author | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-11-11 08:15:49 +0100 |
---|---|---|
committer | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-11-15 09:18:21 +0100 |
commit | fdae51287cf55a039f3401ed92151dbf518e4e7f (patch) | |
tree | 9a3bd5c3701da090b444b70770c941bdcce47058 /src/server/httpd/httpd.tcl | |
parent | 015bf559444edd9e7c524e951aad183fdaab9156 (diff) | |
download | openocd_libswd-fdae51287cf55a039f3401ed92151dbf518e4e7f.tar.gz openocd_libswd-fdae51287cf55a039f3401ed92151dbf518e4e7f.tar.bz2 openocd_libswd-fdae51287cf55a039f3401ed92151dbf518e4e7f.tar.xz openocd_libswd-fdae51287cf55a039f3401ed92151dbf518e4e7f.zip |
httpd: retire this server
this never panned out and there are enough mistakes in
the code that probably nobody used this.
Use the tcl server and implement a standalone http
app instead works fine.
Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
Diffstat (limited to 'src/server/httpd/httpd.tcl')
-rw-r--r-- | src/server/httpd/httpd.tcl | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/src/server/httpd/httpd.tcl b/src/server/httpd/httpd.tcl deleted file mode 100644 index dfa9e335..00000000 --- a/src/server/httpd/httpd.tcl +++ /dev/null @@ -1,100 +0,0 @@ -# some dummy proc's to get things going for test purposes - - - -proc ip {} { -return 10.0.0.55 -} - -proc start_chunked {a} { - global httpdata - global httpmime - set httpmime $a - set httpdata "" -} - -proc write_chunked {a} { - global httpdata - append httpdata $a -} - -proc end_chunked {} { -} - - - -#proc formfetch {a} { -# global httppostdata - #catch { -# echo "$a=$httppostdata($a)" - #return $httppostdata($a) - #} -# - #return "" -#} - - - - -proc tohex {a} { - set r "" - while 1 { - - set rem [expr $a%16] - set a [expr $a/16] - set r [string index "0123456789abcdef" $rem]$r - if ($a==0) then break - } - return $r -} - -# encode text -proc encode {a} { - return [string map {\n <br/> { } { } \t { } > > < < / /} $a] -} - -#stubs that can be overriden to save between sessions -proc load_var {a} { - global glob_var - catch { - return $glob_var($a) - } - return "" -} -#stubs that can be overriden to save between sessions -proc save_var {a b} { - catch { - set glob_var($a) $b - return "" - } err - set glob_var($a) "" - return "" -} - - - -proc to_textarea {a} { - return [string map {& & > > < < / /} $a] -} - -proc from_textarea {a} { - return [string map {> > < < & & / /} $a] -} - -proc lunion {a b} { - foreach e $a { - set x($e) {} - } - foreach e $b { - if {![info exists x($e)]} { - lappend a $e - } - } - return $a -} - - -proc first_flash_base {} { - set t [lindex 0 [ocd_flash_banks]] - return $t(base) -} |