Parent Directory | Revision Log | Patch
google/bin/acs.pl revision 35 by dpavlin, Tue Jun 19 00:18:56 2007 UTC | google/trunk/bin/acs.pl revision 154 by dpavlin, Sat Oct 27 22:53:58 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 = 0; | |
15 | ||
16 | my $server = CWMP::Server->new( $port ); | GetOptions( |
17 | $server->debug( 1 ); | 'debug+' => \$debug, |
18 | warn "debug level is ", $server->debug; | '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(); | $server->run(); |
36 | ||
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |