trunk/bin/cpe-queue.pl

#!/usr/bin/perl -w

# cpe-queue.pl
#
# 11/12/2007 10:03:53 PM CET  <>

use strict;

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

my $debug = 0;
my $protocol_dump = 1;

GetOptions(
        'debug+' => \$debug,
        'protocol-dump!' => \$protocol_dump,
);

my $id = shift @ARGV || die "usage: $0 CPE_id [--protocol-dump]\n";

$id =~ s!^.*queue/+!!;
$id =~ s!/+$!!; #!

die "ID isn't valid: $id\n" unless $id =~ m/^\w+$/;

my $q = CWMP::Queue->new({ id => $id, debug => $debug });

if ( $protocol_dump ) {

        warn "generating dump of xml protocol with CPE\n";

        $q->enqueue( 'GetRPCMethods' );
        $q->enqueue( 'GetParameterNames' );

#       $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 );
#       $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 );

        $q->enqueue( 'GetParameterValues',
                                'InternetGatewayDevice.DeviceInfo.SerialNumber',
                                'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
                                'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
        );
        $q->enqueue( 'SetParameterValues',
                                'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
#                       'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
        );

#       $q->enqueue( 'Reboot' );

}

1	#!/usr/bin/perl -w
2
3	# cpe-queue.pl
4	#
5	# 11/12/2007 10:03:53 PM CET <>
6
7	use strict;
8
9	use lib './lib';
10	use CWMP::Queue;
11	use Getopt::Long;
12
13	my $debug = 0;
14	my $protocol_dump = 1;
15
16	GetOptions(
17	'debug+' => \$debug,
18	'protocol-dump!' => \$protocol_dump,
19	);
20
21	my $id = shift @ARGV \|\| die "usage: $0 CPE_id [--protocol-dump]\n";
22
23	$id =~ s!^.*queue/+!!;
24	$id =~ s!/+$!!; #!
25
26	die "ID isn't valid: $id\n" unless $id =~ m/^\w+$/;
27
28	my $q = CWMP::Queue->new({ id => $id, debug => $debug });
29
30	if ( $protocol_dump ) {
31
32	warn "generating dump of xml protocol with CPE\n";
33
34	$q->enqueue( 'GetRPCMethods' );
35	$q->enqueue( 'GetParameterNames' );
36
37	# $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 );
38	# $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 );
39
40	$q->enqueue( 'GetParameterValues',
41	'InternetGatewayDevice.DeviceInfo.SerialNumber',
42	'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
43	'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
44	);
45	$q->enqueue( 'SetParameterValues',
46	'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
47	# 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
48	);
49
50	# $q->enqueue( 'Reboot' );
51
52	}
53