[8428] in SIPB bug reports
Re: spam-inc for Ask SIPB column
daemon@ATHENA.MIT.EDU (Richard Tibbetts)
Fri Mar 14 13:56:35 2003
Date: Fri, 14 Mar 2003 13:56:27 -0500
From: Richard Tibbetts <tibbetts@MIT.EDU>
To: bug-sipb@mit.edu, sipb-tech-column@mit.edu
Mail-Followup-To: bug-sipb@mit.edu, sipb-tech-column@mit.edu
In-Reply-To: <20030313063417.GR9199@innocuous.mit.edu>
After no comments, and encouragement from people on zephyr, I
repointed the symlink and released the project.sipb volume, so this
script is now live.
Richard.
On Thu, Mar 13, 2003 at 01:34:17AM -0500, Richard Tibbetts wrote:
> I have just made steps towards installing spam-inc in the sipb locker.
> spam-inc has the goal of being a drop in inc replacement for mh users
> who wish to refile their spam into mh folders. You can see the column
> at http://www.mit.edu/~asksipb/2003columns/2003-03-14-spamassassin/
> The relevant question is the last one.
>
> This script has grown a great deal since 5pm today. I think it is
> stabilizing around a reasonable set of features. However, it still has
> bugs. I would like to ask the help of people here to iron them out. Until
> I am happier with it, the links in the various binary directories end up
> pointing to a script that just prints a message.
>
> I am including the script in this mail, to get some more eyeballs on
> it. The script is installed and available for editing at
> /mit/sipb/share/spam-inc/spam-inc.real. You will have to edit the
> read-write version, of course. Please use RCS. Thanks for your time.
>
> Richard
>
>
> #!/bin/sh
> # $Id: spam-inc.real,v 1.2 2003/03/13 06:24:36 tibbetts Exp $
> # Originally written 03/13/2003 for the Ask SIPB column in the tech.
> # Bugs to bug-sipb@mit.edu, Questions to sipb@mit.edu
>
> # KNOWN BUGS
> # - incing to non-inbox doesn't work
> # - incing to non existant folder doesn't work
> # - there are some quoting issues.
> # - because it scans the messages before refiling, the numbers
> # listed won't be the ones in the spamfolder.
> #
> # add any more bugs you find, if you don't have time to fix them.
>
> # Settings
> SPAMFOLDER=${SPAMFOLDER-"spamfolder"} # Folder to put spam in
> QUOTATHRESH=${QUOTATHRESH-"10"} # Threshold for quota warning,
> # in megabytes.
>
> # Find the mailbox, if any. Will have the + sign.
> MAILBOX=`echo $@ | xargs -n 1 | grep '^+'`
>
> # Find the last current message. Calculate the new first message.
> OLDLAST=`pick last $MAILBOX`
> NEWFIRST=`expr $OLDLAST + 1`
>
> # Incorporate new mail using whatever arguments were specified.
> if inc -silent "$@"; then
> # Mark all the new messages as part of the unscreened sequence
> mark -zero $NEWFIRST-last -sequence unscreened
> # Pickout unscreened messages that have the spam flag.
> if (pick unscreened -sequence spams --x-spam-flag YES 2>/dev/null); then
> echo "Refiling spam:"
> # Show the spams subject lines and put them in the spam folder.
> scan spams;
> refile "+$SPAMFOLDER" spams
> echo
> fi
> # Display the remaining messages in the unscreened sequence, if any
> if (pick unscreened 2>/dev/null >/dev/null); then
> echo "Non-spam mail:"
> scan unscreened
> fi
> else
> exit
> fi
>
> # Check to see if the user is using a lot of quota
> USAGE=`du -sk "$HOME/Mail/$SPAMFOLDER/" |
> awk '{print int(\$1/1024)}'`
> if [ $USAGE -ge $QUOTATHRESH ]; then
> echo
> echo You have $USAGE megabytes of spam in your spamfolder. To delete
> echo some of it, change to your spamfolder and delete some messages.
> echo For example:
> echo
> echo " athena% scan +$SPAMFOLDER"
> echo " athena% rmm 1-400"
> echo
> echo You should use an appropriate range of message numbers, of course,
> echo and make sure that the mail you delete is all spam.
> fi
>
>
