/[gnump3d]/gnump3d/bin/gnump3d2
ViewVC logotype

Diff of /gnump3d/bin/gnump3d2

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by skx, Tue Aug 19 18:34:50 2003 UTC revision 1.3 by skx, Tue Aug 19 18:45:19 2003 UTC
# Line 1313  sub getPlaylist( $ ) Line 1313  sub getPlaylist( $ )
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;
# Line 1334  sub getPlaylist( $ ) Line 1341  sub getPlaylist( $ )
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 );

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26