# prosty przyklad uzycia serwera tclhttpd...
#

lappend auto_path /root/tcl/tcllib
  # podac sciezke do tcllib (trzeba rozpakowac tar.gz -ta)
  # to musi byc sciezka bez "~" !!!, bo tclhttpd zmienia zm HOME

set argv ""
source ./tclhttpd3.5.1/bin/httpd_app.tcl
proc bgerror args {puts stderr $args}
  # uruchamia serwer...
  # + musi istniec katalog /tmp na biezacym dysku!

# directurl czyli procedura zwracajaca tresc do przegladarki
# + url do procedury wyglada tak: http://maszyna:8015/www/strona1
#
Direct_Url /www
#Direct_UrlRemove /www

proc /www/strona1 args {
  return "
    <p>args= $args</p>
    <p>a ku ku na stronie 1</p>
  "
}

proc /www/strona2 args {
  return "
    <p>a ku ku na stronie 2</p>
  "
}

set /www/sumaliczb text/plain
  # tak def typ mime odpowiedzi http
proc /www/sumaliczb {liczby} {
    # spodziewamy sie parametru "liczby"
    # z ciagiem liczb oddzielonych spacjami!
    #   http://maszyna:8015/www/sumaliczb?liczby=1 2 3 4
  set s 0
  foreach x $liczby {incr s $x}
  return $s
}

set /www/dodaj "text/plain"
proc /www/dodaj {a b} {
    # uwaga: brak obslugi bledow w args!!
  set r [expr {$a+$b}]
  return $r
}



vwait koniec

exit