r254@brr: dpavlin | 2007-11-23 22:14:16 +0100

[perl-cwmp.git] / lib / CWMP / Server.pm

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 52f9016..13a923c 100644 (file)
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -135,18 +135,16 @@ sub process_request {
                $sess->{sock} = $sock;
                $sess->{debug} = $prop->{debug};
 
-               warn "## sess = ", dump( $sess );
-
                my $session = CWMP::Session->new( $sess ) || confess "can't create session from ",dump( $sess );
 
                while ( $session->process_request ) {
-                       warn "...waiting for next request from CPE...\n";
+                       warn "...waiting for next request from CPE...\n" if $prop->{debug};
                }
        };
 
        warn "ERROR: $@\n" if $@;
 
-       warn "...returning to accepting new connections\n";
+       warn "...returning to accepting new connections\n" if $prop->{debug};
 
 }