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 Getopt::Long;
  12
  13 my $port = 3333;
  14 my $debug = 0;
  15
  16 GetOptions(
  17         'debug+' => \$debug,
  18         'port=i' => \$port,
  19 );
  20
  21 my $server = CWMP::Server->new({
  22         port => $port,
  23         store => {
  24                 module => 'DBMDeep',
  25                 store_path => 'state.db',
  26         },
  27         debug => $debug,
  28         default_queue => [ qw/
  29                 GetRPCMethods
  30                 GetParameterNames
  31         / ],
  32 #               Reboot
  33 });
  34 $server->run();
  35