web/cgi/greeting.tcl

   1 #!./tclsh
   2
   3 # ========================================================================
   4 # Copyright 2006-2007 University of Washington
   5 #
   6 # Licensed under the Apache License, Version 2.0 (the "License");
   7 # you may not use this file except in compliance with the License.
   8 # You may obtain a copy of the License at
   9 #
  10 #     http://www.apache.org/licenses/LICENSE-2.0
  11 #
  12 # ========================================================================
  13
  14 source ./alpine.tcl
  15
  16 cgi_eval {
  17
  18   cgi_http_head {
  19     cgi_redirect [cgi_root]/session/greeting.tcl
  20   }
  21 }