/[cl-xmpp]/cl-xmpp/variable.lisp
ViewVC logotype

Contents of /cl-xmpp/variable.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (show annotations)
Wed Jul 9 21:02:40 2008 UTC (5 years, 9 months ago) by ehuelsmann
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +45 -16 lines
Collected Ravenpack Int'l patches as submitted by Kevin Crosbie (kcrosbie at ravenpack.com).
1 ;;;; $Id: variable.lisp,v 1.6 2008/07/09 21:02:40 ehuelsmann Exp $
2 ;;;; $Source: /tiger/var/lib/cvsroots/cl-xmpp/cl-xmpp/variable.lisp,v $
3
4 ;;;; See the LICENSE file for licensing information.
5
6 (in-package :xmpp)
7
8 (defvar *debug-stream* *debug-io*
9 "A character stream, or nil")
10
11 (defvar *default-port* 5222)
12 (defvar *default-hostname* "localhost")
13
14 (defvar *legacy-errors*
15 '((:undefined-condition :any 500)
16 (:forbidden :auth 403)
17 (:bad-auth :auth 401)
18 (:not-authorized :auth 401)
19 (:payment-required :auth 402)
20 (:registration-required :auth 407)
21 (:subscription-required :auth 407)
22 (:redirect :modify 302)
23 (:bad-request :modify 400)
24 (:jid-malformed :modify 400)
25 (:not-acceptable :modify 406)
26 (:gone :modify 302)
27 (:conflict :cancel 409)
28 (:feature-not-implemented :cancel 501)
29 (:item-not-found :cancel 404)
30 (:not-allowed :cancel 405)
31 (:remote-server-not-found :cancel 404)
32 (:service-unavailable :cancel 503)
33 (:internal-server-error :wait 500)
34 (:recipient-unavailable :wait 404)
35 (:remote-server-timeout :wait 504)
36 (:resource-constraint :wait 500)
37 (:unexpected-request :wait 400)))
38
39
40 (defvar *errors*
41 '((:bad-format)
42 (:bad-namespace-prefix)
43 (:conflict)
44 (:connection-timeout)
45 (:host-gone)
46 (:host-unknown)
47 (:improper-addressing)
48 (:internal-server-error)
49 (:invalid-from)
50 (:invalid-id)
51 (:invalid-namespace)
52 (:invalid-xml)
53 (:not-authorized)
54 (:policy-violation)
55 (:remote-connection-failed)
56 (:resource-constraint)
57 (:restricted-xml)
58 (:see-other-host)
59 (:system-shutdown)
60 (:undefined-condition)
61 (:unsupported-encoding)
62 (:unsupported-stanza-type)
63 (:unsupported-version)
64 (:xml-not-well-formed)))
65
66
67 (defvar *auth-methods* nil
68 "Alist of method name to operator.
69
70 Operators must accept the following operands:
71
72 connection username password resource")

  ViewVC Help
Powered by ViewVC 1.1.5