From 240d4c17d2696c23d23ef45cab63c847ffe4068b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 9 Jun 2005 13:59:03 +0000
Subject: add get_interface_ip_address (with bits from drakpxelinux)

---
 perl-install/network/tools.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 220105a53..45c4eb4e6 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -224,4 +224,10 @@ sub get_default_metric {
     $idx * 10;
 }
 
+sub get_interface_ip_address {
+    my ($net, $interface) = @_;
+    `/sbin/ip addr show dev $interface` =~ /^\s*inet\s+([\d.]+)/m && $1 ||
+    $net->{ifcfg}{$interface}{IPADDR};
+}
+
 1;
-- 
cgit v1.2.1