[STUMP] [PATCH 14/14] Added password identification support for mpd contrib.

[Morgan Veyret]

---
 contrib/mpd.lisp |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/contrib/mpd.lisp b/contrib/mpd.lisp
index 01a6e91..3bbb8ac 100644
--- a/contrib/mpd.lisp
+++ b/contrib/mpd.lisp
@@ -114,6 +114,7 @@
   #(127 0 0 1)
   )
 (defparameter *mpd-port* 6600)
+(defparameter *mpd-password* nil)
 
 (defvar *mpd-timeout* 50)
 
@@ -204,7 +205,9 @@
     (when *mpd-timeout*
       (setf *mpd-timer*
             (run-with-timer *mpd-timeout* *mpd-timeout* 'mpd-ping)))
-    (read-line *mpd-socket*)))
+    (read-line *mpd-socket*)
+    (when *mpd-password*
+      (mpd-format-command "password \"~a\"" *mpd-password*))))
 
 (defun mpd-ping ()
   (mpd-send-command "ping"))
-- 
1.6.4