1 files changed, 0 insertions, 38 deletions
diff --git a/bin/tozt/learn_spam b/bin/tozt/learn_spam
deleted file mode 100755
index 128ca9a..0000000
--- a/bin/tozt/learn_spam
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/bin/sh
-set -eu
-set -o pipefail
-
-MAILDIR=~/Maildir
-OPTS="--no-sync"
-SALEARN=/usr/bin/vendor_perl/sa-learn
-
-if [ "$1" = "-q" ]; then
-    OPTS="$OPTS"
-    OUTFILE="/dev/null"
-else
-    OPTS="$OPTS --showdots"
-    OUTFILE="/dev/stdout"
-fi
-
-if [ ! "$1" = "-q" ]; then
-    echo "$(date): Learning ham..."
-fi
-nice find $MAILDIR -type f | \
-    perl -nl0e'chomp; ($ts) = /(\d{10})/; $now = time; print if m{/(new|cur)/} && !m{/(\.old|\.spam)/} && $ts > $now - 60*60*24*30' | \
-    xargs -n1000 -0 $SALEARN "$OPTS" --ham > $OUTFILE
-
-if [ ! "$1" = "-q" ]; then
-    echo "$(date): Learning spam..."
-fi
-nice find $MAILDIR -type f | \
-    perl -nl0e'chomp; ($ts) = /(\d{10})/; $now = time; print if m{/(new|cur)/} && m{/\.spam/} && $ts > $now - 60*60*24*30' | \
-    xargs -n1000 -0 $SALEARN "$OPTS" --spam > $OUTFILE
-
-if [ ! "$1" = "-q" ]; then
-    echo "$(date): Syncing..."
-fi
-nice $SALEARN --sync > $OUTFILE
-
-if [ ! "$1" = "-q" ]; then
-    echo "$(date): Done!"
-fi