e-smith-formmagick/sme8/e-smith-formmagick-1.4.0-passlength.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm
--- e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm  2006-03-15 14:59:29.000000000 -0700
+++ mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm        2007-06-01 13:59:21.000000000 -0600
@@ -794,7 +794,10 @@
 
     my $reason;
 
-    return "OK" if ($strength eq "none");
+    if ($strength eq "none") {
+        return $fm->localise("Passwords must be at least 7 characters long") unless (length($pass) > 6);
+        return "OK";
+    }
 
     $reason = $fm->call_fm_validation('password', $pass, undef);
 
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm
2			--- e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm 2006-03-15 14:59:29.000000000 -0700
3			+++ mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm 2007-06-01 13:59:21.000000000 -0600
4	bytegw	1.2	@@ -794,7 +794,10 @@
5	slords	1.1
6			my $reason;
7
8			- return "OK" if ($strength eq "none");
9			+ if ($strength eq "none") {
10			+ return $fm->localise("Passwords must be at least 7 characters long") unless (length($pass) > 6);
11			+ return "OK";
12			+ }
13
14			$reason = $fm->call_fm_validation('password', $pass, undef);
15	bytegw	1.2