/[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

revision 196 by dpavlin, Sun Oct 28 21:36:30 2007 UTC revision 197 by dpavlin, Mon Nov 12 22:03:01 2007 UTC
# Line 14  my $port = 3333; Line 14  my $port = 3333;
14  my $debug = 0;  my $debug = 0;
15  my $store_path = './';  my $store_path = './';
16  my $store_plugin = 'YAML';  my $store_plugin = 'YAML';
 my $protocol_dump = 0;  
17    
18  GetOptions(  GetOptions(
19          'debug+' => \$debug,          'debug+' => \$debug,
20          'port=i' => \$port,          'port=i' => \$port,
21          'store-path=s' => \$store_path,          'store-path=s' => \$store_path,
22          'store-plugin=s' => \$store_plugin,          'store-plugin=s' => \$store_plugin,
         'protocol-dump!' => \$protocol_dump,  
23  );  );
24    
 my $queue;  
   
 if ( $protocol_dump ) {  
   
         warn "generating dump of xml protocol with CPE\n";  
   
         $queue = [  
                         'GetRPCMethods',  
                         'GetParameterNames',  
 #                       [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],  
 #                       [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],  
                         [ 'GetParameterValues',  
                                 'InternetGatewayDevice.DeviceInfo.SerialNumber',  
                                 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',  
                                 'InternetGatewayDevice.DeviceInfo.X_000E50_Country',  
                         ],  
                         [ 'SetParameterValues',  
                                 'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',  
 #                       'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,  
                         ],  
 #                       'Reboot',  
         ];  
 };  
   
25    
26  my $server = CWMP::Server->new({  my $server = CWMP::Server->new({
27          port => $port,          port => $port,
# Line 57  my $server = CWMP::Server->new({ Line 31  my $server = CWMP::Server->new({
31                  debug => $debug,                  debug => $debug,
32          },          },
33          debug => $debug,          debug => $debug,
         default_queue => [ $queue ],  
34  });  });
35  $server->run();  $server->run();
36    
Legend:
Removed from v.196  
changed lines
  Added in v.197
  ViewVC Help
Powered by ViewVC 1.1.26