Parent Directory
| 
Revision Log
r206@brr: dpavlin | 2007-11-12 23:02:21 +0100 - move protocol dump to new cpe-queue.pl command - queue now stores data in YAML to preserve perl structures intact - queue jobs are now finished correctly - remove all traces of default_queue
| 1 | #!/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 | use lib './lib'; |
| 10 | use CWMP::Server; |
| 11 | use Getopt::Long; |
| 12 | |
| 13 | my $port = 3333; |
| 14 | my $debug = 0; |
| 15 | my $store_path = './'; |
| 16 | my $store_plugin = 'YAML'; |
| 17 | |
| 18 | GetOptions( |
| 19 | 'debug+' => \$debug, |
| 20 | 'port=i' => \$port, |
| 21 | 'store-path=s' => \$store_path, |
| 22 | 'store-plugin=s' => \$store_plugin, |
| 23 | ); |
| 24 | |
| 25 | |
| 26 | my $server = CWMP::Server->new({ |
| 27 | port => $port, |
| 28 | store => { |
| 29 | module => $store_plugin, |
| 30 | path => $store_path, |
| 31 | debug => $debug, |
| 32 | }, |
| 33 | debug => $debug, |
| 34 | }); |
| 35 | $server->run(); |
| 36 |
| Name | Value |
|---|---|
| svn:executable | * |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |