[Slim-Checkins] r10045 - /branches/6.5/server/Plugins/Live365/Live365API.pm

[andy at svn.slimdevices.com]

Author: andy
Date: Tue Sep 26 06:54:12 2006
New Revision: 10045

URL: http://svn.slimdevices.com?rev=10045&view=rev
Log:
Add some additional debugging to Live365 login process

Modified:
    branches/6.5/server/Plugins/Live365/Live365API.pm

Modified: branches/6.5/server/Plugins/Live365/Live365API.pm
URL: http://svn.slimdevices.com/branches/6.5/server/Plugins/Live365/Live365API.pm?rev=10045&r1=10044&r2=10045&view=diff
==============================================================================
--- branches/6.5/server/Plugins/Live365/Live365API.pm (original)
+++ branches/6.5/server/Plugins/Live365/Live365API.pm Tue Sep 26 06:54:12 2006
@@ -227,6 +227,7 @@
 	$self->{asyncHTTP} = undef;
 
 	if(!defined $http->contentRef) {
+		$::d_plugins && msg("Live365API: No content received from api_login.cgi\n");
 		&$callback($client, {'status' => 6, 'silent' => $silent}); # PLUGIN_LIVE365_LOGIN_ERROR_HTTP
 		return;  
 	}
@@ -234,6 +235,7 @@
 	my $resp = eval { XMLin($http->contentRef) }; 
 
 	if ($@) {
+		$::d_plugins && msg("Live365API: XML parsing error on api_login.cgi: $@\n");
 		&$callback($client, {'status' => 2, 'silent' => $silent}); # PLUGIN_LIVE365_LOGIN_ERROR_LOGIN
 		return;  
 	}
@@ -250,13 +252,16 @@
 }
 
 sub authErrorSub {
-	my $http = shift;
+	my ( $http, $error ) = @_;
 	my $self = $http->params('self');
 	my $client = $http->params('client');
 	my $callback = $http->params('callback');
 	my $silent = $http->params('silent');
 
 	$self->{asyncHTTP} = undef;
+	
+	$::d_plugins && msg("Live365API: Error on api_login.cgi: $error\n");
+	
 	&$callback($client, {'status' => 6, 'silent' => $silent}); # PLUGIN_LIVE365_LOGIN_ERROR_HTTP
 }