projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r230@brr: dpavlin | 2007-11-18 17:42:53 +0100
[perl-cwmp.git]
/
bin
/
acs.pl
diff --git
a/bin/acs.pl
b/bin/acs.pl
index
6653653
..
3675088
100755
(executable)
--- a/
bin/acs.pl
+++ b/
bin/acs.pl
@@
-17,20
+17,25
@@
my $port = 3333;
my $debug = 0;
my $store_path = './';
my $store_plugin = 'YAML';
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,
GetOptions(
'debug+' => \$debug,
'port=i' => \$port,
'store-path=s' => \$store_path,
'store-plugin=s' => \$store_plugin,
+ 'create_dump!' => \$create_dump,
);
my $server = CWMP::Server->new({
port => $port,
);
my $server = CWMP::Server->new({
port => $port,
- store => {
- module => $store_plugin,
- path => $store_path,
- debug => $debug,
+ session => {
+ store => {
+ module => $store_plugin,
+ path => $store_path,
+ debug => $debug,
+ },
+ create_dump => $create_dump,
},
debug => $debug,
});
},
debug => $debug,
});