From 97c2a07c65b9ed29632caf025fe0a21c72f37c6f Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 23 Apr 2013 10:03:35 +0200
Subject: Remove volatile data

These settings can change over time, they should be changed in the rc
file.
---
 lisp/sil.lisp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'lisp/sil.lisp')

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*))
-- 
cgit v1.2.3-54-g00ecf