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	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	+}