projects / ifupdown-pve.git / blame
| Commit | Line | Data |
|---|---|---|
| 6f248ce1 TL |
1 | #!/usr/bin/perl |
| 2 | # | |
| 3 | # Generate a report of the status of interfaces configured | |
| 4 | # by 'ifupdown' | |
| 5 | # (c) 2004 Javier Fernandez-Sanguino <jfs@debian.org> | |
| 6 | # | |
| 7 | # This program is free software; you can redistribute it and/or modify | |
| 8 | # it under the terms of the GNU General Public License as published by | |
| 9 | # the Free Software Foundation; either version 2 of the License, or | |
| 10 | # (at your option) any later version. | |
| 11 | # | |
| 12 | # This program is distributed in the hope that it will be useful, | |
| 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 | # GNU General Public License for more details. | |
| 16 | # | |
| 17 | # You should have received a copy of the GNU General Public License | |
| 18 | # along with this program; if not, write to the Free Software | |
| 19 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| 20 | # | |
| 21 | ||
| 22 | $statefile="/run/network/ifstate"; | |
| 23 | $configfile="/etc/network/interfaces"; | |
| 24 | ||
| 25 | open (IFACE,"<$configfile") || die ("Could not open $configfile: $!\n"); | |
| 26 | while (<IFACE>) { | |
| 27 | chomp; | |
| 28 | if ( /^iface\s+(\w+)\s+/ ) { | |
| 29 | $configured{$1}=$_; | |
| 30 | } | |
| 31 | } | |
| 32 | ||
| 33 | close IFACE; | |
| 34 | ||
| 35 | open (IPLINK,"ip link show|") || die ("Could not execute ip: $!\n"); | |
| 36 | while (<IPLINK>) { | |
| 37 | chomp; | |
| 38 | # FORMAT | |
| 39 | # #: AAAA: <XXXXX,UP> mtu 16436 qdisc noqueue | |
| 40 | if ( /^\d+: (\w+):.*?\<.*?,UP.*?\>/ ) { | |
| 41 | $iplink{$1}=$_; | |
| 42 | } | |
| 43 | } | |
| 44 | close IPLINK; | |
| 45 | ||
| 46 | ||
| 47 | open (STATE,"<$statefile") || die ("Could not open $statefile: $!\n"); | |
| 48 | $line = 0; | |
| 49 | while (<STATE>) { | |
| 50 | chomp; | |
| 51 | $line++; | |
| 52 | # Format is IFACE=IFACE | |
| 53 | if ( /^(\w+)=(\w+)$/ ) { | |
| 54 | $iface = $1; | |
| 55 | $ifaces = $2; | |
| 56 | if ( $iface ne $ifaces ) { | |
| 57 | print STDERR "Error in $statefile (line $line), interface names do not match ('$iface' and '$ifaces')\n"; | |
| 58 | } else { | |
| 59 | check_status($iface); | |
| 60 | } | |
| 61 | } else { | |
| 62 | print STDERR "Error in $statefile (line $line), unknown content\n"; | |
| 63 | } | |
| 64 | ||
| 65 | } | |
| 66 | close STATE; | |
| 67 | ||
| 68 | exit 0; | |
| 69 | ||
| 70 | sub check_status { | |
| 71 | my ($int) = @_; | |
| 72 | print "$int: "; | |
| 73 | my $status = "UP"; | |
| 74 | # Check if it's really up, this is done basically because ifupdown | |
| 75 | # might not have configured it properly even if it thinks he has | |
| 76 | # (sample: ifconfig croaks when wrong parameters are used and | |
| 77 | # ifupdown does not detect that the system call went awry) | |
| 78 | $status = "ERROR_NOT_REALLY_UP" if ! defined ($iplink{$int}) ; | |
| 79 | if ( defined ( $configured{$int} ) ) { | |
| 80 | $status .= ",CONFIGURED"; | |
| 81 | } else { | |
| 82 | $status .= ",MANUALLY_CONFIGURED"; | |
| 83 | } | |
| 84 | print "$status\n"; | |
| 85 | return 0; | |
| 86 | } |