mpfilter: fix getting the playlist length

scripts/mpfilter

@@ -1,10 +1,13 @@
 #!/usr/bin/env tclsh
 
 #Создан:  пт 19 июн 2020 15:42:10
-#Изменён: Сб 10 окт 2020 18:30:25
+#Изменён: Чт 04 мар 2021 19:22:24
 
 # Сценарий удаления треков с указанной оценкой из mpd
 
+# TODO: фильтр по указанной оценке
+# TODO: не удалять проигрываемый сейчас файл
+
 proc mpd {args} {
 	set mpd [socket 127.0.0.1 6600]
 
@@ -32,7 +35,7 @@ proc mpd {args} {
 	}
 }
 
-set playlistlength [regsub {^[^:]*:\s+} [lindex [mpd status] 6] {}]
+set playlistlength [regsub {^[^:]*:\s+} [lindex [mpd status] [lsearch [mpd status] "playlistlength*"]] {}]
 
 set commented {}