← Back to branch summary

~ubuntu-branches/debian/stretch/alpine/stretch

« back to all changes in this revision

Viewing changes to web/cgi/alpine/header.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Asheesh Laroia
  • Date: 2007-02-17 13:17:42 UTC
  • Revision ID: james.westby@ubuntu.com-20070217131742-99x5c6cpg1pbkdhw
Tags: upstream-0.82+dfsg
Import upstream version 0.82+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
web/cgi/alpine/header.tcl
 
1
#!./tclsh
 
2
# $Id: header.tcl 391 2007-01-25 03:53:59Z mikes@u.washington.edu $
 
3
# ========================================================================
 
4
# Copyright 2006 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
#  header.tcl
 
15
#
 
16
#  Purpose:  CGI script to generate generic header for 
 
17
#            webpine-lite pages.  the idea is that this
 
18
#            page goes in the {title,nav}-bar portion of a
 
19
#            framed page so we keep the servlet alive via
 
20
#            periodic reloads while more static/form stuff
 
21
#            is displayed in the "body" frame.
 
22
 
 
23
#  Input:
 
24
set header_vars {
 
25
  {title        ""      "0,0"}
 
26
  {reload}
 
27
}
 
28
 
 
29
#  Output:
 
30
#
 
31
 
 
32
# inherit global config
 
33
source ./alpine.tcl
 
34
source cmdfunc.tcl
 
35
 
 
36
set nologo 0
 
37
set about {}
 
38
 
 
39
WPEval $header_vars {
 
40
 
 
41
  set tv [split $title ","]
 
42
  switch -- [lindex $tv 0] {
 
43
    10 {
 
44
      set title_text "Compose New Message"
 
45
    }
 
46
    20 {
 
47
      set title_text "Postponed Message"
 
48
    }
 
49
    30 {
 
50
      set title_text "Forward Message"
 
51
      if {[regexp {^[0-9]*$} [lindex $tv 1]]} {
 
52
        append title_text " [lindex $tv 1]"
 
53
      }
 
54
    }
 
55
    40 {
 
56
      set title_text "Reply to Message"
 
57
      if {[regexp {^[0-9]*$} [lindex $tv 1]]} {
 
58
        append title_text " [lindex $tv 1]"
 
59
      }
 
60
    }
 
61
    50 {
 
62
      set title_text "Message Index"
 
63
      set nologo 1
 
64
    }
 
65
    60 {
 
66
      set title_text "Help System"
 
67
    }
 
68
    70 {
 
69
      set title_text "Address Books"
 
70
    }
 
71
    71 {
 
72
      set title_text "Edit Address Book Entry"
 
73
    }
 
74
    72 {
 
75
      set title_text "New Address Book Entry"
 
76
    }
 
77
    73 {
 
78
      set title_text "Address Selection"
 
79
    }
 
80
    74 {
 
81
      set title_text "LDAP Query Result Selection"
 
82
    }
 
83
    80 {
 
84
      set title_text "Select Postponed Message"
 
85
    }
 
86
    90 {
 
87
      set title_text "Expunge Deleted Messages"
 
88
      set nologo 1
 
89
    }
 
90
    101 {
 
91
      set title_text "Select Messages by Date"
 
92
      set nologo 1
 
93
    }
 
94
    102 {
 
95
      set title_text "Select Messages by Text"
 
96
      set nologo 1
 
97
    }
 
98
    103 {
 
99
      set title_text "Select Messages by Status"
 
100
      set nologo 1
 
101
    }
 
102
    104 {
 
103
      set title_text "Search and Mark Messages"
 
104
      set nologo 1
 
105
    }
 
106
    110 {
 
107
      set title_text "Attach a File"
 
108
    }
 
109
    120 {
 
110
      set title_text "File Creation Confirmation"
 
111
      set nologo 1
 
112
    }
 
113
    130 {
 
114
      set title_text "Authentication Required"
 
115
    }
 
116
    140 {
 
117
      set title_text "Web Alpine Help"
 
118
    }
 
119
    150 {
 
120
      set title_text "Configuration"
 
121
    }
 
122
    151 {
 
123
      set title_text "Add Collection Configuration"
 
124
    }
 
125
    152 {
 
126
      set title_text "Edit Collection Configuration"
 
127
    }
 
128
    153 {
 
129
      set title_text "Add Filter Configuration"
 
130
    }
 
131
    154 {
 
132
      set title_text "Edit Filter Configuration"
 
133
    }
 
134
    160 {
 
135
      set title_text "Set Message Flags"
 
136
      set nologo 1
 
137
    }
 
138
    170 {
 
139
      set title_text "Confirm Folder Delete"
 
140
    }
 
141
    171 {
 
142
      set title_text "New Folder Creation"
 
143
    }
 
144
    172 {
 
145
      set title_text "New Directory Creation"
 
146
    }
 
147
    173 {
 
148
      set title_text "Folder Rename"
 
149
    }
 
150
    174 {
 
151
      set title_text "Create New Folder or Directory"
 
152
    }
 
153
    180 {
 
154
      set title_text "Spell Check Composition"
 
155
    }
 
156
    190 {
 
157
      set title_text "Save Messages"
 
158
      set nologo 1
 
159
    }
 
160
    200 {
 
161
      set title_text "Attachment Display"
 
162
    }
 
163
    210 {
 
164
      set title_text "Take Addresses"
 
165
    }
 
166
    211 {
 
167
      set title_text "Take Address Edit"
 
168
    }
 
169
    212 {
 
170
      set title_text "Take Address Same Nickname"
 
171
    }
 
172
    220 {
 
173
      set title_text "Folder List for Save"
 
174
      set nologo 1
 
175
    }
 
176
    221 {
 
177
      set title_text "Folder List for Save"
 
178
    }
 
179
    222 {
 
180
      set title_text "Folder To Save To"
 
181
      set nologo 1
 
182
    }
 
183
    223 {
 
184
      set title_text "Folder To Save To"
 
185
    }
 
186
    230 {
 
187
      set title_text "Quitting Web Alpine"
 
188
    }
 
189
    240 {
 
190
      set title_text "LDAP Query"
 
191
    }
 
192
    250 {
 
193
      set title_text "Folder Upload and Import"
 
194
    }
 
195
    260 {
 
196
      set title_text "Monthly Folder Clean Up"
 
197
    }
 
198
    default {
 
199
      if {[catch {WPCmd PEInfo set wp_header_title} title_text]} {
 
200
        set title_text Untitled
 
201
      }
 
202
    }
 
203
  }
 
204
 
 
205
  WPCmd PEInfo set wp_header_title $title_text
 
206
 
 
207
  if {[catch {WPNewMail $reload} newmail]} {
 
208
    error [list _action "new mail" $newmail]
 
209
  }
 
210
 
 
211
  cgi_http_head {
 
212
    WPStdHttpHdrs text/html
 
213
  }
 
214
 
 
215
  cgi_html {
 
216
    cgi_head {
 
217
      WPStdHtmlHdr Header
 
218
      WPHtmlHdrReload "$_wp(appdir)/header.tcl?sessid=$sessid"
 
219
      WPStyleSheets
 
220
    }
 
221
 
 
222
    cgi_body bgcolor=$_wp(bordercolor) background=[file join $_wp(imagepath) logo $_wp(logodir) back.gif] "style=\"background-repeat: repeat-x\"" {
 
223
      WPTFTitle $title_text $newmail $nologo $about
 
224
    }
 
225
  }
 
226
}