/[gnump3d]/gnump3d/lib/gnump3d/plugins/random.pm
ViewVC logotype

Diff of /gnump3d/lib/gnump3d/plugins/random.pm

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

revision 1.1.1.1 by skx, Mon Jul 28 22:26:16 2003 UTC revision 1.2 by skx, Wed Aug 20 19:57:16 2003 UTC
# Line 73  sub handlePath( ) Line 73  sub handlePath( )
73      if ( $uri =~ /^\/random\/play/ )      if ( $uri =~ /^\/random\/play/ )
74      {      {
75          #          #
76          # We were - so use the submitted details to serve a          # We were - so use the submitted details to serve a
77          # playlist to the client.          # playlist to the client.
78          #          #
79          &handlePlaylist();          &handlePlaylist();
# Line 195  sub handlePath( ) Line 195  sub handlePath( )
195                  $file = $1;                  $file = $1;
196              }              }
197    
198                # Escape the link to the songs.
199                $file = &urlEncode( $file );
200    
201              $form .= "<input type='hidden' name='track$count'  value='$file'>\n";              $form .= "<input type='hidden' name='track$count'  value='$file'>\n";
202              $count ++;              $count ++;
203          }          }
# Line 285  sub handlePlaylist( ) Line 288  sub handlePlaylist( )
288    
289      foreach my $key ( keys %ARGUMENTS )      foreach my $key ( keys %ARGUMENTS )
290      {      {
   
291          if ( $key =~ /^track/ )          if ( $key =~ /^track/ )
292          {          {
293              push @songs, $ARGUMENTS{ $key };              push @songs, $ARGUMENTS{ $key };
# Line 310  sub handlePlaylist( ) Line 312  sub handlePlaylist( )
312              {              {
313                  $track = $1;                  $track = $1;
314              }              }
315              if ( substr( $track, 0, 1 ) ne "/" )              if ( substr( $track, 0, 1 ) ne "/" )
316              {              {
317                  $track = "/$track";                  $track = "/$track";
318              }              }
# Line 326  sub handlePlaylist( ) Line 328  sub handlePlaylist( )
328          my $header   = &getHTTPHeader( 200, "text/html" );          my $header   = &getHTTPHeader( 200, "text/html" );
329          &sendData( $data, $header );          &sendData( $data, $header );
330          my $text = &getErrorPage( $ARGUMENTS{'theme'},          my $text = &getErrorPage( $ARGUMENTS{'theme'},
331                                    "Error - No tracks sent" );                                    "Error - No tracks sent." );
332          &sendData( $data, $text );          &sendData( $data, $text );
333          close( $data );          close( $data );
334          exit;          exit;

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

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