git.gag.com Git - fw/openocd/blob - src/server/httpd/httpd.tcl

   1 # some dummy proc's to get things going for test purposes\r
   2 \r
   3 \r
   4 \r
   5 proc ip {} {\r
   6 return 10.0.0.55\r
   7 }\r
   8 \r
   9 proc start_chunked {a} {\r
  10         global httpdata\r
  11         global httpmime\r
  12         set httpmime $a\r
  13         set httpdata ""\r
  14 }\r
  15 \r
  16 proc write_chunked {a} {\r
  17         global httpdata\r
  18         append httpdata $a\r
  19 }\r
  20 \r
  21 proc end_chunked {} {\r
  22 }\r
  23 \r
  24 \r
  25 \r
  26 #proc formfetch {a} {\r
  27 #       global httppostdata\r
  28         #catch { \r
  29 #       echo "$a=$httppostdata($a)"\r
  30         #return $httppostdata($a) \r
  31         #}\r
  32 #       \r
  33         #return ""  \r
  34 #}\r
  35 \r
  36 \r
  37 \r
  38 \r
  39 proc tohex {a} {\r
  40    set r ""\r
  41    while 1 {\r
  42 \r
  43       set rem [expr $a%16]\r
  44       set a [expr $a/16]\r
  45       set r [string index "0123456789abcdef" $rem]$r\r
  46       if ($a==0) then break\r
  47    }  \r
  48    return $r \r
  49 }\r
  50 \r
  51 # encode text\r
  52 proc encode {a} {\r
  53         return [string map {\n <br/> { } {&nbsp;} \t {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} > &gt; < &lt; / &#47;} $a]\r
  54 }\r
  55 \r
  56 #stubs that can be overriden to save between sessions\r
  57 proc load_var {a} {\r
  58         global glob_var\r
  59         catch {\r
  60                 return $glob_var($a)\r
  61         }\r
  62         return ""\r
  63 }\r
  64 #stubs that can be overriden to save between sessions\r
  65 proc save_var {a b} {\r
  66         catch { \r
  67         set glob_var($a) $b\r
  68         return ""\r
  69         } err\r
  70         set glob_var($a) ""\r
  71         return ""\r
  72 }\r
  73 \r
  74 \r
  75 \r
  76 proc to_textarea {a} {\r
  77         return [string map {& &#38; > &gt; < &lt; / &#47;} $a]\r
  78 }       \r
  79 \r
  80 proc from_textarea {a} {\r
  81         return [string map {&gt; > &lt; < &#38; & &#47; /} $a]\r
  82 }\r
  83         \r
  84 proc lunion {a b} {\r
  85         foreach e $a {\r
  86                 set x($e) {}\r
  87         }\r
  88         foreach e $b {\r
  89                 if {![info exists x($e)]} {\r
  90                 lappend a $e\r
  91                 }\r
  92         }\r
  93         return $a\r
  94 }\r
  95  \r
  96 \r
  97 # encode text\r
  98 proc encode {a} {\r
  99         return [string map {\n <br/> { } {&nbsp;} \t {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} > &gt; < &lt; / &#47;} $a]\r
 100 }\r
 101 \r
 102 # catch any exceptions, capture output and return it \r
 103 proc capture_catch {a} {\r
 104         catch {\r
 105                 return [eval {capture $a}]\r
 106         } result\r
 107         return $result\r
 108 }\r