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