r134@llin (orig r133): dpavlin | 2007-10-26 22:46:09 +0200

 Rough draft of low-level store mechanisam.

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

diff --cc lib/CWMP/Server.pm
index 51a520a,381e255..7634806
--- 1/lib/CWMP/Server.pm
--- 2/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@@ -136,21 -137,15 +137,21 @@@ sub process_request 
  
        warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue});
  
 -      my $session = CWMP::Session->new({
 -              sock => $sock,
 -              queue => $prop->{default_queue},
 -              store => $prop->{store},
 -              debug => $prop->{debug},
 -      }) || confess "can't create session";
 -
 -      while ( $session->process_request ) {
 -              warn "...another one bites the dust...\n";
 +      eval  {
 +              my $session = CWMP::Session->new({
 +                      sock => $sock,
 +                      queue => $prop->{default_queue},
-                       store_path => $prop->{store_path},
++                      store => $prop->{store},
 +                      debug => $prop->{debug},
 +              }) || confess "can't create session";
 +
 +              while ( $session->process_request ) {
 +                      warn "...another one bites the dust...\n";
 +              }
 +      };
 +
 +      if ($@) {
 +              warn $@;
        }
  
        warn "...returning to accepting new connections\n";