Subversion Repositories camp_sysinfo_client_3

Rev

Rev 256 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 256 Rev 257
Line 86... Line 86...
86 
   # inet6 addr: fe80::216:3eff:fe1f:ef4f/64 Scope:Link
 86 
   # inet6 addr: fe80::216:3eff:fe1f:ef4f/64 Scope:Link
87 
   my $regexINET6 = 'inet6\s*([0-9a-f:]+).*prefixlen\s*(\d+)';
 87 
   my $regexINET6 = 'inet6\s*([0-9a-f:]+).*prefixlen\s*(\d+)';
88 
   # UP LOOPBACK RUNNING  MTU:16436  Metric:1
 88 
   # UP LOOPBACK RUNNING  MTU:16436  Metric:1
89 
   my $regexMTU = 'mtu\s([0-9]+)';
 89 
   my $regexMTU = 'mtu\s([0-9]+)';
90 
   my $temp = qx( ifconfig );
 90 
   my $temp = qx( ifconfig );
91 
   my @temp = split( "", $temp );
 91 
   my @temp = split( "\n", $temp );
- 
 
 92 
#   die Dumper( \@temp );
92 
   my $currentIF;
 93 
   my $currentIF;
93 
   while ( @temp ) {
 94 
   while ( @temp ) {
94 
      my $line = shift @temp;
 95 
      my $line = shift @temp;
95 
      next unless $line;
 96 
      next unless $line;
96 
      if ( $line =~ m/^([^ ]+):/) { # if the first character is not a space, starting new entry
 97 
      if ( $line =~ m/^([^ ]+):/) { # if the first character is not a space, starting new entry