initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023

root/etc/e-smith/templates-user/.qmail-junkmail/10deliver_to_junkmail

@@ -0,0 +1,2 @@
+| [ -d ./Maildir/.junkmail/ ] || /var/qmail/bin/maildirmake ./Maildir/.junkmail/
+./Maildir/.junkmail/

root/etc/e-smith/templates-user/.qmail/00setup

@@ -0,0 +1,14 @@
+{
+    # vim: ft=perl:
+    die "USERNAME not set." unless defined ($USERNAME);
+
+    use esmith::AccountsDB;
+    $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
+
+    $user = $adb->get($USERNAME) or die "No user $USERNAME in AccountsDB";
+
+    %props = $user->props;
+    $props{EmailForward} ||= 'local';
+
+    $OUT = '';
+}

root/etc/e-smith/templates-user/.qmail/10Filter

@@ -0,0 +1,20 @@
+{
+    # vim: ft=perl:
+    $OUT = '';
+
+    $props{Filter} ||= 'yes';
+
+    return '# Filter property is no' 
+	unless ($props{Filter} eq 'yes');
+
+    my $preprocessing = "";
+    my $dt = $qmail{DeliveryType} || '';
+
+    if ($dt eq 'program')
+    {
+        $preprocessing .= '| ';
+    }
+    $preprocessing .= $qmail{DeliveryInstruction} || '';
+
+    $OUT = "$preprocessing\n" if $preprocessing;
+}

root/etc/e-smith/templates-user/.qmail/70Forward

@@ -0,0 +1,7 @@
+{
+    # vim: ft=perl:
+    return '# Forward not set' 
+	unless ($props{EmailForward} =~ /^(forward|both)$/);
+
+    return '&' . $props{ForwardAddress};
+}

root/etc/e-smith/templates-user/.qmail/90local

@@ -0,0 +1,7 @@
+{
+    # vim: ft=perl:
+    return '# No local delivery'
+	 unless ($props{EmailForward} =~ /^(local|both)$/);
+
+    return './Maildir/';
+}