[beirc-devel] small patch for server passwords... - beirc-devel@common-lisp.net - mailman3.common-lisp.net

31 Oct 2005

Hello beirc-devel,
I couldn't get beirc to work for me at work, because I use dircproxy
with a passord.  The attached simple patch got past this.  I'm not
sure if this is the right approach, but it at least provides a working
starting point.
Thanks for the great client!
Eric
? application.fasl
? make-server-passwords-work.diff
? message-display.fasl
? package.fasl
? presentations.fasl
? receivers.fasl
? variables.fasl
Index: application.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/application.lisp,v
retrieving revision 1.34
diff -u -r1.34 application.lisp

--- application.lisp	7 Oct 2005 00:59:58 -0000	1.34
+++ application.lisp	31 Oct 2005 23:01:51 -0000
@@ -672,13 +672,14 @@
 (define-beirc-command (com-connect :name t)
     ((server 'string :prompt "Server")
      &key
-     (nick 'string :prompt "Nick name" :default *default-nick*))
+     (nick 'string :prompt "Nick name" :default *default-nick*)
+     (pass 'string :prompt "Password"  :default *default-pass*))
   (let ((success nil))
     (cond ((current-connection *application-frame*)
                (format *query-io* "You are already connected.~%"))
               (t
                (setf (slot-value *application-frame* 'connection)
-                     (irc:connect :nickname nick :server server :connection-type 'beirc-connection))
+                     (irc:connect :nickname nick :password pass :server server :connection-type 'beirc-connection))
                (unwind-protect
                    (progn
                      (setf (irc:client-stream (current-connection *application-frame*))
Index: variables.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/variables.lisp,v
retrieving revision 1.8
diff -u -r1.8 variables.lisp
--- variables.lisp	2 Oct 2005 23:47:51 -0000	1.8
+++ variables.lisp	31 Oct 2005 23:01:51 -0000
@@ -4,6 +4,7 @@
 (defvar *default-fill-column* 80)
 (defvar *timestamp-column-orientation* :right)
 (defvar *default-nick* (format nil "Brucio-~d" (random 100)))
+(defvar *default-pass* nil)
 (defvar *default-web-browser* #+darwin "/usr/bin/open"
                               ;; assuming a debian system running X:
                               #+linux  "/usr/bin/x-www-browser")
** 
Eric Moncrieff                                        eric at ping.ca
"If, in your bold creative way, you hold yourself free to draw a 
giraffe with a short neck, you will really find that you are not 
free to draw a giraffe."  --G. K. Chesterton

    