projects
/
perl-cwmp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
69561231590e8f91b4ca94daa4da5f64fda1ac28
[perl-cwmp.git]
/
bin
/
acs.pl
1
#!/usr/bin/perl -w
2
3
# acs.pl
4
#
5
# 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7
use strict;
8
9
use lib './lib';
10
use CWMP::Server;
11
use Getopt::Long;
12
13
my $port = 3333;
14
my $debug = 0;
15
16
GetOptions(
17
'debug+' => \$debug,
18
'port=i' => \$port,
19
);
20
21
my $server = CWMP::Server->new({
22
port => $port,
23
store => {
24
# module => 'DBMDeep',
25
module => 'YAML',
26
store_path => 'state.db',
27
},
28
debug => $debug,
29
default_queue => [ qw/
30
GetRPCMethods
31
GetParameterNames
32
/ ],
33
# Reboot
34
});
35
$server->run();
36