src/server/httpd/httpd.tcl

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