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