/[cwmp]/google/trunk/bin/cpe-queue.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/bin/cpe-queue.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 220 by dpavlin, Tue Nov 20 13:10:27 2007 UTC revision 221 by dpavlin, Fri Nov 23 21:14:54 2007 UTC
# Line 116  foreach my $id ( @ARGV ) { Line 116  foreach my $id ( @ARGV ) {
116    
117                  $q->enqueue( 'GetRPCMethods' );                  $q->enqueue( 'GetRPCMethods' );
118    
119          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
120    
121          #       $q->enqueue( 'GetParameterValues', [                  $q->enqueue( 'GetParameterValues', [
122          #               'InternetGatewayDevice.',                  'InternetGatewayDevice.',
123          #       ]);                  ]);
124    
125          #       $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
126    
127          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );                  $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
128          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.', 1 ] );
129          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceConfig.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceConfig.', 1 ] );
130          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.ManagementServer.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.ManagementServer.', 1 ] );
131          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.Services.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.Services.', 1 ] );
132          #       $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );  #               $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
133    
134                  $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 0 ] );                  $q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.', 0 ] );
135                  $q->enqueue( 'GetParameterValues', [                  $q->enqueue( 'GetParameterValues', [
# Line 138  foreach my $id ( @ARGV ) { Line 138  foreach my $id ( @ARGV ) {
138    
139                  $q->enqueue( 'GetParameterAttributes', [                  $q->enqueue( 'GetParameterAttributes', [
140                          'InternetGatewayDevice.DeviceInfo.SerialNumber',                          'InternetGatewayDevice.DeviceInfo.SerialNumber',
141                            'InternetGatewayDevice.DeviceInfo.SoftwareVersion',
142                  ]);                  ]);
143    
144  #               $q->enqueue( 'SetParameterAttributes', [ '  #               $q->enqueue( 'SetParameterAttributes', [ '
Legend:
Removed from v.220  
changed lines
  Added in v.221
  ViewVC Help
Powered by ViewVC 1.1.26