summaryrefslogtreecommitdiff
path: root/web/cgi/session/logout/logout.tcl
diff options
context:
space:
mode:
authorEduardo Chappa <echappa@gmx.com>2013-02-03 00:59:38 -0700
committerEduardo Chappa <echappa@gmx.com>2013-02-03 00:59:38 -0700
commit094ca96844842928810f14844413109fc6cdd890 (patch)
treee60efbb980f38ba9308ccb4fb2b77b87bbc115f3 /web/cgi/session/logout/logout.tcl
downloadalpine-094ca96844842928810f14844413109fc6cdd890.tar.xz
Initial Alpine Version
Diffstat (limited to 'web/cgi/session/logout/logout.tcl')
-rwxr-xr-xweb/cgi/session/logout/logout.tcl51
1 files changed, 51 insertions, 0 deletions
diff --git a/web/cgi/session/logout/logout.tcl b/web/cgi/session/logout/logout.tcl
new file mode 100755
index 00000000..39587e4e
--- /dev/null
+++ b/web/cgi/session/logout/logout.tcl
@@ -0,0 +1,51 @@
+#!./tclsh
+
+
+#
+# and any global config
+#
+
+source ./alpine.tcl
+
+cgi_eval {
+
+ cgi_input
+
+ if {[catch {cgi_import serverid}]} {
+ set serverid 0
+ }
+
+ catch {cgi_import logerr}
+
+ cgi_http_head {
+ WPStdHttpHdrs
+
+ # clear cookies
+ cgi_cookie_set sessid=0 expires=now
+ }
+
+ if {[info exists env(REMOTE_USER)]} {
+ set log_text [font class=notice "Protect your privacy![cgi_nl]When you finish, [cgi_url "completely exit your Web browser" http://www.washington.edu/computing/web/logout.html class=notice]."]
+ append log_text "[cgi_nl][cgi_nl]Or you may want to:"
+ append log_text "<center><ul>"
+ if {[catch {cgi_import ppg}]} {
+ set perpage ""
+ } else {
+ set perpage "&ppg=$ppg"
+ }
+
+ append log_text "<li>[cgi_url "restart Web Alpine" "http://alpine.washington.edu"]"
+ append log_text "<li>[cgi_url "go to MyUW" "http://myuw.washington.edu"]"
+ append log_text "</ul></center>"
+ set log_url ""
+ } else {
+ set log_text "Please visit the [cgi_link Start] for a new session."
+ set log_url $_wp(serverpath)/
+ }
+
+ if {[info exists logerr] && [string length $logerr]} {
+ set log_text "[cgi_bold "Please Note"]: A problem, \"$logerr\", occurred while ending your session.<p>${log_text}"
+ }
+
+ WPInfoPage "Logged Out" "[font size=+2 face=Helvetica "Thank you for using Alpine"]" $log_text $log_url
+}