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 | 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 | 57 | use Getopt::Long; |
| 12 | dpavlin | 28 | |
| 13 | my $port = 3333; | ||
| 14 | dpavlin | 57 | my $debug = 0; |
| 15 | dpavlin | 164 | my $store_path = './'; |
| 16 | my $store_plugin = 'YAML'; | ||
| 17 | dpavlin | 28 | |
| 18 | dpavlin | 57 | GetOptions( |
| 19 | 'debug+' => \$debug, | ||
| 20 | 'port=i' => \$port, | ||
| 21 | dpavlin | 164 | 'store-path=s' => \$store_path, |
| 22 | 'store-plugin=s' => \$store_plugin, | ||
| 23 | dpavlin | 57 | ); |
| 24 | |||
| 25 | dpavlin | 180 | |
| 26 | dpavlin | 50 | my $server = CWMP::Server->new({ |
| 27 | port => $port, | ||
| 28 | dpavlin | 150 | store => { |
| 29 | dpavlin | 164 | module => $store_plugin, |
| 30 | path => $store_path, | ||
| 31 | debug => $debug, | ||
| 32 | dpavlin | 150 | }, |
| 33 | dpavlin | 53 | debug => $debug, |
| 34 | dpavlin | 50 | }); |
| 35 | dpavlin | 28 | $server->run(); |
| 36 |
| Name | Value |
|---|---|
| svn:executable | * |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |