}elsif ( $mpfiresettings{'ACTION'} eq "playweb" ){
$message=system("/usr/local/bin/mpfirectrl","playweb","\"$mpfiresettings{'FILE'}\"","2>/dev/null");
}elsif ( $mpfiresettings{'ACTION'} eq "playlist" ){
-# on keypress play the playlist
- $message=system("/usr/local/bin/mpfirectrl playlist 2>/dev/null");
+ $mpd->play();
}elsif ( $mpfiresettings{'ACTION'} eq "emptyplaylist" ){
# on keypress clear the playlist
$mpd->playlist->clear();
############################################################################################################################
################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ####################################
-$mpfiresettings{'MUSICDIR'} = "/";
+$mpfiresettings{'MUSICDIR'} = "/var/mp3";
&General::readhash("${General::swroot}/mpfire/settings", \%mpfiresettings);
############################################################################################################################
END
;
-foreach ($mpd->collection->all_artists()){
+foreach (sort($mpd->collection->all_artists())){
if ( $_ ne '' ){
print "<option>".encode('utf-8', $_)."</option>\n";
}
END
;
-foreach ($mpd->collection->all_albums()){
+foreach (sort($mpd->collection->all_albums())){
if ( $_ ne '' ){
print "<option>".encode('utf-8', $_)."</option>\n";
}
END
;
-foreach ($mpd->collection->all_years()){
+foreach (sort($mpd->collection->all_years())){
if ( $_ ne '' ){
print "<option>$_</option>\n";
}
END
;
-foreach ($mpd->collection->all_genre()){
+foreach (sort($mpd->collection->all_genre())){
if ( $_ ne '' ){
print "<option>$_</option>\n";
}