r244@brr: dpavlin | 2007-11-20 12:18:29 +0100

[perl-cwmp.git] / bin / acs.pl

diff --git a/bin/acs.pl b/bin/acs.pl
index f143b4c..3675088 100755 (executable)
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -8,56 +8,39 @@ use strict;
 
 use lib './lib';
 use CWMP::Server;
+use CWMP::Session;
+use CWMP::Vendor;
 use Getopt::Long;
+use Data::Dump qw/dump/;
 
 my $port = 3333;
 my $debug = 0;
 my $store_path = './';
 my $store_plugin = 'YAML';
-my $protocol_dump = 0;
+my $create_dump = 1;
 
 GetOptions(
        'debug+' => \$debug,
        'port=i' => \$port,
        'store-path=s' => \$store_path,
        'store-plugin=s' => \$store_plugin,
-       'protocol-dump!' => \$protocol_dump,
+       'create_dump!' => \$create_dump,
 );
 
-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',
-       ];
-};
-
-
 my $server = CWMP::Server->new({
        port => $port,
-       store => {
-               module => $store_plugin,
-               path => $store_path,
-               debug => $debug,
+       session => {
+               store => {
+                       module => $store_plugin,
+                       path => $store_path,
+                       debug => $debug,
+               },
+               create_dump => $create_dump,
        },
        debug => $debug,
-       default_queue => [ $queue ],
 });
+
+CWMP::Vendor->add_triggers;
+
 $server->run();