Parent Directory
| 
Revision Log
r218@brr: dpavlin | 2007-11-14 22:54:48 +0100 version bump [0.10] - added CWMP::Vendor module which implements simple vendor specific logic (this is beginning of example to change IP adress of CPE based on serial)
| 1 | dpavlin | 28 | #!/usr/bin/perl -w |
| 2 | |||
| 3 | # acs.pl | ||
| 4 | # | ||
| 5 | # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org> | ||
| 6 | |||
| 7 | use strict; | ||
| 8 | |||
| 9 | dpavlin | 30 | use lib './lib'; |
| 10 | use CWMP::Server; | ||
| 11 | dpavlin | 203 | use CWMP::Session; |
| 12 | use CWMP::Vendor; | ||
| 13 | dpavlin | 57 | use Getopt::Long; |
| 14 | dpavlin | 203 | use Data::Dump qw/dump/; |
| 15 | dpavlin | 28 | |
| 16 | my $port = 3333; | ||
| 17 | dpavlin | 57 | my $debug = 0; |
| 18 | dpavlin | 164 | my $store_path = './'; |
| 19 | my $store_plugin = 'YAML'; | ||
| 20 | dpavlin | 28 | |
| 21 | dpavlin | 57 | GetOptions( |
| 22 | 'debug+' => \$debug, | ||
| 23 | 'port=i' => \$port, | ||
| 24 | dpavlin | 164 | 'store-path=s' => \$store_path, |
| 25 | 'store-plugin=s' => \$store_plugin, | ||
| 26 | dpavlin | 57 | ); |
| 27 | |||
| 28 | dpavlin | 50 | my $server = CWMP::Server->new({ |
| 29 | port => $port, | ||
| 30 | dpavlin | 150 | store => { |
| 31 | dpavlin | 164 | module => $store_plugin, |
| 32 | path => $store_path, | ||
| 33 | debug => $debug, | ||
| 34 | dpavlin | 150 | }, |
| 35 | dpavlin | 53 | debug => $debug, |
| 36 | dpavlin | 50 | }); |
| 37 | dpavlin | 203 | |
| 38 | CWMP::Vendor->add_triggers; | ||
| 39 | |||
| 40 | dpavlin | 28 | $server->run(); |
| 41 |
| Name | Value |
|---|---|
| svn:executable | * |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |