iTunes Web Interface
player state is { $state }.
{ $current ? "current track is $current." : '' }
{ $playlist ? "current playlist is $playlist." : '' }
||
Play
||
Stop
||
Pause
||
Restart
||
Playlists
Tracks
{ my $str; foreach my $this ( @playlists ) { if( $this eq $playlist ) { $str .= qq|
$this
\n|; } else { $str .= "
"; $str .= qq|
$this
|; $str .= "
\n"; } } $str; }
{ my $str; my $count = 0; foreach my $track ( @tracks ) { $count++; if( $track eq $current ) { $str .= qq|
$track
\n|; } else { $str .= "
"; $str .= qq|
$track
|; $str .= "
\n"; } } $str; }