# $Id: s.SecureHttpPlace.xotcl 1.6 01/03/23 21:55:32+01:00 neumann@somewhere.wu-wien.ac.at $
package provide xotcl::mos::secureHttpPlace 0.8

package require xotcl::mos::httpPlace

Class SecurePlace -superclass Place -parameter {
  {port 443}
  {requestCert 0}
  {requireValidCert 0}
  {certfile server.pem}
  {cafile cacert.pem}
  {infoCb {}}
}

SecurePlace instproc startHttpd {} {
  [self] instvar port root  requestCert requireValidCert \
      certfile cafile infoCb
  Httpsd h1 -port $port \
      -root $root \
      -httpdWrk SecurePlace::HttpsdWrk \
      -infoCb $infoCb \
      -requestCert $requestCert \
      -requireValidCert $requireValidCert \
      -certfile $certfile -cafile $cafile
       
}

Class SecurePlace::HttpsdWrk -superclass {Httpsd::Wrk Place::HttpdWrk} 
