;; -*- Mode: lisp; Syntax: ansi-common-lisp; Package: cgp; Base: 10; Readtable: augmented-readtable -*-
;;
;; Copyright (C) Paul Meurer 2001 - 2002. All rights reserved.
;; paul.meurer@hit.uib.no
;; HIT-centre, University of Bergen
;;
;; Version 0.9
;;
;; Web-interface to the CommonLisp-reimplementation of the CG parser/tagger system
;; (Oslo-tagger) developed at UiO (Dokumentasjonsprosjektet; Tekstlaboratoriet)
;;

;;-------------------------------------------------------------------------------------
;; TO DO: make fancier interface
;;-------------------------------------------------------------------------------------
;; PROBLEMS:
;;
;; Does not work in IE 5.00.2920.0000 (problems with persistent connections)
;;
;;-------------------------------------------------------------------------------------

(in-package :cgp)

(ignore-errors
 (net.aserve::start :port 8005))

#+test
(net.aserve::start :port 8019)

#+test
(net.aserve::shutdown)

#+(and :pcl (not :production-server))
(eval-when (:load-toplevel :compile-toplevel :execute)
  (mp:process-run-function
	 "cgp" nil
	 (lambda ()
	   (start :server net.aserve::*wserver* :port 8008 :listeners 5
		  :chunking nil :keep-alive nil))))

#+test
(net.aserve::debug-on :notrap)
#+test
(net.aserve::debug-off :notrap)
#+test
(net.aserve::debug-on :xmit)
#+test
(net.aserve::debug-off :xmit)

(defparameter *www-interface-disabled-p* nil)

(defparameter *authorizer*
  (make-instance 'password-authorizer
		 :allowed '(("paul" . "adzghab")
			    ("kristinh" . "ak10kaka")
			    ("andersn" . "tekst1")
			    ("bjorn" . "nyno1cgp")
			    ("janne" . "teks1cgp")
			    ("aasne" . "teks2cgp")
			    ("andra" . "teks3cgp")
			    ("anders" . "teks4cgp")
			    ("kristin" . "teks5cgp")
			    ("knut" . "teks7cgp")
			    ("yngve" . "hit1cgp")
			    ("eckhard" . "visl1cgp")
			    ("dimitri" . "navn1cgp")
			    ("till" . "cognit1")
			    ("helgeh" . "teks8cgp")
			    ("christer" . "rttr9cgp")
			    )
		 :realm "Tagger"))

;;; EOF