X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=bin%2Fcpe-queue.pl;fp=bin%2Fcpe-queue.pl;h=2135884454c5dab16301870ae907ca6501913096;hp=0000000000000000000000000000000000000000;hb=fec1acf5d1dfce1a661535d2b40b0e9d97de6005;hpb=ca6ef25dcfcb37bd49839770139c8568de69471c

diff --git a/bin/cpe-queue.pl b/bin/cpe-queue.pl
new file mode 100755
index 0000000..2135884
--- /dev/null
+++ b/bin/cpe-queue.pl
@@ -0,0 +1,53 @@
+#!/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' );
+
+}
+