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 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 my $server = CWMP::Server->new({
  26         port => $port,
  27         store => {
  28                 module => $store_plugin,
  29                 path => $store_path,
  30                 debug => $debug,
  31         },
  32         debug => $debug,
  33         default_queue => [
  34                 'GetRPCMethods',
  35                 [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
  36                 [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
  37                 [ 'GetParameterValues',
  38                         'InternetGatewayDevice.DeviceInfo.SerialNumber',
  39                         'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
  40                 ],
  41 #               'Reboot',
  42         ],
  43 });
  44 $server->run();
  45