&General::readhash("${General::swroot}/mpfire/settings", \%mpfiresettings);
&Header::getcgihash(\%mpfiresettings);
delete $mpfiresettings{'__CGI__'};delete $mpfiresettings{'x'};delete $mpfiresettings{'y'};
+ delete $mpfiresettings{'PAGE'};
&General::writehash("${General::swroot}/mpfire/settings", \%mpfiresettings);
open(DATEI, "<${General::swroot}/mpfire/mpd.conf") || die "Datei nicht gefunden";
}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";
}