5 # 11/12/2007 10:03:53 PM CET <>
14 my $protocol_dump = 1;
18 'protocol-dump!' => \$protocol_dump,
21 my $id = shift @ARGV || die "usage: $0 CPE_id [--protocol-dump]\n";
23 $id =~ s!^.*queue/+!!;
26 die "ID isn't valid: $id\n" unless $id =~ m/^\w+$/;
28 my $q = CWMP::Queue->new({ id => $id, debug => $debug });
30 if ( $protocol_dump ) {
32 warn "generating dump of xml protocol with CPE\n";
34 $q->enqueue( 'GetRPCMethods' );
35 $q->enqueue( 'GetParameterNames' );
37 # $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 );
38 # $q->enqueue( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 );
40 $q->enqueue( 'GetParameterValues',
41 'InternetGatewayDevice.DeviceInfo.SerialNumber',
42 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
43 'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
45 $q->enqueue( 'SetParameterValues',
46 'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
47 # 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
50 # $q->enqueue( 'Reboot' );