From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 27 Oct 2007 22:53:14 +0000 (+0000)
Subject:  r134@llin (orig r133):  dpavlin | 2007-10-26 22:46:09 +0200
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=de7bd7d0d60b42a12a93ba526d97b7ebaa5dcf2e

 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
---

de7bd7d0d60b42a12a93ba526d97b7ebaa5dcf2e
diff --cc lib/CWMP/Server.pm
index 51a520a,381e255..7634806
--- a/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";