[Erc-discuss] ERC: parse 275 (using ssl connection) response

[Giorgos Keramidas]

Hi Michael and erc-discuss,
Attached is a patch (including an Emacs ChangeLog entry) which adds
response/275 parsing to ERC.  On *.irc.gr servers, if a user is
connected through SSL to the ircd server itself, a response like this is
sent to show that the user is using a secure connection, i.e.:

=> /wii foobar
   *** afros.irc.gr 275 275 keramida foobar is using a secure connection (SSL)

With the patch shown below, the 275 response is displayed as part of
the /wii command output for me.

%%%
diff -r f23ff79f60d2 -r eb6172bc2876 lisp/erc/ChangeLog
--- a/lisp/erc/ChangeLog        Fri Nov 30 02:27:24 2007 +0200
+++ b/lisp/erc/ChangeLog        Sun Dec 09 02:15:43 2007 +0200
@@ -1,3 +1,8 @@ 2007-11-29  Giorgos Keramidas  <keramida
+2007-12-09  Giorgos Keramidas  <address@hidden>  (tiny change)
+
+       * erc-backend.el, erc.el:
+       Parse 275 (secure connection) responses.
+
 2007-11-29  Giorgos Keramidas  <address@hidden>  (tiny change)
 
        * erc-backend.el, erc.el:
diff -r f23ff79f60d2 -r eb6172bc2876 lisp/erc/erc-backend.el
--- a/lisp/erc/erc-backend.el   Fri Nov 30 02:27:24 2007 +0200
+++ b/lisp/erc/erc-backend.el   Sun Dec 09 02:15:43 2007 +0200
@@ -1538,6 +1538,16 @@ See `erc-display-server-message'." nil
 See `erc-display-server-message'." nil
   (erc-display-server-message proc parsed))
 
+(define-erc-response-handler (275)
+  "Display secure connection message." nil
+  (multiple-value-bind (nick user message)
+      (cdr (erc-response.command-args parsed))
+    (erc-display-message
+     parsed 'notice 'active 's275
+     ?n nick
+     ?m (mapconcat 'identity (cddr (erc-response.command-args parsed))
+                   " "))))
+
 (define-erc-response-handler (290)
   "Handle dancer-ircd CAPAB messages." nil nil)
 
diff -r f23ff79f60d2 -r eb6172bc2876 lisp/erc/erc.el
--- a/lisp/erc/erc.el   Fri Nov 30 02:27:24 2007 +0200
+++ b/lisp/erc/erc.el   Sun Dec 09 02:15:43 2007 +0200
@@ -6201,6 +6201,7 @@ All windows are opened in the current fr
    (s252   . "%i operator(s) online")
    (s253   . "%i unknown connection(s)")
    (s254   . "%i channels formed")
+   (s275   . "%n %m")
    (s301   . "%n is AWAY: %r")
    (s303   . "Is online: %n")
    (s305   . "%m")
%%%