smeserver-audittools/sme7/smeserver-audittools-0.0.2-pseudonymwithoutdomain.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms
--- smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms  2006-03-30 15:04:19.982342462 +1000
+++ mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms        2006-03-30 15:03:59.901760521 +1000
@@ -31,9 +31,15 @@
     my $account = $pseudonym->prop('Account');
     my $key = $pseudonym->key;
 
+    if ($key =~ /\@$/)
+    {
+        complain($key, "missing domain");
+       next;
+    }
+
     unless ($account)
     {
-        complain($key, "no Account property");
+        complain($key, "no Account property or Account property empty");
         next;
     }
 
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms
2			--- smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms 2006-03-30 15:04:19.982342462 +1000
3			+++ mezzanine_patched_smeserver-audittools-0.0.2/root/sbin/e-smith/audittools/pseudonyms 2006-03-30 15:03:59.901760521 +1000
4			@@ -31,9 +31,15 @@
5			my $account = $pseudonym->prop('Account');
6			my $key = $pseudonym->key;
7
8			+ if ($key =~ /\@$/)
9			+ {
10			+ complain($key, "missing domain");
11			+ next;
12			+ }
13			+
14			unless ($account)
15			{
16			- complain($key, "no Account property");
17			+ complain($key, "no Account property or Account property empty");
18			next;
19			}
20