--- HTTP.pm.dist	2009-10-18 10:58:23.000000000 +0100
+++ HTTP.pm	2009-10-18 10:58:30.000000000 +0100
@@ -804,7 +804,13 @@
 	# is this an HTTP stream?
 	if (!defined($client) && ($path =~ /(?:stream\.mp3|stream)$/)) {
 	
-		my $address = $peeraddr{$httpClient};
+		#Allow player ID of something other than IP address to be
+		#specified in the query string
+		my $address = $params->{"player"};
+		if(!defined($address) || length($address) < 2)
+		{
+		    $address = $peeraddr{$httpClient};
+		}
 	
 		main::INFOLOG && $log->is_info && $log->info("processURL found HTTP client at address=$address");