X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=bin%2Facs.pl;h=b4b1e8e48f3fde5da97b7a0be5c4e2a04d5dee23;hb=6ae55ee7caaa8c33a10a983dcc3b50928eb52914;hp=69561231590e8f91b4ca94daa4da5f64fda1ac28;hpb=7112f69d9eb66756f45ddf21fb91b458e22e0023;p=perl-cwmp.git diff --git a/bin/acs.pl b/bin/acs.pl index 6956123..b4b1e8e 100755 --- a/bin/acs.pl +++ b/bin/acs.pl @@ -12,25 +12,25 @@ use Getopt::Long; my $port = 3333; my $debug = 0; +my $store_path = './'; +my $store_plugin = 'YAML'; GetOptions( 'debug+' => \$debug, 'port=i' => \$port, + 'store-path=s' => \$store_path, + 'store-plugin=s' => \$store_plugin, ); + my $server = CWMP::Server->new({ port => $port, store => { -# module => 'DBMDeep', - module => 'YAML', - store_path => 'state.db', + module => $store_plugin, + path => $store_path, + debug => $debug, }, debug => $debug, - default_queue => [ qw/ - GetRPCMethods - GetParameterNames - / ], -# Reboot }); $server->run();