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
