web/cgi/greeting.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!./tclsh

# ========================================================================
# Copyright 2006-2007 University of Washington
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# ========================================================================

source ./alpine.tcl

cgi_eval {

  cgi_http_head {
    cgi_redirect [cgi_root]/session/greeting.tcl
  }
}