blob: dce5047c5ea0fc8a8fea67d0826d0781dd1c5df3 (
plain)
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
|
#!./tclsh
# ========================================================================
# Copyright 2006-2007 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
#
# ========================================================================
# getach.tcl
#
# Purpose: CGI script to retrieve requested attachment
#
# Input:
#
# h : handle referring to temp file holding attachment particulars
# inherit global config
source ./alpine.tcl
cgi_eval {
# verify that the format of the request is correct. Mainly it's
# to reasonably handle relative urls in viewed html attachments. Ugh.
if {[regexp {^h=[A-Za-z0-9]*$} $env(QUERY_STRING)]} {
cgi_input
WPImport h
if {[regexp {^[A-Za-z0-9]+$} $h] != 1} {
WPInfoPage "Web Alpine Error" [font size=+2 "Bogus Attachment Handle: $h"] "Please close this window."
exit
}
set cmdfile [file join $_wp(detachpath) detach.${h}-control]
if {[file exists $cmdfile] == 0} {
WPInfoPage "Webpine Error" [font size=+2 "Stale Handle Reference"] "Please click the attachment link to view this attachment."
} elseif {[catch {
set cid [open $cmdfile r]
while {1} {
if {[gets $cid line] == 0} {
if {[gets $cid tmpfile] != 0} {
puts stdout ""
set fp [open $tmpfile r]
fconfigure $fp -translation binary
fconfigure stdout -translation binary
fcopy $fp stdout
close $fp
}
break
} else {
puts stdout $line
}
}
} errstr]} {
WPInfoPage "Webpine Error" [font size=+2 $errstr] "Please close this window."
}
#
# Don't delete the temp files immediately because *some* browsers
# <cough>IE<cough> will download the attachment, then hand the
# URL of the downloaded attachment to the viewer <cough>WMP<cough>
# so the viewer can then *REFETCH* the data for display. No,
# they don't pay attention to the redirect code.
#
# The script that created them is responsible for having set in motion
# a process to delete them at some point in the future.
#
# catch {file delete -force $cmdfile}
# catch {file delete -force $tmpfile}
} else {
WPInfoPage "Invalid Attachment Reference" "[font size=+2 "Invalid Attachment Reference"]" \
"This page is the result of clicking a link in an attached HTML document. It's author likely used an incomplete hypertext link which resulted in a bogus link to the WebPine server.<p>Clicking your browser's Back button should restore the attachment's display."
}
}
|
