diff options
author | Tom Willemse | 2013-04-23 10:03:35 +0200 |
---|---|---|
committer | Tom Willemse | 2013-04-23 10:03:35 +0200 |
commit | 97c2a07c65b9ed29632caf025fe0a21c72f37c6f (patch) | |
tree | ab80ceffe1fa77cac3c4dd838b8fabc2e00faeca /lisp | |
parent | fdac91a140a849953f9c54c68aac65e5f6e83c84 (diff) | |
download | sil-97c2a07c65b9ed29632caf025fe0a21c72f37c6f.tar.gz sil-97c2a07c65b9ed29632caf025fe0a21c72f37c6f.zip |
Remove volatile data
These settings can change over time, they should be changed in the rc
file.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/sil.lisp | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/sil.lisp b/lisp/sil.lisp index cc02148..8348a89 100644 --- a/lisp/sil.lisp +++ b/lisp/sil.lisp @@ -26,22 +26,22 @@ (defvar *connection* nil "The connection to the jabber server.") -(defvar *host* "ryuslash.org" +(defvar *host* nil "The host to log-in on.") -(defvar *username* "sil" +(defvar *username* nil "The username to log-in with, should not contain the jabber host.") -(defvar *password* "tomtom" +(defvar *password* nil "The password to log-in with.") -(defvar *resource* "test" +(defvar *resource* nil "The resource to use when logging in.") -(defvar *muc-rooms-alist* '("aethon@muc.ryuslash.org/sil") +(defvar *muc-rooms-alist* nil "Any MUCs to join.") -(defvar *jid* "sil@ryuslash.org/test" +(defvar *jid* nil "The JID used.") (defun get-rc-location () @@ -87,10 +87,11 @@ (progn (load-rc) (setf *connection* (connect-tls :hostname *host*)) - (auth *connection* "sil" "tomtom" "test") + (auth *connection* *username* *password* *resource*) (map nil (lambda (ms) (join-chatroom *connection* :room ms :from *jid*)) *muc-rooms-alist*) (receive)) - (sb-sys:interactive-interrupt () (format t "No! Don't leave me. *sob*~%"))) + (sb-sys:interactive-interrupt () + (format t "No! Don't leave me. *sob*~%"))) (disconnect *connection*)) |