e-smith-base/sme7/e-smith-base-4.18.0-cert_regen.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt mezzanine_patched_e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt
--- e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt 2007-10-11 18:57:07.000000000 -0400
+++ mezzanine_patched_e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt       2007-10-11 18:48:06.000000000 -0400
@@ -13,6 +13,13 @@
     my $defaultDepartment = $ldap{defaultDepartment};
     my $email = "admin\@$DomainName";
 
+    # crop fields that are too long for X509:
+    $defaultCity = substr($defaultCity, 0, 128); 
+    $defaultCompany = substr($defaultCompany, 0, 64); 
+    $defaultDepartment = substr($defaultDepartment, 0, 64); 
+    $email = substr($email, 0, 64);
+    $commonName = substr($commonName, 0, 64);
+
     if ( -f $crt )
     {
         my $expire = `openssl x509 -enddate -noout -in $crt`;
@@ -60,23 +67,6 @@
        {
            # parent
 
-           # anonymous sub to crop a variable to a specified size
-           my $cropLeft = sub { 
-               my ($var, $len) = @_;
-               if (length($var) > $len)
-               { 
-                   $var = substr($var, 0, $len);
-               }
-               return $var;
-           };
-
-           # crop fields that are too long for X509:
-           $defaultCity = &$cropLeft($defaultCity, 128); 
-           $defaultCompany = &$cropLeft($defaultCompany, 64); 
-           $defaultDepartment = &$cropLeft($defaultDepartment, 64); 
-           $email = &$cropLeft($email, 40);
-           $commonName = &$cropLeft($commonName, 64);
-
            foreach (
                    "--",
                    "----",
1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt mezzanine_patched_e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt
2	--- e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt 2007-10-11 18:57:07.000000000 -0400
3	+++ mezzanine_patched_e-smith-base-4.18.0/root/etc/e-smith/templates/home/e-smith/ssl.crt 2007-10-11 18:48:06.000000000 -0400
4	@@ -13,6 +13,13 @@
5	my $defaultDepartment = $ldap{defaultDepartment};
6	my $email = "admin\@$DomainName";
7
8	+ # crop fields that are too long for X509:
9	+ $defaultCity = substr($defaultCity, 0, 128);
10	+ $defaultCompany = substr($defaultCompany, 0, 64);
11	+ $defaultDepartment = substr($defaultDepartment, 0, 64);
12	+ $email = substr($email, 0, 64);
13	+ $commonName = substr($commonName, 0, 64);
14	+
15	if ( -f $crt )
16	{
17	my $expire = `openssl x509 -enddate -noout -in $crt`;
18	@@ -60,23 +67,6 @@
19	{
20	# parent
21
22	- # anonymous sub to crop a variable to a specified size
23	- my $cropLeft = sub {
24	- my ($var, $len) = @_;
25	- if (length($var) > $len)
26	- {
27	- $var = substr($var, 0, $len);
28	- }
29	- return $var;
30	- };
31	-
32	- # crop fields that are too long for X509:
33	- $defaultCity = &$cropLeft($defaultCity, 128);
34	- $defaultCompany = &$cropLeft($defaultCompany, 64);
35	- $defaultDepartment = &$cropLeft($defaultDepartment, 64);
36	- $email = &$cropLeft($email, 40);
37	- $commonName = &$cropLeft($commonName, 64);
38	-
39	foreach (
40	"--",
41	"----",