bin/acs.pl

   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 CWMP::Session;
  12 use CWMP::Vendor;
  13 use Getopt::Long;
  14 use Data::Dump qw/dump/;
  15
  16 my $port = 3333;
  17 my $debug = 0;
  18 my $store_path = './';
  19 my $store_plugin = 'YAML';
  20 my $create_dump = 1;
  21
  22 GetOptions(
  23         'debug+' => \$debug,
  24         'port=i' => \$port,
  25         'store-path=s' => \$store_path,
  26         'store-plugin=s' => \$store_plugin,
  27         'create_dump!' => \$create_dump,
  28 );
  29
  30 my $server = CWMP::Server->new({
  31         port => $port,
  32         session => {
  33                 store => {
  34                         module => $store_plugin,
  35                         path => $store_path,
  36                         debug => $debug,
  37                 },
  38                 create_dump => $create_dump,
  39         },
  40         debug => $debug,
  41 });
  42
  43 CWMP::Vendor->add_triggers;
  44
  45 $server->run();
  46