X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=bin%2Facs.pl;h=cc1a2ad95e5d4bc5f6f725a0d2244ac0ad140b79;hp=01d2c5f7f8fab52c1e0de885ebbe4964ff3e85a3;hb=c3e3a10c037b3b0fb7d531d226464e19c9d9e18f;hpb=64c892a490a72e2410adf79b4ecd375a35f3032b

diff --git a/bin/acs.pl b/bin/acs.pl
index 01d2c5f..cc1a2ad 100755
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -8,28 +8,55 @@ use strict;
 
 use lib './lib';
 use CWMP::Server;
+use CWMP::Session;
+use CWMP::Vendor;
 use Getopt::Long;
+use Data::Dump qw/dump/;
+use File::Find;
+
+#use Devel::LeakTrace::Fast;
 
 my $port = 3333;
 my $debug = 0;
+my $store_path = './';
+my $store_plugin = 'YAML';
+my $create_dump = 1;
 
 GetOptions(
 	'debug+' => \$debug,
 	'port=i' => \$port,
+	'store-path=s' => \$store_path,
+	'store-plugin=s' => \$store_plugin,
+	'create_dump!' => \$create_dump,
 );
 
+if ( $create_dump ) {
+	warn "## cleaning dump directory\n" if $debug;
+	find({
+		wanted => sub {
+			my $path = $File::Find::name;
+			return if -d $path;
+			unlink($path) || die "can't remove $path: $!";
+			warn "## removed $path\n" if $debug;
+		},
+		no_chdir => 1,
+	}, 'dump/' );
+}
+
 my $server = CWMP::Server->new({
 	port => $port,
-	store => {
-		module => 'DBMDeep',
-		store_path => 'state.db',
+	session => {
+		store => {
+			module => $store_plugin,
+			path => $store_path,
+			debug => $debug,
+		},
+		create_dump => $create_dump,
 	},
 	debug => $debug,
-	default_queue => [ qw/
-		GetRPCMethods
-		GetParameterNames
-	/ ],
-#		Reboot
 });
+
+CWMP::Vendor->add_triggers;
+
 $server->run();