1

Тема: Perl скрипт ices

Вот нашел скрипт perl для ices, подключается к БД и выбирает трек с id=1. Поможете дописать чтобы треки играли по очереди, например: id=1, id=2 и т.д.

sub ices_shutdown {
        print "Perl subsystem shutting down:\n";
}

sub ices_get_next {

use DBI;
use DBD::mysql;
 $dbh = DBI->connect('DBI:mysql:ices;host=localhost', 'юзверь', 'пасс'
 ) || die "Could not connect to database: $DBI::errstr";
$sth = $dbh->prepare('SELECT filename FROM mp_id3_tags WHERE id=1');
$sth->execute();
$result = $sth->fetchrow_hashref();
print "Value returned: $result->{filename}\n";
return $result->{filename};

$dbh->disconnect();
}

# If defined, the return value is used for title streaming (metadata)
sub ices_get_metadata {

use DBI;
use DBD::mysql;
         $dbh = DBI->connect('DBI:mysql:ices;host=localhost', 'юзверь', 'пасс'
                           ) || die "Could not connect to database: $DBI::errstr";
        $sth = $dbh->prepare('SELECT filename FROM mp_id3_tags WHERE id=1');
        $sth->execute();
        $result = $sth->fetchrow_hashref();
        print "Value returned: $result->{filename}\n";
        return $result->{name};

        $dbh->disconnect();

        #return "Artist - Title (Album, Year)";
}




sub ices_get_lineno {
        return 1;
}

return 1;

2

Re: Perl скрипт ices

WHERE id= $id

$id++;

3

Re: Perl скрипт ices

Спасибо.