Signed-off-by: Yonathan Dossow <[EMAIL PROTECTED]>
---
music.tcl | 11 +++++++++++
1 files changed, 11 insertions(+), 0 deletions(-)
diff --git a/music.tcl b/music.tcl
index 465d613..a97a45d 100644
--- a/music.tcl
+++ b/music.tcl
@@ -1066,6 +1066,12 @@ namespace eval ::music {
close $chan
return 0
}
+
+ #if {la variable password tiene algo}{
+ # puts $chan "password ::music::config(mpd_password)"
+ # flush $chan
+ #}
+
puts $chan "status"
flush $chan
if { [catch {gets $chan line} err] } {
@@ -1073,6 +1079,11 @@ namespace eval ::music {
close $chan
return 0
}
+ if { [string range $line 0 2] == "ACK"} {
+ plugins_log Music "error: $line"
+ close $chan
+ return 0
+ }
while {[string range $line 0 1] != "OK" } {
if { [string range $line 0 4] == "state" } {
set state [string range $line 7 end]
--
1.5.0.3
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Amsn-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amsn-devel
