Parent Directory | Revision Log | Patch
revision 197 by dpavlin, Mon Nov 12 22:03:01 2007 UTC | revision 203 by dpavlin, Wed Nov 14 21:55:24 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 CWMP::Session; | |
12 | use CWMP::Vendor; | |
13 | use Getopt::Long; | use Getopt::Long; |
14 | use Data::Dump qw/dump/; | |
15 | ||
16 | my $port = 3333; | my $port = 3333; |
17 | my $debug = 0; | my $debug = 0; |
# | Line 22 GetOptions( | Line 25 GetOptions( |
25 | 'store-plugin=s' => \$store_plugin, | 'store-plugin=s' => \$store_plugin, |
26 | ); | ); |
27 | ||
28 | my $server = CWMP::Server->new({ | my $server = CWMP::Server->new({ |
29 | port => $port, | port => $port, |
30 | store => { | store => { |
# | Line 32 my $server = CWMP::Server->new({ | Line 34 my $server = CWMP::Server->new({ |
34 | }, | }, |
35 | debug => $debug, | debug => $debug, |
36 | }); | }); |
37 | ||
38 | CWMP::Vendor->add_triggers; | |
39 | ||
40 | $server->run(); | $server->run(); |
41 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |