".encode('utf-8', $song)." |
+ | + | + | + | + | + | + | + | + | + | + | + + |
$Lang::tr{'Scan for Files'} | |
$Lang::tr{'Scan from Directory'} | |
$Lang::tr{'deep scan directories'} | on / - off |
- | |
$Lang::tr{'Scan from Directory'} | |
total $#songdb songs | ||||
- | - | - | - | - | + |
$Lang::tr{'artist'} - ".$mpd->stats()->artists()." | $Lang::tr{'album'} - ".$mpd->stats()->albums()." |
$Lang::tr{'artist'} - $#artist | $Lang::tr{'album'} - $#album |
- |
$Lang::tr{'current playlist'} | ||||||||
- | ||||||||
$Lang::tr{'artist'} | +$Lang::tr{'title'} | +$Lang::tr{'album'} | +||||||
+ | + | + | ||||||
+ | ||||||||
+ |
$Lang::tr{'Existing Files'} | |||
$Lang::tr{'Pages'} "; + my $pages =(int($#songs/100)+1); + for(my $i = 1; $i <= $pages; $i++){ + print ""; + if (!($i % 205)){ + print" "; + } + } + print ""; + print " | + | $Lang::tr{'artist'} $Lang::tr{'title'} |
+$Lang::tr{'number'} | +$Lang::tr{'album'} | +END +; + +my $lines=0;my $i=0;my $begin;my $end; +if ( $mpfiresettings{'PAGE'} eq 'all' ){ + $begin=0; + $end=$#songs; +}else{ + $begin=(($mpfiresettings{'PAGE'}-1) * 100); + $end=(($mpfiresettings{'PAGE'} * 100)-1); +} + foreach (@songs){ + if (!($i >= $begin && $i <= $end)){ + #print $begin."->".$i."<-".$end."\n"; + $i++;next; + } + my @song = split(/\=/,$mpd->collection->song($_)); + @song = reverse @song; + + if ($lines % 2) { + print "
".encode('utf-8', $song[0])." ".encode('utf-8', $song[1])." | ";
+ print "".encode('utf-8', $song[2])." | "; + print "".encode('utf-8', $song[3])." | "; + $lines++; + $i++; +} + +print "