/[cwmp]/google/trunk/bin/acs.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/bin/acs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

google/bin/acs.pl revision 53 by dpavlin, Tue Jun 19 22:06:46 2007 UTC google/trunk/bin/acs.pl revision 178 by dpavlin, Sun Oct 28 19:47:30 2007 UTC
# Line 8  use strict; Line 8  use strict;
8    
9  use lib './lib';  use lib './lib';
10  use CWMP::Server;  use CWMP::Server;
11    use Getopt::Long;
12    
13  my $port = 3333;  my $port = 3333;
14  my $debug = shift @ARGV;  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({  my $server = CWMP::Server->new({
26          port => $port,          port => $port,
27            store => {
28                    module => $store_plugin,
29                    path => $store_path,
30                    debug => $debug,
31            },
32          debug => $debug,          debug => $debug,
33          queue => [ qw/          default_queue => [
34                  GetRPCMethods                  'GetRPCMethods',
35                  Reboot                  'GetParameterNames',
36          / ],  #               [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
37    #               [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
38                    [ 'GetParameterValues',
39                            'InternetGatewayDevice.DeviceInfo.SerialNumber',
40                            'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
41                            'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
42                    ],
43                    [ 'SetParameterValues',
44                            'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
45    #                       'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
46                    ],
47    #               'Reboot',
48            ],
49  });  });
50  $server->run();  $server->run();
51    
Legend:
Removed from v.53  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.26