e-smith-base/sme7/e-smith-base-4.18.0-gettextStrings.patch2

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl
--- e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl      2008-03-08 20:42:00.000000000 +1100
+++ mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl    2008-03-08 16:38:54.000000000 +1100
@@ -162,7 +162,7 @@
 
 sub get_raid_status
 {
-    die "Couldn't open /proc/mdstat:$!\n"
+    die gettext("Couldn't open") . " /proc/mdstat:$!\n"
         unless (open(MDSTAT, "/proc/mdstat"));
 
     my @mdstat;
@@ -179,7 +179,7 @@
 {
     my @devices = ();
 
-    die "Couldn't call mdadm: $!\n"
+    die gettext("Couldn't call") . " mdadm: $!\n"
         unless open(MDADM, "/sbin/mdadm --detail --scan|");
    
     while (<MDADM>)
@@ -192,7 +192,7 @@
 
     for my $dev (@devices)
     {
-        die "Couldn't call mdadm --detail $dev: $!\n" 
+        die gettext("Couldn't call") . " mdadm --detail $dev: $!\n" 
             unless open(MDADM, "/sbin/mdadm --detail $dev|");
 
         while ( <MDADM> )
@@ -226,7 +226,7 @@
 
 sub get_partitions
 {
-    die "Couldn't read /proc/partitions: $!\n" 
+    die gettext("Couldn't read") . " /proc/partitions: $!\n" 
         unless open (PARTITIONS, "/proc/partitions");
 
     my %parts;
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm        2008-03-08 20:42:00.000000000 +1100
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm      2008-03-08 20:41:12.000000000 +1100
@@ -891,7 +891,7 @@
                 "3.", "www.dyndns.com" . " - " . gettext("commercial service"),
                 "4.", "www.dyndns.org" . " - " . gettext("free service"),
                 "5.", "www.tzo.com"    . " - " . gettext("commercial service"),
-                "6.", "custom",
+                "6.", "custom",        . " - " . gettext("alternate DynDNS service"),
                );
 
     ($rc, $choice) = $console->menu_page
1	burnat	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl
2			--- e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl 2008-03-08 20:42:00.000000000 +1100
3			+++ mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/manageRAID.pl 2008-03-08 16:38:54.000000000 +1100
4			@@ -162,7 +162,7 @@
5
6			sub get_raid_status
7			{
8			- die "Couldn't open /proc/mdstat:$!\n"
9			+ die gettext("Couldn't open") . " /proc/mdstat:$!\n"
10			unless (open(MDSTAT, "/proc/mdstat"));
11
12			my @mdstat;
13			@@ -179,7 +179,7 @@
14			{
15			my @devices = ();
16
17			- die "Couldn't call mdadm: $!\n"
18			+ die gettext("Couldn't call") . " mdadm: $!\n"
19			unless open(MDADM, "/sbin/mdadm --detail --scan\|");
20
21			while (<MDADM>)
22			@@ -192,7 +192,7 @@
23
24			for my $dev (@devices)
25			{
26			- die "Couldn't call mdadm --detail $dev: $!\n"
27			+ die gettext("Couldn't call") . " mdadm --detail $dev: $!\n"
28			unless open(MDADM, "/sbin/mdadm --detail $dev\|");
29
30			while ( <MDADM> )
31			@@ -226,7 +226,7 @@
32
33			sub get_partitions
34			{
35			- die "Couldn't read /proc/partitions: $!\n"
36			+ die gettext("Couldn't read") . " /proc/partitions: $!\n"
37			unless open (PARTITIONS, "/proc/partitions");
38
39			my %parts;
40			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
41			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-03-08 20:42:00.000000000 +1100
42			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2008-03-08 20:41:12.000000000 +1100
43			@@ -891,7 +891,7 @@
44			"3.", "www.dyndns.com" . " - " . gettext("commercial service"),
45			"4.", "www.dyndns.org" . " - " . gettext("free service"),
46			"5.", "www.tzo.com" . " - " . gettext("commercial service"),
47			- "6.", "custom",
48			+ "6.", "custom", . " - " . gettext("alternate DynDNS service"),
49			);
50
51			($rc, $choice) = $console->menu_page