Changeset 2967 in MondoRescue for branches/3.0/mindi/mr-find-net

Timestamp:

Mar 17, 2012, 4:09:52 AM (12 years ago)

Author:

Bruno Cornec

Message:

r4568@cabanilles: bruno | 2012-03-15 14:14:57 +0100
mr-find-net now fully works

File:

• branches/3.0/mindi/mr-find-net (modified) (7 diffs)

branches/3.0/mindi/mr-find-net

@@ -1 +1 @@
 #!/usr/bin/perl -w
-
-# Syntax: find-net <NFS Server>
-
-use strict;
+#
+# Syntax: mr-net-find <IP Addr>
+# finds on which network device the the server is
+# $Id$
+#
+# Copyright B. Cornec 2007-2012
+# Provided under the GPL v2
+
+# Syntax: see at end
+
+use strict 'vars';
 use Socket;
 use Data::Dumper;
-#use ProjectBuilder::Base;
-
-my $nfsip = inet_ntoa(scalar gethostbyname($ARGV[0] || 'localhost'));
-print "NFS IP: $nfsip\n";
+use Getopt::Long qw(:config auto_abbrev no_ignore_case);
+use English;
+#use lib qw (lib);
+use ProjectBuilder::Version;
+use ProjectBuilder::Base;
+
+=pod
+
+=head1 NAME
+
+mr-net-find, finds on which network device a machine is reachable
+
+=head1 DESCRIPTION
+
+mr-net-find, finds on which network device an machine is reachable
+It takes the IP or named looked at as single parameter and diagnose on which device it's reachable or gives NONET if it's not.
+
+=head1 SYNOPSIS
+
+mr-net-find [-v] NFS_SERVER_NAME
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-v|--verbose>
+
+Be more verbose
+
+=back
+
+=head1 WEB SITES
+
+The main Web site of the project is available at L<http://www.mondorescue.org/>. Bug reports should be filled using the trac instance of the project at L<http://trac.mondorescue.org/>.
+
+=head1 USER MAILING LIST
+
+
+=head1 AUTHORS
+
+The MondoRescue team L<http://www.mondorescue.org/> lead by Bruno Cornec L<mailto:bruno@mondorescue.org>.
+
+=head1 COPYRIGHT
+
+MondoRescue.org is distributed under the GPL v2.0 license
+described in the file C<COPYING> included with the distribution.
+
+=cut
+
+# Global variables
+my ($mrver,$mrrev) = pb_version_init();
+my $appname = "mr-net-find";
+my %opts;                   # CLI Options
+
+# Initialize the syntax string
+
+pb_syntax_init("$appname Version $mrver-$mrrev\n");
+
+GetOptions("help|?|h" => \$opts{'h'}, 
+        "man" => \$opts{'man'},
+        "verbose|v+" => \$opts{'v'},
+) || pb_syntax(-1,0);
+
+if (defined $opts{'h'}) {
+    pb_syntax(0,1);
+}
+if (defined $opts{'man'}) {
+    pb_syntax(0,2);
+}
+if (defined $opts{'v'}) {
+    $pbdebug = $opts{'v'};
+}
+pb_log_init($pbdebug, $pbLOG);
+
+
+# Check to which network an IP balongs
+sub mr_net_for_ip {
+
+my ($ip, $if) = @_;
+my $dev = undef;
+
+# For each device on the system
+foreach my $d (keys %$if) {
+    # Skip non fully activated interfaces
+    next if ((not defined $if->{$d}->{'nm'}) || (not defined $if->{$d}->{'net'}) || (not defined $if->{$d}->{'bcast'}));
+    # Get the net & bcast assuming the ip is on that net with that nm
+    my ($net,$bcast) = mr_net_nbcast_from_in ($ip,$if->{$d}->{'nm'});
+    # Is it true ?
+    if (($net eq $if->{$d}->{'net'}) && ($bcast eq $if->{$d}->{'bcast'})) {
+        # found it, return that value
+        $dev = $d;
+        last;
+    }
+}
+return($dev);
+}
+
+sub mr_net_find_all {
 
 my %if;
@@ -19 +120 @@
     # Remove duplicate spaces
     $_ =~ s/\s+/ /g;
-    #print "Line: $_\n";
+    pb_log(2,"Line: $_\n");
     # Check for a new interface
     my $tmp;
@@ -26 +127 @@
         my $rank;
         ($rank,$dev,$tmp) = split(/:/);
-        #print "$rank,$dev,$tmp";
+        pb_log(3,"$rank,$dev,$tmp");
         $dev =~ s/\s*//;
         $if->{$dev}->{'if'} = $dev;
@@ -41 +142 @@
     ($if->{$dev}->{'ip'},my $cidr) = split(/\//,$if->{$dev}->{'cidr'});
 
-    $if->{$dev}->{'nm'} = cvt_bits_mask($cidr);
-
-    my ($ipaddress) = unpack("N",pack( "C4",split(/\./,$if->{$dev}->{'ip'})));
-    my ($netmask) = unpack( "N", pack( "C4",split(/\./,$if->{$dev}->{'nm'})));
-
-    # Calculate network address by logical AND operation of addr & netmask
-    # and convert network address to IP address format
-    $if->{$dev}->{'net'} = join(".",unpack("C4",pack("N",($ipaddress & $netmask))));
-
-    # Calculate broadcase address by inverting the netmask
-    # and do a logical or with network address
-    $if->{$dev}->{'bcast'} = join(".",unpack("C4",pack("N",($ipaddress & $netmask)+(~ $netmask))));
-}
-print "IP: ".Dumper($if)."\n";
-
-# From http://icmp.ru/man/cisco/cookbook/ciscockbk-CHP-5-SECT-3.htm
-sub cvt_bits_mask() {
+    $if->{$dev}->{'nm'} = mr_net_cvt_bits_mask($cidr);
+
+    ($if->{$dev}->{'net'},$if->{$dev}->{'bcast'}) = mr_net_nbcast_from_in($if->{$dev}->{'ip'},$if->{$dev}->{'nm'});
+}
+pb_log(2,"exit IP: ".Dumper($if)."\n");
+
+return($if);
+}
+
+
+# Improved from http://icmp.ru/man/cisco/cookbook/ciscockbk-CHP-5-SECT-3.htm
+sub mr_net_cvt_bits_mask {
 
 my ($bits) = @_;
@@ -80 +176 @@
                 $d = bits_to_dec($bits-24);
             } else {
-                print "invalid bit count\n";
-                exit();
+                die "invalid bit count\n";
             }
         }
@@ -89 +184 @@
 }
    
-sub bits_to_dec() {
+sub bits_to_dec {
 my ($bits) = @_;
    
@@ -102 +197 @@
 if ($bits == 8 ) { return 255; }
 }
+
+# Get Net and Broadcast from IP and Netmask
+sub mr_net_nbcast_from_in  {
+
+my ($ip,$nm) = @_;
+my ($ipaddress) = unpack("N",pack( "C4",split(/\./,$ip)));
+my ($netmask) = unpack( "N", pack( "C4",split(/\./,$nm)));
+
+# Calculate network address by logical AND operation of addr & netmask
+# and convert network address to IP address format
+my $net = join(".",unpack("C4",pack("N",($ipaddress & $netmask))));
+
+# Calculate broadcase address by inverting the netmask
+# and do a logical or with network address
+my $bcast = join(".",unpack("C4",pack("N",($ipaddress & $netmask)+(~ $netmask))));
+return($net,$bcast);
+}
+
+#Main
+
+my $nfsip = inet_ntoa(scalar gethostbyname($ARGV[0] || 'localhost'));
+
+my $if = mr_net_find_all();
+pb_log(1,"IP: ".Dumper($if)."\n");
+my $dev = mr_net_for_ip($nfsip,$if);
+my $strnet = "NONET";
+$strnet = $dev if (defined $dev);
+pb_log(1,"NFS IP ($nfsip) is on net $strnet)\n");
+pb_log(0,"$strnet\n");