From 426db8401029bb7d41479bacb36ac0b4b5f2e495 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 7 Mar 2010 19:22:33 +0000
Subject: [PATCH] count requests with current client

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@264 836a5e1a-633d-0410-964b-294494ad4392
---
 lib/CWMP/Server.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index f90b115..eaf6c06 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -90,10 +90,13 @@ sub run {
 	while (1) {
 		my $client = $server->accept() || next; # ALARM trickle us
 
+		my $count = 0;
+
 		my $session = CWMP::Session->new( $self->session ) || confess "can't create sessision";
 
 		while ( $self->sock_session( $client, $session ) ) {
-			warn "# another one\n";
+			$count++;
+			warn "# finished request $count, waiting for next one\n";
 		}
 
 		warn "# connection to ", $client->peerhost, " closed\n";
-- 
2.20.1