/usr/share/tcltk/xotcl1.6.7-actiweb/SendStrategy.xotcl is in xotcl 1.6.7-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # $Id: SendStrategy.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::actiweb::sendStrategy 0.8
package require XOTcl
#
# some simple sending strategy classes -- to be used as mixins
# for web objects
#
namespace eval ::xotcl::actiweb::sendStrategy {
namespace import ::xotcl::*
Class SendStrategy
SendStrategy abstract instproc send {httpWrk string}
#
# send the response given from the place as plain text
#
Class Send=PlainString -superclass SendStrategy
Send=PlainString instproc send {httpWrk string} {
$httpWrk sendMsg $string text/plain
}
#
# send the response given from the place with content
# type of the obj, if it exists
#
Class Send=TypedString -superclass SendStrategy
Send=TypedString instproc send {httpWrk string} {
$httpWrk sendMsg $string [my set contentType]
}
#
# send file specified in obj's instvar filename
#
Class Send=File -superclass SendStrategy
Send=File instproc send {httpWrk {response ""}} {
if {[my exists contentType]} {
$httpWrk sendFile [my set filename] [my set contentType]
} else {
$httpWrk sendFile [my set filename] ""
}
}
namespace export \
SendStrategy Send=PlainString Send=TypedString Send=File
}
namespace import ::xotcl::actiweb::sendStrategy::*
|