Parent Directory | Revision Log | Patch
revision 56 by dpavlin, Tue Jun 19 22:06:46 2007 UTC | revision 57 by dpavlin, Wed Jun 20 21:31:03 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 | debug => $debug, | debug => $debug, |
24 | queue => [ qw/ | queue => [ qw/ |
25 | GetRPCMethods | GetRPCMethods |
26 | Reboot | GetParameterNames |
27 | / ], | / ], |
28 | # Reboot | |
29 | }); | }); |
30 | $server->run(); | $server->run(); |
31 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |