smeserver-learn/contribs8/smeserver-learn-1.0-admin.patch

diff -urN smeserver-learn-1.0.admin/createlinks smeserver-learn-1.0/createlinks
--- smeserver-learn-1.0.admin/createlinks       2016-03-15 07:29:40.102000000 -0400
+++ smeserver-learn-1.0/createlinks     2016-03-15 07:39:54.135000000 -0400
@@ -4,5 +4,6 @@
 
 
 templates2events("/etc/cron.d/Learn", qw(email-update bootstrap-console-save ));
-
+safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Exclude');
+safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Include');
 
diff -urN smeserver-learn-1.0.admin/root/usr/bin/Learn.pl smeserver-learn-1.0/root/usr/bin/Learn.pl
--- smeserver-learn-1.0.admin/root/usr/bin/Learn.pl     2016-03-15 07:29:40.102000000 -0400
+++ smeserver-learn-1.0/root/usr/bin/Learn.pl   2016-03-15 07:32:10.000000000 -0400
@@ -43,6 +43,9 @@
 
 #getting user list
 my @users = $adb->users;
+#adding admin
+my @admin = $adb->get('admin');
+push @users ,@admin;
 
 # getting WL before running
 open(SADB, "/home/e-smith/db/spamassassin");
@@ -55,10 +58,15 @@
        my $firstname = $user->prop('FirstName');
        my $lastname = $user->prop('LastName');
        my $key = $user->key;
+        # verification if user included or excluded
+        my @include=  split(',',$sadb->get_prop("Learn", "Include")) if $sadb->get_prop("Learn", "Include");
+        my @exclude=  split(',',$sadb->get_prop("Learn", "Exclude")) if $sadb->get_prop("Learn", "Exclude");
+        next if ( defined @exclude and  @found = grep { $_ eq $key } @exclude );
+        next unless ( ! defined @include or @found = grep { $_ eq $key } @include );
 
        printf("Checking for user (%s): %s %s\n", $key,$firstname, $lastname);
 
-       my $MailDir = "/home/e-smith/files/users/" . $key . "/Maildir";
+       my $MailDir = ($key eq "admin")? "/home/e-smith/" .  "/Maildir" : "/home/e-smith/files/users/"  . $key . "/Maildir";
 
        my @modes = ("LearnAsSpam","LearnAsHam","LearnInWL");
        foreach my $mode (@modes) {
1	diff -urN smeserver-learn-1.0.admin/createlinks smeserver-learn-1.0/createlinks
2	--- smeserver-learn-1.0.admin/createlinks 2016-03-15 07:29:40.102000000 -0400
3	+++ smeserver-learn-1.0/createlinks 2016-03-15 07:39:54.135000000 -0400
4	@@ -4,5 +4,6 @@
5
6
7	templates2events("/etc/cron.d/Learn", qw(email-update bootstrap-console-save ));
8	-
9	+safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Exclude');
10	+safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Include');
11
12	diff -urN smeserver-learn-1.0.admin/root/usr/bin/Learn.pl smeserver-learn-1.0/root/usr/bin/Learn.pl
13	--- smeserver-learn-1.0.admin/root/usr/bin/Learn.pl 2016-03-15 07:29:40.102000000 -0400
14	+++ smeserver-learn-1.0/root/usr/bin/Learn.pl 2016-03-15 07:32:10.000000000 -0400
15	@@ -43,6 +43,9 @@
16
17	#getting user list
18	my @users = $adb->users;
19	+#adding admin
20	+my @admin = $adb->get('admin');
21	+push @users ,@admin;
22
23	# getting WL before running
24	open(SADB, "/home/e-smith/db/spamassassin");
25	@@ -55,10 +58,15 @@
26	my $firstname = $user->prop('FirstName');
27	my $lastname = $user->prop('LastName');
28	my $key = $user->key;
29	+ # verification if user included or excluded
30	+ my @include= split(',',$sadb->get_prop("Learn", "Include")) if $sadb->get_prop("Learn", "Include");
31	+ my @exclude= split(',',$sadb->get_prop("Learn", "Exclude")) if $sadb->get_prop("Learn", "Exclude");
32	+ next if ( defined @exclude and @found = grep { $_ eq $key } @exclude );
33	+ next unless ( ! defined @include or @found = grep { $_ eq $key } @include );
34
35	printf("Checking for user (%s): %s %s\n", $key,$firstname, $lastname);
36
37	- my $MailDir = "/home/e-smith/files/users/" . $key . "/Maildir";
38	+ my $MailDir = ($key eq "admin")? "/home/e-smith/" . "/Maildir" : "/home/e-smith/files/users/" . $key . "/Maildir";
39
40	my @modes = ("LearnAsSpam","LearnAsHam","LearnInWL");
41	foreach my $mode (@modes) {