/[Intel-AMT]/trunk/lib/Intel/AMT/NetworkAdministration.pm
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 /trunk/lib/Intel/AMT/NetworkAdministration.pm

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

revision 18 by dpavlin, Sun Aug 9 19:40:05 2009 UTC revision 19 by dpavlin, Sun Aug 30 15:21:22 2009 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
7    
8    our $debug = 0;
9    
10  =for reference  =for reference
11    
12  dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/Linux/Intel_AMT/Samples/Soap/NetworkAdministration/c++$ grep FunctionCall *  dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/Linux/Intel_AMT/Samples/Soap/NetworkAdministration/c++$ grep FunctionCall *
# Line 65  sub network_settings { Line 67  sub network_settings {
67                  ping => $soap->GetPingResponse->paramsout,                  ping => $soap->GetPingResponse->paramsout,
68          };          };
69    
70          warn "# network_settings ",dump( $info );          warn "# network_settings ",dump( $info ) if $debug;
71    
72          foreach my $if ( @{ $info->{interfaces} } ) {          foreach my $if ( @{ $info->{interfaces} } ) {
73                  my $detail = $soap->GetInterfaceSettings( SOAP::Data->name('InterfaceHandle'=>$if) )->paramsout;                  my $detail = $soap->GetInterfaceSettings( SOAP::Data->name('InterfaceHandle'=>$if) )->paramsout;
74                  warn "## $if ",dump( $detail );                  warn "## $if ",dump( $detail ) if $debug;
75                  foreach my $param ( keys %{ $detail->{IPv4Parameters} } ) {                  foreach my $param ( keys %{ $detail->{IPv4Parameters} } ) {
76                          if ( my $ip = $detail->{IPv4Parameters}->{$param} ) {                          if ( my $ip = $detail->{IPv4Parameters}->{$param} ) {
77                                  $detail->{IPv4Parameters}->{$param} = ipv4( $ip );                                  $detail->{IPv4Parameters}->{$param} = ipv4( $ip );
Legend:
Removed from v.18  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26