1313 |
$bitrate = "?quality=" . $ARGUMENTS{"quality"}; |
$bitrate = "?quality=" . $ARGUMENTS{"quality"}; |
1314 |
} |
} |
1315 |
|
|
1316 |
my $final = ""; |
my $final = "#EXTM3U\n"; |
1317 |
|
|
1318 |
|
# |
1319 |
|
# Get the extra details from teh files there. |
1320 |
|
# |
1321 |
|
$tagCache->setFormatString( "#EXTINF:\$LENGTH,$song_format" ); |
1322 |
|
|
1323 |
my @list = split( /\n/, $playlist ); |
my @list = split( /\n/, $playlist ); |
1324 |
foreach my $entry (@list) |
foreach my $entry (@list) |
1325 |
{ |
{ |
1326 |
|
my $tags = getSongDisplay( $entry ); |
1327 |
if ($entry =~ /$ROOT(.*)/) |
if ($entry =~ /$ROOT(.*)/) |
1328 |
{ |
{ |
1329 |
$entry = $1; |
$entry = $1; |
1341 |
|
|
1342 |
$entry = "http://" . $host . urlEncode( $entry ) . $bitrate; |
$entry = "http://" . $host . urlEncode( $entry ) . $bitrate; |
1343 |
|
|
1344 |
|
$final .= $tags . "\n"; |
1345 |
$final .= $entry . "\n"; |
$final .= $entry . "\n"; |
1346 |
} |
} |
1347 |
return( $final ); |
return( $final ); |