Parent Directory | Revision Log | Patch
revision 40 by dpavlin, Tue Jun 19 17:29:07 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 = 0; | |
15 | ||
16 | my $server = CWMP::Server->new({ port => $port, debug => 1 }); | GetOptions( |
17 | 'debug+' => \$debug, | |
18 | 'port=i' => \$port, | |
19 | ); | |
20 | ||
21 | my $server = CWMP::Server->new({ | |
22 | port => $port, | |
23 | debug => $debug, | |
24 | queue => [ qw/ | |
25 | GetRPCMethods | |
26 | GetParameterNames | |
27 | / ], | |
28 | # Reboot | |
29 | }); | |
30 | $server->run(); | $server->run(); |
31 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |