projects
/
perl-cwmp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
reorg source code tree to make trunk
[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
my $store_path = 'state.db';
16
17
GetOptions(
18
'debug+' => \$debug,
19
'port=i' => \$port,
20
'store-path=s' => \$store_path,
21
);
22
23
my $server = CWMP::Server->new({
24
port => $port,
25
store_path => $store_path,
26
debug => $debug,
27
default_queue => [ qw/
28
GetRPCMethods
29
GetParameterNames
30
/ ],
31
# Reboot
32
});
33
$server->run();
34