1
# $Id: main.tcl 391 2007-01-25 03:53:59Z mikes@u.washington.edu $
2
# ========================================================================
3
# Copyright 2006 University of Washington
5
# Licensed under the Apache License, Version 2.0 (the "License");
6
# you may not use this file except in compliance with the License.
7
# You may obtain a copy of the License at
9
# http://www.apache.org/licenses/LICENSE-2.0
11
# ========================================================================
20
if {[catch {WPImport f_name "x"}] == 0 && [catch {WPImport f_colid "x"}] == 0} {
21
append parms "&f_name=${f_name}&f_colid=${f_colid}"
23
if {[catch {WPImport send "x"}] == 0} {
24
append parms "&send=${send}"
35
WPExportCookie sessid "$_wp(sessid)@[info hostname]" $_wp(appdir)
40
WPStdHtmlHdr "WebPine"
43
cgi_frameset "cols=112,*" frameborder=0 framespacing=0 {
44
cgi_frame gen=common.tcl?m=[WPCmd PEMailbox mailboxname]&c=[WPCmd PEInfo key]&v=[WPScriptVersion common]&q=[WPCmd PEInfo feature quit-without-confirm] title="Navigation Commands"
46
if {[catch {WPCmd PEInfo set wp_spec_script} script]} {
47
set script fr_index.tcl
52
if {[info exists frame_vars]} {
53
foreach v $frame_vars {
54
if {[string length [subst $[lindex $v 0]]]} {
55
append parms "&[lindex $v 0]=[subst $[lindex $v 0]]"
60
switch -regexp $script {
62
if {[catch {save_hack} x] == 0} {
66
if {[catch {WPCmd PEInfo set uid} uid] == 0} {
67
append parms "&uid=$uid"
70
if {[catch {WPCmd PEInfo set op} op] == 0} {
71
append parms "&op=$op"
76
if {[catch {save_hack} x] == 0} {
82
cgi_frame spec=${script}?c=[WPCmd PEInfo key]${parms} frameborder=0 title="Message List and View"