initial commit of file from CVS for smeserver-spamassassin on Mon 10 Jul 08:42:51 BST 2023

root/etc/e-smith/templates-user/.qmail/15sortspam

@@ -0,0 +1,16 @@
+{
+    use esmith::AccountsDB;
+
+    my $db = esmith::AccountsDB->open_ro or return "# AccountsDB: open failed";
+
+    my $user = $db->get($USERNAME) or return "# AccountsDB: No user $USERNAME";
+
+    my $do_sortspam = $user->prop('SortSpam') 
+                        || $spamassassin{SortSpam} 
+                        || "enabled";
+
+    return "# sortspam disabled" unless ($do_sortspam eq "enabled");
+
+    return qq(| condredirect $USERNAME-junkmail headermatch 'X-Spam-Status: Yes');
+
+}