diff options
Diffstat (limited to 'lib/Vyatta/Interface.pm')
| -rw-r--r-- | lib/Vyatta/Interface.pm | 211 |
1 files changed, 211 insertions, 0 deletions
diff --git a/lib/Vyatta/Interface.pm b/lib/Vyatta/Interface.pm new file mode 100644 index 0000000..e71aacb --- /dev/null +++ b/lib/Vyatta/Interface.pm @@ -0,0 +1,211 @@ +#!/usr/bin/perl + +# Module Vyatta::Interface.pm + +# **** License **** +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License version 2 as +# published by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# This code was originally developed by Vyatta, Inc. +# Portions created by Vyatta are Copyright (C) 2008 Vyatta, Inc. +# All Rights Reserved. +# **** End License **** + +package Vyatta::Interface; + +use strict; +use warnings; +use Vyatta::Config; + +use constant { + IFF_UP => 0x1, + IFF_RUNNING => 0x40, +}; + +my %net_prefix = ( + 'adsl[\d]+' => { path => 'adsl', + vif => 'vif', }, + 'bond[\d]+' => { path => 'bonding', + vif => 'vif', }, + 'br[\d]+' => { path => 'bridge', + vif => 'vif' }, + 'eth[\d]+' => { path => 'ethernet', + vif => 'vif', }, + 'lo' => { path => 'loopback' }, + 'ml[\d]+' => { path => 'multilink', + vif => 'vif', }, + 'vtun[\d]+]' => { path => 'openvpn' }, + 'wan[\d]+' => { + path => 'serial', + vif => ( 'cisco-hdlc vif', 'ppp vif', 'frame-relay vif' ), + }, + 'tun[\d]+' => { path => 'tunnel' }, + 'wlm[\d]+' => { path => 'wireless-modem' }, +); + +sub new { + my $that = shift; + my $name = pop; + my $class = ref($that) || $that; + my ($dev, $vif); + + # Strip off vif from name + if ( $name =~ m/(\w)+\.(\d)+/ ) { + $dev = $1; + $vif = $2; + } else { + $dev = $name; + } + + foreach my $prefix (keys %net_prefix) { + next unless $dev =~ /$prefix/; + my $path = $net_prefix{$prefix}{path}; + my $vifpath = $net_prefix{$prefix}{vif}; + + # Interface name has vif, but this type doesn't support vif! + return if ( $vif && !$vifpath ); + + # Check path if given + return if ( $#_ >= 0 && join( ' ', @_ ) ne $path ); + + $path = "interfaces $path $dev"; + $path .= " $vifpath $vif" if $vif; + + my $self = { + name => $name, + path => $path, + dev => $dev, + vif => $vif, + }; + + bless $self, $class; + return $self; + + } + + return; # nothing +} + +## Field accessors +sub name { + my $self = shift; + return $self->{name}; +} + +sub path { + my $self = shift; + return $self->{path}; +} + +sub vif { + my $self = shift; + return $self->{vif}; +} + +sub physicalDevice { + my $self = shift; + return $self->{dev}; +} + +## Configuration checks + +sub configured { + my $self = shift; + my $config = new Vyatta::Config; + + return $config->exists( $self->{path} ); +} + +sub disabled { + my $self = shift; + my $config = new Vyatta::Config; + + $config->setLevel( $self->{path} ); + return $config->exists("disable"); +} + +sub mtu { + my $self = shift; + my $config = new Vyatta::Config; + + $config->setLevel( $self->{path} ); + return $config->returnValue("mtu"); +} + +sub dhcp { + my $self = shift; + my $config = new Vyatta::Config; + $config->setLevel( $self->{path} ); + + my @addr = grep { $_ eq 'dhcp' } $config->returnOrigValues('address'); + + return if ($#addr < 0); + return $addr[0]; +} + +# return array of static address (if any) +sub address { + my $self = shift; + my $config = new Vyatta::Config; + $config->setLevel( $self->{path} ); + + my @addr = grep { $_ ne 'dhcp' } $config->returnOrigValues('address'); + + return @addr if (wantarray); + return if ($#addr < 0); + return $addr[0]; +} + +## System checks +sub exists { + my $self = shift; + + return ( -d "/sys/class/net/$self->{name}" ); +} + +sub _flags { + my $self = shift; + + open my $flags, '<', "/sys/class/net/$self->{name}/flags" + or return; + + my $val = <$flags>; + chomp $val; + close $flags; + return hex($val); +} + +# device exists and is online +sub up { + my $self = shift; + my $flags = $self->_flags(); + + return $flags && ( $flags & IFF_UP ); +} + +# device exists and is running (ie carrier present) +sub running { + my $self = shift; + my $flags = $self->_flags(); + + return $flags && ( $flags & IFF_RUNNING ); +} + +# device description information in kernel (future use) +sub description { + my $self = shift; + + open my $ifalias, '<', "/sys/class/net/$self->{name}/ifalias" + or return; + my $description = <$ifalias>; + close $ifalias; + return $description; +} + +1; |