ryuslash/sil
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove volatile data

Browse source 
These settings can change over time, they should be changed in the rc
file.
This commit is contained in:
Tom Willemse 2013-04-23 10:03:35 +02:00
parent fdac91a140
commit 97c2a07c65
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/sil.lisp
View file

@ -26,22 +26,22 @@
(defvar *connection* nil (defvar *connection* nil
"The connection to the jabber server.") "The connection to the jabber server.")
(defvar *host* "ryuslash.org" (defvar *host* nil
"The host to log-in on.") "The host to log-in on.")
(defvar *username* "sil" (defvar *username* nil
"The username to log-in with, should not contain the jabber host.") "The username to log-in with, should not contain the jabber host.")
(defvar *password* "tomtom" (defvar *password* nil
"The password to log-in with.") "The password to log-in with.")
(defvar *resource* "test" (defvar *resource* nil
"The resource to use when logging in.") "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.") "Any MUCs to join.")
(defvar *jid* "sil@ryuslash.org/test" (defvar *jid* nil
"The JID used.") "The JID used.")
(defun get-rc-location () (defun get-rc-location ()
@ -87,10 +87,11 @@
(progn (progn
(load-rc) (load-rc)
(setf *connection* (connect-tls :hostname *host*)) (setf *connection* (connect-tls :hostname *host*))
(auth *connection* "sil" "tomtom" "test") (auth *connection* *username* *password* *resource*)
(map nil (lambda (ms) (map nil (lambda (ms)
(join-chatroom *connection* :room ms :from *jid*)) (join-chatroom *connection* :room ms :from *jid*))
*muc-rooms-alist*) *muc-rooms-alist*)
(receive)) (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*)) (disconnect *connection*))