/usr/share/tcltk/xotcl1.6.7-actiweb/SecureHttpPlace.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 52 | # $Id: SecureHttpPlace.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::actiweb::secureHttpPlace 0.8
package require xotcl::actiweb::httpPlace
package require XOTcl
namespace eval ::xotcl::actiweb::secureHttpPlace {
namespace import ::xotcl::*
Class SecurePlace -superclass Place -parameter {
{port 443}
{requestCert 0}
{requireValidCert 0}
{certfile server.pem}
{keyfile server.key}
{cafile cacert.pem}
{infoCb {}}
}
SecurePlace instproc startHttpd {} {
my instvar port root requestCert requireValidCert \
certfile cafile infoCb keyfile
Httpsd h1 -port $port \
-root $root \
-httpdWrk SecurePlace::HttpsdWrk \
-infoCb $infoCb \
-requestCert $requestCert \
-requireValidCert $requireValidCert \
-certfile $certfile -cafile $cafile \
-keyfile $keyfile
}
SecurePlace instproc init args {
my set startHTTPServer 0
next
[self] startHttpd
}
Class SecurePlace::HttpsdWrk -superclass {Httpsd::Wrk Place::HttpdWrk}
namespace export SecurePlace
namespace eval SecurePlace {
namespace export HttpsdWrk
}
}
namespace import ::xotcl::actiweb::secureHttpPlace::*
namespace eval SecurePlace {
namespace import ::xotcl::actiweb::secureHttpPlace::SecurePlace::*
}
|