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
|
#!./tclsh
# $Id: queryimport.tcl 391 2007-01-25 03:53:59Z mikes@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
#
# ========================================================================
# queryimport.tcl
#
# Purpose: CGI script to generate html form used to ask for
# importing a folder
# Input:
set import_vars {
{fid "No Collection Specified"}
}
# Output:
#
# HTML/CSS data representing the form
# inherit global config
source ./alpine.tcl
source cmdfunc.tcl
set query_menu {
{
{expr {0}}
{
{
cgi_puts "Get Help"
}
}
}
}
WPEval $import_vars {
set colid [lindex $fid 0]
if {[llength $fid] > 1} {
set fpath [eval "file join [lrange $fid 1 end]"]
} else {
set fpath ""
}
if {[catch {WPCmd PEFolder collections} collections]} {
catch {WPCmd PEInfo statmsg "Can't Import: $collections"}
cgi_http_head {
cgi_redirect [cgi_root]/$_wp(appdir)/wp.tcl?page=folders.tcl
}
} elseif {$colid < 0 || $colid > [llength $collections]} {
catch {WPCmd PEInfo statmsg "Can't Import: Invalid collection: $colid"}
cgi_http_head {
cgi_redirect [cgi_root]/$_wp(appdir)/wp.tcl?page=folders.tcl
}
} else {
if {[string length $fpath]} {
set coldesc "the directory [cgi_bold $fpath] within "
}
append coldesc "the collection [cgi_bold [lindex [lindex $collections $colid] 1]]"
cgi_http_head {
WPStdHttpHdrs
}
cgi_html {
cgi_head {
WPStdHtmlHdr "Import"
WPStyleSheets
cgi_put "<style type='text/css'>"
cgi_put ".filename { font-family: Courier, monospace ; font-size: 10pt }"
cgi_puts "</style>"
}
cgi_body BGCOLOR="$_wp(bordercolor)" {
cgi_form $_wp(appdir)/wp method=post enctype=multipart/form-data target=_top {
cgi_text page=folders type=hidden notab
cgi_text cid=[WPCmd PEInfo key] type=hidden notab
cgi_text fid=$fid type=hidden notab
cgi_table border=0 cellpadding=0 cellspacing=0 width="100%" height="100%" {
cgi_table_row {
eval {
cgi_table_data $_wp(menuargs) {
WPTFCommandMenu query_menu {}
}
}
cgi_table_data align=center valign=top class=dialog {
cgi_table border=0 width=75% cellpadding=15 {
cgi_table_row {
cgi_table_data align=center "style=\"padding-top:30\"" {
cgi_puts "Folder Import copies a mail folder, typically created by the Export command, from the computer your browser is running on into a new Web Alpine folder. [cgi_nbspace]Successful Import consists of three steps."
cgi_p
cgi_puts "First, enter the path and filename of the folder below. Use the [cgi_italic Browse] button to help choose the file."
}
}
cgi_table_row {
cgi_table_data align=center {
cgi_file_button file "accept=*/*" size=30 class=filename
}
}
cgi_table_row {
cgi_table_data align=center {
cgi_puts "Second, provide a [cgi_bold unique] name for the imported folder to be assigned within $coldesc:"
}
}
cgi_table_row {
cgi_table_data align=center {
cgi_text iname= maxlength=256 size=40 class=filename
}
}
cgi_table_row {
cgi_table_data align=center {
cgi_puts "Finally, click [cgi_italic "Import File"] to copy the folder into WebPine, or [cgi_italic Cancel] to return to the folder list."
}
}
cgi_table_row {
cgi_table_data align=center {
cgi_submit_button "import=Import File" class=navtext
cgi_submit_button cancel=Cancel class=navtext
}
}
}
}
}
}
}
}
}
}
}
|