fix message when waiting for next request

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

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 7634806..d64e472 100644 (file)
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -30,7 +30,10 @@ CWMP::Server - description
 
   my $server = CWMP::Server->new({
        port => 3333,
-       store => 'state.db',
+       store => {
+               module => 'DBMDeep',
+               path => 'var/',
+       },
        default_queue => [ qw/GetRPCMethods GetParameterNames/ ],                                                           
        background => 1,
        debug => 1
@@ -135,7 +138,7 @@ sub process_request {
        my $sock = $prop->{client};
        confess "no sock in ", ref( $self ) unless $sock;
 
-       warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue});
+       warn "default CPE queue ", dump( $prop->{default_queue} ), "\n" if defined($prop->{default_queue});
 
        eval  {
                my $session = CWMP::Session->new({
@@ -146,7 +149,7 @@ sub process_request {
                }) || confess "can't create session";
 
                while ( $session->process_request ) {
-                       warn "...another one bites the dust...\n";
+                       warn "...waiting for next request from CPE...\n";
                }
        };