extract mac address

diff --git a/lib/H1/Davolink.pm b/lib/H1/Davolink.pm
index 4624e5d..93c94bb 100644 (file)
--- a/lib/H1/Davolink.pm
+++ b/lib/H1/Davolink.pm
@@ -28,7 +28,13 @@ sub info {
                        warn "#S $line\n";
                }
        }
-
+        foreach my $line ( $telnet->cmd("ifconfig br0") ) {
+               chomp $line;
+               if ($line=~/^br0.*/) {
+                       my ($mac) = ($line=~/^br0.*HWaddr\s(.*)$/);
+                       $rec->{"MAC"} = $mac;
+               }
+       }
        return $rec;
 }