[Slim-Checkins] r10647 - in /branches/6.5/server/Slim: Player/Protocols/MMS.pm Utils/Scanner.pm

[andy at svn.slimdevices.com]

Author: andy
Date: Fri Nov 10 07:19:20 2006
New Revision: 10647

URL: http://svn.slimdevices.com?rev=10647&view=rev
Log:
WMA fixes: Only generate random GUID once.  Properly set both Pragma headers for WMA scan

Modified:
    branches/6.5/server/Slim/Player/Protocols/MMS.pm
    branches/6.5/server/Slim/Utils/Scanner.pm

Modified: branches/6.5/server/Slim/Player/Protocols/MMS.pm
URL: http://svn.slimdevices.com/branches/6.5/server/Slim/Player/Protocols/MMS.pm?rev=10647&r1=10646&r2=10647&view=diff
==============================================================================
--- branches/6.5/server/Slim/Player/Protocols/MMS.pm (original)
+++ branches/6.5/server/Slim/Player/Protocols/MMS.pm Fri Nov 10 07:19:20 2006
@@ -22,6 +22,9 @@
 
 use constant DEFAULT_TYPE => 'wma';
 
+# Use the same random GUID for all connections
+our $guid;
+
 =head2 new ( $class, $args )
 
 Create a new instance of the MMS protocol handler, only for transcoding using wmadec or
@@ -73,7 +76,10 @@
 }
 
 sub randomGUID {
-	my $guid = '';
+
+	return $guid if $guid;
+	
+	$guid = '';
 
 	for my $digit (0...31) {
 

Modified: branches/6.5/server/Slim/Utils/Scanner.pm
URL: http://svn.slimdevices.com/branches/6.5/server/Slim/Utils/Scanner.pm?rev=10647&r1=10646&r2=10647&view=diff
==============================================================================
--- branches/6.5/server/Slim/Utils/Scanner.pm (original)
+++ branches/6.5/server/Slim/Utils/Scanner.pm Fri Nov 10 07:19:20 2006
@@ -470,8 +470,10 @@
 	my $h = $request->headers;
 	$h->header( Accept => '*/*' );
 	$h->header( 'User-Agent' => 'NSPlayer/4.1.0.3856' );
-	$h->header( Pragma => 'xClientGUID={' . Slim::Player::Protocols::MMS::randomGUID(). '}' );
-	$h->header( Pragma => 'no-cache,rate=1.0000000,stream-time=0,stream-offset=0:0,request-context=1,max-duration=0' );
+	$h->header( Pragma => [
+		'xClientGUID={' . Slim::Player::Protocols::MMS::randomGUID(). '}',
+		'no-cache,rate=1.0000000,stream-time=0,stream-offset=0:0,request-context=1,max-duration=0',
+	] );
 	$h->header( Connection => 'close' );
 }
 
@@ -847,10 +849,8 @@
 				
 				return;
 			}
-			else {
 			
-				return $cb->( $foundItems, @{$pt} );
-			}
+			return $cb->( $foundItems, @{$pt} );
 		}
 		$offset++;
 	}