Parent Directory | Revision Log | Patch
google/bin/acs.pl revision 53 by dpavlin, Tue Jun 19 22:06:46 2007 UTC | google/trunk/bin/acs.pl revision 150 by dpavlin, Sat Oct 27 22:53:14 2007 UTC | |
---|---|---|
# | Line 8 use strict; | Line 8 use strict; |
8 | ||
9 | use lib './lib'; | use lib './lib'; |
10 | use CWMP::Server; | use CWMP::Server; |
11 | use Getopt::Long; | |
12 | ||
13 | my $port = 3333; | my $port = 3333; |
14 | my $debug = shift @ARGV; | my $debug = 0; |
15 | ||
16 | GetOptions( | |
17 | 'debug+' => \$debug, | |
18 | 'port=i' => \$port, | |
19 | ); | |
20 | ||
21 | my $server = CWMP::Server->new({ | my $server = CWMP::Server->new({ |
22 | port => $port, | port => $port, |
23 | store => { | |
24 | module => 'DBMDeep', | |
25 | store_path => 'state.db', | |
26 | }, | |
27 | debug => $debug, | debug => $debug, |
28 | queue => [ qw/ | default_queue => [ qw/ |
29 | GetRPCMethods | GetRPCMethods |
30 | Reboot | GetParameterNames |
31 | / ], | / ], |
32 | # Reboot | |
33 | }); | }); |
34 | $server->run(); | $server->run(); |
35 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |