e-smith-base/sme8/e-smith-base-5.2.0-migrateHWaddr.patch

diff -up e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac.migrateHWaddr e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac
--- e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac.migrateHWaddr   2010-10-11 16:54:44.000000000 -0600
+++ e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac 2010-10-11 17:16:20.000000000 -0600
@@ -0,0 +1,18 @@
+{
+    foreach my $iface ( qw(InternalInterface ExternalInterface) )
+    {
+        my $iface = $DB->get($iface) || next;
+        next if $iface->prop('HWAddress');
+
+        if ($iface->prop('Name') =~ m{^(eth[0-9])$})
+        {
+            if (open(MAC, "/sys/class/net/$1/address"))
+            {
+                $addr=<MAC>;
+                close(MAC);
+                chomp $addr;
+                $iface->set_prop('HWAddress', $addr);
+            }
+        }
+    }
+}
1	slords	1.1	diff -up e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac.migrateHWaddr e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac
2			--- e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac.migrateHWaddr 2010-10-11 16:54:44.000000000 -0600
3			+++ e-smith-base-5.2.0/root/etc/e-smith/db/configuration/migrate/20interfaceMac 2010-10-11 17:16:20.000000000 -0600
4			@@ -0,0 +1,18 @@
5			+{
6			+ foreach my $iface ( qw(InternalInterface ExternalInterface) )
7			+ {
8			+ my $iface = $DB->get($iface) \|\| next;
9			+ next if $iface->prop('HWAddress');
10			+
11			+ if ($iface->prop('Name') =~ m{^(eth[0-9])$})
12			+ {
13			+ if (open(MAC, "/sys/class/net/$1/address"))
14			+ {
15			+ $addr=<MAC>;
16			+ close(MAC);
17			+ chomp $addr;
18			+ $iface->set_prop('HWAddress', $addr);
19			+ }
20			+ }
21			+ }
22			+}