1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
#!./tclsh
# $Id: seltext.tcl 1204 2009-02-02 19:54:23Z hubert@u.washington.edu $
# ========================================================================
# Copyright 2006 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
#
# ========================================================================
# seltext.tcl
#
# Purpose: CGI script to generate html form used to gather info
# for text selection
# Input:
set select_vars {
}
# Output:
#
# HTML/CSS data representing form for text select input
# coerce uid to zero since there's not method in WPL yet to initiate
# a search from a particular message.
set uid 0
# inherit global config
source ./alpine.tcl
source cmdfunc.tcl
WPEval $select_vars {
if {$uid} {
if {[catch {WPCmd PEMessage $uid number} thisnum]} {
set uid 0
}
} else {
set thisnum ""
}
cgi_http_head {
WPStdHttpHdrs
}
cgi_html {
cgi_head {
WPStdHtmlHdr "Search for Text"
WPStyleSheets
}
cgi_body BGCOLOR="$_wp(bordercolor)" {
catch {WPCmd PEInfo set wp_index_script fr_seltext.tcl}
catch {WPCmd PEInfo set help_context seltext}
cgi_form $_wp(appdir)/$_wp(ui1dir)/wp method=get name=auth target=body {
cgi_text "page=index" type=hidden notab
cgi_text "doselect=1" type=hidden notab
cgi_text "by=text" type=hidden notab
cgi_table border=0 cellspacing=0 cellpadding=2 width="100%" height="100%" {
cgi_table_row {
cgi_table_data align=center valign=top class=dialog {
cgi_table width="80%" {
cgi_table_row {
cgi_table_data {
cgi_center {
cgi_puts "[cgi_nl][cgi_nl]This page provides a way to search for specific text in the messages contained in [cgi_bold [WPCmd PEMailbox mailboxname]]. Enter your selection criteria below, and click [cgi_italic Search]. All messages matching the criteria will be marked with a check in the box next to their line in the Message List."
cgi_br
cgi_br
cgi_puts "Click [cgi_italic Cancel] to return to the Message List without searching.[cgi_nl][cgi_nl]"
}
}
}
if {[WPCmd PEMailbox selected]} {
cgi_table_row class=dialog {
cgi_table_data colspan=2 align=center valign=middle class=dialog {
cgi_put [cgi_font face=tahoma,verdana,geneva "Since some messages are already marked, choose whether criteria specified here should "]
cgi_select result {
cgi_option "search all messages in '[WPCmd PEMailbox mailboxname]'" value=broad selected
cgi_option "search within marked messages only." value=narrow
cgi_option "discard previous marks and search anew." value=new
}
cgi_br
cgi_br
}
}
} else {
cgi_text result=broad type=hidden notab
}
cgi_table_row class=dialog {
cgi_table_data valign=top align=center nowrap class=dialog {
cgi_put [cgi_font face=tahoma,verdana,geneva "Search for messages with text "]
cgi_select textcase {
cgi_option "in" value=ton
cgi_option "NOT in" value=not
}
cgi_br
cgi_br
cgi_put [cgi_font face=tahoma,verdana,geneva "the message's "]
if {$uid} {
set fromaddr [WPCmd PEMessage $uid fromaddr]
set deftext $fromaddr
} else {
set deftext ""
}
set fields {
{Subject: field} subj ""
{From: field} from selected
{To: field} to ""
{Cc: field} cc ""
{recipient fields} recip ""
{participant fields} partic ""
{text, anywhere} any ""
}
cgi_select field {
foreach {x y z} $fields {
cgi_option $x value=$y $z
}
}
cgi_br
cgi_br
cgi_put [cgi_font face=tahoma,verdana,geneva "matching "]
cgi_text text=$deftext size=30 maxlength=256
if {$uid} {
set ft [WPJSQuote $fromaddr]
set tt [WPJSQuote [WPCmd PEMessage $uid toaddr]]
set st [WPJSQuote [WPCmd PEMessage $uid subject]]
if {[string length $ft] || [string length $tt] || [string length $st]} {
cgi_put "[cgi_nl]Using "
cgi_select defs {
cgi_option "- Nothing -" ""
if {[string length $ft]} {
cgi_option "From Address" value=$ft selected
}
if {[string length $tt]} {
cgi_option "To Address" value=$tt
}
if {[string length $st]} {
cgi_option "Subject Text" value=$st
}
}
cgi_put " of message ${thisnum}"
}
}
}
}
cgi_table_row class=dialog {
cgi_table_data valign=top align=center nowrap class=dialog {
cgi_br
cgi_submit_button ok=Search
cgi_submit_button cancel=Cancel
}
}
cgi_table_row class=dialog {
cgi_table_data valign=top align=center class=dialog {
cgi_puts [cgi_nl][cgi_nl][cgi_font size=-1 "Note, if the number of messages in this folder is larger than the number of lines in the Message List, then some matching messages may not be visible without paging/scrolling."]
}
}
}
}
}
}
}
}
}
}
|
