From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 12 Nov 2007 22:13:59 +0000 (+0000)
Subject:  r208@brr:  dpavlin | 2007-11-12 23:13:39 +0100
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=e693a253b860bfaba1373b19d470cbf84210c8c9

 r208@brr:  dpavlin | 2007-11-12 23:13:39 +0100
 display CPE uid (serial number) for better info


git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@197 836a5e1a-633d-0410-964b-294494ad4392
---

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 488bd4f..cf11c30 100644
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -149,8 +149,10 @@ sub process_request {
 
 	$sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
 
+	my $uid = $self->store->ID_to_uid( $state->{ID}, $state );
+
 	my $queue = CWMP::Queue->new({
-		id => $self->store->ID_to_uid( $state->{ID}, $state ),
+		id => $uid,
 		debug => $self->debug,
 	});
 	my $job;
@@ -161,10 +163,10 @@ sub process_request {
 	} elsif ( $job = $queue->dequeue ) {
 		$xml = $self->dispatch( $job->dispatch );
 	} elsif ( $size == 0 ) {
-		warn ">>> no more queued commands, closing connection\n";
+		warn ">>> no more queued commands, closing connection to $uid\n";
 		return 0;
 	} else {
-		warn ">>> empty response\n";
+		warn ">>> empty response to $uid\n";
 		$state->{NoMoreRequests} = 1;
 		$xml = $self->dispatch( 'xml', sub {} );
 	}
@@ -172,10 +174,10 @@ sub process_request {
 	$sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" );
 	$sock->send( $xml ) or die "can't send response";
 
-	warn ">>>> " . $sock->peerhost . " [" . localtime() . "] sent ", length( $xml )," bytes\n";
+	warn ">>>> " . $sock->peerhost . " [" . localtime() . "] sent ", length( $xml )," bytes to $uid\n";
 
 	$job->finish if $job;
-	warn "### request over\n" if $self->debug;
+	warn "### request over for $uid\n" if $self->debug;
 
 	return 1;	# next request
 };