Сброс сессий в mpd-4.0rc1

[eddy_mut]

Подскажите, что нужно подправить в файле /usr/local/abills/Abills/nas.pl чтобы он при выборе сервера mpd сбрасывал сессии. Сейчас он у меня просто подключается к консоли но, встретив приглашение на ввод имени и пароля, просто тупо висит и отваливается по таймауту.

Дело в том что я нашел участок, кода отвечающий за это, но там нет процедур ввода имени и пароля для входа в консоль mpd. Существующий код написан под старую версию mpd, когда еще авторизация не запрашивалась.


Вот код, я пытался добавить в него ввод имени и пароля, но без знаний перла у меня ничего не выходит:

Код: Выделить всё

#####################################################################
# MPD functions
#*******************************************************************
# HANGUP MPD
# hangup_mpd($SERVER, $PORT)
#*******************************************************************
sub hangup_mpd {
 my ($NAS_IP, $PORT) = @_;

 my $ctl_port = "pptp$PORT";
 my @commands=("\]\tlink $ctl_port",
               "\]\tlink $ctl_port",
               "\]\tclose",
               "\]\texit");

 my $result = telnet_cmd("$NAS->{NAS_MNG_IP_PORT}", \@commands);
 print $result;
 return 0;
}

Подскажите чего сюда добавить?