trunk/bin/acs.pl

#!/usr/bin/perl -w

# acs.pl
#
# 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;

use lib './lib';
use CWMP::Server;
use Getopt::Long;

my $port = 3333;
my $debug = 0;
my $store_path = './';
my $store_plugin = 'YAML';

GetOptions(
        'debug+' => \$debug,
        'port=i' => \$port,
        'store-path=s' => \$store_path,
        'store-plugin=s' => \$store_plugin,
);

my $server = CWMP::Server->new({
        port => $port,
        store => {
                module => $store_plugin,
                path => $store_path,
                debug => $debug,
        },
        debug => $debug,
        default_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',
        ],
});
$server->run();

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',
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();
51