projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- implement parametars to commands in queue (just pass array as command)
[perl-cwmp.git]
/
bin
/
acs.pl
diff --git
a/bin/acs.pl
b/bin/acs.pl
index
6956123
..
c472fd6
100755
(executable)
--- a/
bin/acs.pl
+++ b/
bin/acs.pl
@@
-12,25
+12,30
@@
use Getopt::Long;
my $port = 3333;
my $debug = 0;
my $port = 3333;
my $debug = 0;
+my $store_path = './';
+my $store_plugin = 'YAML';
GetOptions(
'debug+' => \$debug,
'port=i' => \$port,
GetOptions(
'debug+' => \$debug,
'port=i' => \$port,
+ 'store-path=s' => \$store_path,
+ 'store-plugin=s' => \$store_plugin,
);
my $server = CWMP::Server->new({
port => $port,
store => {
);
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,
},
debug => $debug,
- default_queue => [ qw/
- GetRPCMethods
- GetParameterNames
- / ],
-# Reboot
+ default_queue => [
+ 'GetRPCMethods',
+ [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
+ [ 'GetParameterValues', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 1 ],
+# 'Reboot',
+ ],
});
$server->run();
});
$server->run();