maintainer=mailto:wjm@metronet.com Text= ###################################################################### EndText= Name=[SCRIPT] checkaliases Path=0/perlinfo/scripts/mailstuff/checkaliases Type=0 Text=
# File Name: checkaliases
# File Size in BYTES: 2856
# Sender/Author/Poster: vogelke@c-17igp.wpafb.af.mil (Contr Karl E. Vogel)
# Subject: [SCRIPT] checkaliases
# Archived: Apr 29 02:16 1994
#
# $Id: checkaliases,v 1.1 1992/05/08 20:13:01 vogel Exp $
# DESCRIPTION:
#	"checkaliases" does consistency checking on a file in the format used
#	by /usr/lib/aliases.  We are looking for any member of a mail group
#	which is not a user or another mail group.
#	The script also finds any "blank" userids in the aliases file, i.e.
#	two adjacent commas in the middle of a list of userids.
# 
EndText= Text= ###################################################################### EndText= Name=Re: expn program for sendmail Path=0/perlinfo/scripts/mailstuff/chkaddr Type=0 Text=
# File Name: chkaddr
# File Size in BYTES: 8570
# Sender/Author/Poster: trent@sirius.cs.pdx.edu (Trent A. Fisher)
# Subject: Re: expn program for sendmail
# Archived: Apr 29 02:16 1994
#
# Check a given (internet) e-mail address via smtp (vrfy command)
# Well, here's my program to do something similar, except mine will
# recursively resolve each address until it hits non-forwarding login or
# an error.  For example, running it on trent@ursula.ee.pdx.edu will give
# you (indentation shows recursion level):
# 
EndText= Text= ###################################################################### EndText= Name=expn program for sendmail Type=1m Path=1m/perlinfo/scripts/mailstuff/expn Separator=^Article Section=^From: Text=
# File Name: expn
# File Size in BYTES: 42562
# Sender/Author/Poster: Tom Christiansen 
# Subject: expn program for sendmail
# Archived: Apr 29 02:16 1994
#
# expn -- convince smtp to divulge an alias expansion
# Submitted-by: tchrist@usenix.org
# Here's a brief program to expand remote aliases using the
# smtp daemon on the farside, e.g.:
# 
EndText= Text= ###################################################################### EndText= Name=Re: Processing ftpmail batches? Path=0/perlinfo/scripts/mailstuff/ftpmail.unbatch Type=0 Text=
# File Name: ftpmail.unbatch
# File Size in BYTES: 1979
# Sender/Author/Poster: djf@hawk.sybase.com (David Ferrington)
# Subject: Re: Processing ftpmail batches?
# Archived: Apr 30 15:02 1994
#
# I've only just seen this question - YES i have a reasonably sophisicated
# script for this, it will handle different formats (info-mac, mac-archives
# BART, standard ftp etc) keep it in parts (Mac FETCH will handle parts),
# join it together, use file name from subject line, let you specify the
# name, use users default in-box, let you specify the in-box, a little bit 
# of checking for valid parts etc.
# 
EndText= Text= ###################################################################### EndText= Name=junkmail - a Perl script for customized mass e-mailing Path=0/perlinfo/scripts/mailstuff/junkmail Type=0 Text=
# File Name: junkmail
# File Size in BYTES: 50069
# Sender/Author/Poster: jfm@jupiter.SLAC.Stanford.EDU (John F. McGowan)
# Subject: junkmail - a Perl script for customized mass e-mailing 
# Archived: Apr 29 02:16 1994
#
#	Description: junkmail automates sending custom mailings to
#	multiple e-mail addresses (referred to as targets).  The mailings
#       are customized using a database record for each target.  The user
#       can specify database fields for information such as the target 
#       name, organization, favorite color, political orientation, etc.
#       junkmail expects a database field named 'e-mail' to exist which
#       is the e-mail address of the target.
# 
EndText= Text= ###################################################################### EndText= Name=[SCRIPT] mailsort Path=9/perlinfo/scripts/mailstuff/mailsort.tar.gz Type=9 Text=
# File Name: mailsort
# File Size in BYTES: 12101
# Sender/Author/Poster: andras@concave.cs.wits.ac.za (Andras Salamon)
# Subject: [SCRIPT] mailsort
# Archived: Apr 29 02:16 1994
# Updated:  Dec 12 11:48 1995
#
# $Id: mailsort,v 1.16 94/04/20 19:36:33 andras Exp Locker: andras $
# Heeding Larry's call to post scripts, here is `mailsort' to sort mbox
# mail folders by the timestamps in the `From ' message separator lines.
# 
EndText= Text= ###################################################################### EndText= Name=Re: Trying to get back the "From {from} {date}" field... Path=0/perlinfo/scripts/mailstuff/mh2elm Type=0 Text=
# File Name: mh2elm
# File Size in BYTES: 5964
# Sender/Author/Poster: sherman@unx.sas.com (Chris Sherman)
# Subject: Re: Trying to get back the "From {from} {date}" field...
# Archived: Apr 29 02:16 1994
#
# Perhaps the following program will help...  It attempts to reconstruct
# the From line using several rules...  It's not perfect, but it usually 
# 
EndText= Text= ###################################################################### EndText= Name=ANNOUNCE: renmail - mail reader/perl shell Path=0/perlinfo/scripts/mailstuff/renmail.announce Type=0 Text=
# File Name: renmail.announce
# File Size in BYTES: 4795
# Sender/Author/Poster: rensin@eng.umd.edu (David Rensin)
# Subject: ANNOUNCE: renmail - mail reader/perl shell
# Archived: Apr 29 02:16 1994
#
# Renmail can be obtained from ftp.eng.umd.edu in /pub/misc/renmail.tar.z.
Use this link if you have a web browser
# Renmail - 1.0 - a perl mail reader/shell
# mail reader that is very user configurable, fast, and will run in tty mode. 
# 
EndText= Text= ###################################################################### EndText= Name=Re: Stumped at To: header parsing Path=0/perlinfo/scripts/mailstuff/rfc822.other.pl Type=0 Text=
# File Name: rfc822.other.pl
# File Size in BYTES: 7900
# Sender/Author/Poster: cameron@cse.unsw.edu.au (Cameron Simpson)
# Subject: Re: Stumped at To: header parsing
# Archived: Apr 29 02:16 1994
#
# Code to support RFC822-style message headers.
# 
EndText= Text=
Comments, suggestions, or criticisms on this archive to <wjm@metronet.com>
#
EndText= Text= ###################################################################### EndText= Name=a2iprog - alternative Mprog for sendmail Path=0/perlinfo/scripts/mailstuff/a2iprog Type=0 Text=
# File Name: a2iprog
# File Size in BYTES: 7292
# Sender/Author/Poster: dhesi@rahul.net (Rahul Dhesi)
# Subject: perl prog mailer for sendmail
# Archived: Nov 10 12:47 1994
#
# # $Id: a2iprog,v 1.12 1993/11/09 12:43:02 dhesi Exp $
# from sendmail's prog mailer.  The reason I wrote it was because smrsh
# requires the argument supplied to it to be the name of a program.  This
# is more restrictive than /bin/sh, which simply wants any command line.
# 
EndText= Text= ###################################################################### EndText= Name=ams.pl - Convert Base 64 messages Path=0/perlinfo/scripts/mailstuff/ams.pl Type=0 Text=
# File Name: ams.pl
# File Size in BYTES: 2750
# Sender/Author/Poster: rm55+@pitt.edu (Rudolph T Maceyko)
# Subject: Re: Base 64?
# Archived: Nov 1 1993
#
# >Does anyone have a sub to convert from/to base 64? thanks.
# If you mean base 64 the way AMS (Andrew Message System) does it, then this
# might help you:
# 
EndText= Text= ###################################################################### EndText= Name= b64decode - decode MIME base 64 encoded documents Path=0/perlinfo/scripts/mailstuff/b64decode Type=0 Text=
# File Name: b64decode
# File Size in BYTES: 2639
# Sender/Author/Poster: barrett@lucy.ee.und.ac.za (Alan Barrett)
# Subject: MIME encoding/decoding in perl
# Archived: Oct 17 1993
#
# b64decode -- decode a raw BASE64 message
# 
EndText= Text= ###################################################################### EndText= Name=base64.pl - another base 64 encoder/decoder Path=0/perlinfo/scripts/mailstuff/base64.pl Type=0 Text=
# File Name: base64.pl
# File Size in BYTES: 5991
# Sender/Author/Poster: barrett@lucy.ee.und.ac.za (Alan Barrett)
# Subject: Re: Base 64?
# Archived: Nov 1 1993
#
# A. P. Barrett , October 1993
# $Revision: 1.2 $$Date: 1993/11/01 12:12:29 $
# 
EndText= Text= ###################################################################### EndText= Name=Cmail - check to see who's read their mail - UNIX Path=0/perlinfo/scripts/mailstuff/cmail.shar Type=0 Text=
# File Name: cmail.shar
# File Size in BYTES: 5281
# Sender/Author/Poster: tchrist@convex.COM (Tom Christiansen)
# Subject: Re: Cmail - check to see who's read their mail - UNIX
# Archived: Apr 6 1993
#
# Sigh.  Yet another piece of system administrative hackery written in C.
# This one took over 300 lines and contains various and sundry data structures
# and subroutines.  I don't mean to impune the competence of the original
# author.  It *is* a neat little program.  But it seems like terrific overkill
# to do this in C.  So as an exercise, I rewrote the program in perl (version
# 
EndText= Text= ###################################################################### EndText= Name=Re: Conversion /etc/passwd --> /usrc/lib/aliases ? Path=0/perlinfo/scripts/mailstuff/convert.passwd.to.aliases Type=0 Text=
# File Name: convert.passwd.to.aliases
# File Size in BYTES: 3465
# Sender/Author/Poster: Tom Christiansen 
# Subject: Re: Conversion /etc/passwd --> /usrc/lib/aliases ?
# Archived: Aug 14 1993
#
# 
# :I know there is a nifty little program (shell/perl script?) that turns the 
# :Personal Name information in the /etc/passwd file into /usr/lib/aliases
# :entries for mail programs.  This will greatly enhance mail addressing
# :for the particular machine.
# 
EndText= Text= ###################################################################### EndText= Name=digest.elm.pl Path=0/perlinfo/scripts/mailstuff/digest.elm.pl Type=0 Text=
# File Name: digest.elm.pl
# File Size in BYTES: 3429
# Sender/Author/Poster: david@wubios.wustl.edu (David J. Camp)
# Subject: Oops, Here Comes "digest" Again
# Archived: Sep 14 1993
#
#    This is 'digest' a program to run elm on a digest as a folder.
# 
EndText= Text= ###################################################################### EndText= Name=digest.pl: run elm on a digest as a folder Path=0/perlinfo/scripts/mailstuff/digest.pl Type=0 Text=
# File Name: digest.pl
# File Size in BYTES: 2962
# Archived: May 23 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Script to manage a SunOS mailbox Path=0/perlinfo/scripts/mailstuff/expire_mail.pl Type=0 Text=
# File Name: expire_mail.pl
# File Size in BYTES: 14631
# Sender/Author/Poster: phil@compnews.co.uk (Phil Male)
# Subject: Re: Script to manage a mailbox (SunOS)
# Archived: Jul 1 1993
#
# This is what we use, I knocked this up a while ago from expire_mail by Steve
# Mitchell (steve_mitchell@csufresno.edu). We install it in /usr/local/sbin on
# all our Suns then get cron to tidy up everyone's mailbox, removing messages
# older than 2 months. It leaves a message in the users mailbox detailing the
# 
EndText= Text= ###################################################################### EndText= Name=gmail 1.01: mail-to-Gopherspace interface and events calendar Path=0/perlinfo/scripts/mailstuff/gmail.pl Type=0 Text=
# File Name: gmail.pl
# File Size in BYTES: 58916
# Sender/Author/Poster: riddle@ruf.rice.edu (Prentiss Riddle)
# Subject: gmail 1.01: mail-to-Gopherspace interface and events calendar
# Archived: Apr 6 1993
#
#  gmail: mail-to-Gopherspace interface
# Attached below is version 1.01 of gmail and gmailcal, a
# mail-to-Gopherspace interface and an accompanying tool which maintains
# an events calendar.
# 
EndText= Text= ###################################################################### EndText= Name=Inter-Network Mail Guide query utility Path=0/perlinfo/scripts/mailstuff/mail.howto.send.pl Type=0 Text=
# File Name: mail.howto.send.pl
# File Size in BYTES: 11651
# Sender/Author/Poster: Andy.Linton@comp.vuw.ac.nz (Andy Linton)
# Subject: Re: R E P O S T :   I N T E R - N E T W O R K   M A I L   G U I D E
# Archived: May 25 1993
#
# inmgq - Inter-Network Mail Guide Query utility
# 
EndText= Text= ###################################################################### EndText= Name=mail.reduce.pl Path=0/perlinfo/scripts/mailstuff/mail.reduce.pl Type=0 Text=
# File Name: mail.reduce.pl
# File Size in BYTES: 8632
# Sender/Author/Poster: d3c572@nsisb2.pnl.gov (DS Curtis, ISB2 108, 375-2152)
# Subject: Re: aging mail in the mail spool
# Archived: Jun 23 1993
#
# >   I have a question regarding aging mail in the mail spool.  As in how
# >do you do it?  I understand how to age files in the print spool, that's
# >easy, they are all seperate files, but a users mail is all kept in
# >usr/spool/mail/user_id.  
# 
EndText= Text= ###################################################################### EndText= Name=mailfile.pl - Mail Filter Path=0/perlinfo/scripts/mailstuff/mailfile.pl Type=0 Text=
# File Name: mailfile.pl
# File Size in BYTES: 26043
# Sender/Author/Poster: cameron@cs.unsw.oz.au
# Subject: Re: Mail Filter
# Archived: Apr 6 1993
#
# | 	I'm posting this here because I've heard that perl would be best
# | for this sort of thing. If there's anyone who has a program that can be
# | adapted for this (or who can tell me how to build my own), I'd greatly
# | appreciate it.

# 
EndText= Text= ###################################################################### EndText= Name=expn - expand/verify mail addresses Path=0/perlinfo/scripts/mailstuff/mailing-list-explode.pl Type=0 Text=
# File Name: mailing-list-explode.pl
# File Size in BYTES: 21278
# Sender/Author/Poster: muir@idiom.berkeley.ca.us (David Muir Sharnoff)
# Subject: late night doodle -- expn - expand/verify mail addresses
# Archived: Apr 6 1993
#
# This program traces mailing lists.  For each address under
# consideration, it opens a SMTP connection to the system and
# executes the EXPN command.  
# 
EndText= Text= ###################################################################### EndText= Name=mailstuff.pl - parse out an rfc822 header Path=0/perlinfo/scripts/mailstuff/mailstuff.pl Type=0 Text=
# File Name: mailstuff.pl
# File Size in BYTES: 2826
# Sender/Author/Poster: spaf@cs.purdue.edu (Gene Spafford)
# Subject: Re: Looking for mailstuff.pl
# Archived: Jun 21 1993
#

# It hasn't been updated in a while, but here it is:
# package MailStuff;
# 
EndText= Text= ###################################################################### EndText= Name=mailsummary - summarize the mail syslog Path=0/perlinfo/scripts/mailstuff/mailsummary Type=0 Text=
# File Name: mailsummary
# File Size in BYTES: 4026
# Sender/Author/Poster: 
# Subject: 
# Archived: Apr 6 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Re: listserv program Path=0/perlinfo/scripts/mailstuff/majordomo Type=0 Text=
# File Name: majordomo
# File Size in BYTES: 1568
# Sender/Author/Poster: bfriesen@iphase.com (Bob Friesenhahn)
# Subject: Re: listserv program
# Archived: Sep 1 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=pearmail - send and extract uuencoded, t'archived mail Path=0/perlinfo/scripts/mailstuff/pearmail Type=0 Text=
# File Name: pearmail
# File Size in BYTES: 8877
# Archived: Apr 6 1993
#
#	filename "pearmail".
# Pearmail - tar and compress and uuencode stuff, and send it automatically
# 
EndText= Text= ###################################################################### EndText= Name=perl-mailagent.tar Path=9/perlinfo/scripts/mailstuff/perl-mailagent.tar.Z Type=9 Text=
# File Name: perl-mailagent.tar.Z
# File Size in BYTES: 326857
# Archived: Mar 11 1993
#
# Tarred and compressed binary file
# The complete perl mailagent
# 
EndText= Text= ###################################################################### EndText= Name=procftpmail.pl Path=0/perlinfo/scripts/mailstuff/procftpmail.pl Type=0 Text=
# File Name: procftpmail.pl
# File Size in BYTES: 21963
# Sender/Author/Poster: jm@maths.tcd.ie (Justin Mason)
# Subject: Re: perl script to unpack ftpmail (and other) binaries
# Archived: Jun 24 1993
#
# At present, procftpmail knows about ftpmail@decwrl.dec.com,
# ftpmail@src.doc.ic.ac.uk, mailserv@nic.funet.fi, and
# mailserv@garbo.uwasa.fi. Formats known are: uuencoding, btoa-encoding,
# and BinHex (which it leaves alone).
# 
EndText= Text= ###################################################################### EndText= Name=rfc822.pl - a package to manipulate RFC822 headers Path=0/perlinfo/scripts/mailstuff/rfc822.pl Type=0 Text=
# File Name: rfc822.pl
# File Size in BYTES: 10992
# Sender/Author/Poster: barrett@lucy.ee.und.ac.za (Alan Barrett)
# Subject: rfc822.pl -- A perl package to manipulate RFC822 headers
# Archived: Jun 28 1993
#
# Are you sick of writing perl regexps to try to parse RFC822 header
# lines?  Then this might help a little.
# 
EndText= Text= ###################################################################### EndText= Name=smtpd.pl - a perl program which is run from inetd Path=0/perlinfo/scripts/mailstuff/smtpd.pl Type=0 Text=
# File Name: smtpd.pl
# File Size in BYTES: 7249
# Sender/Author/Poster: bet@sbi.com (Bennett E. Todd @ Salomon Brothers Inc., NY )
# Subject: Re: a perl program which is run from inetd
# Archived: Apr 6 1993
#
# Location of hosts DBM database
# Smtpd: SMTP daemon
# Install with a line like so in /etc/inetd.conf:
#  smtp stream tcp nowait root .../smtpd %A
# Here's an example daemon. I continue to twiddle and tweak it periodically.

# 
EndText= Text= ###################################################################### EndText= Name=sortmail: sort Pine mail folders Path=0/perlinfo/scripts/mailstuff/sortmail.pine.pl Type=0 Text=
# File Name: sortmail.pine.pl
# File Size in BYTES: 4514
# Sender/Author/Poster: cthomas@cs.washington.edu (Christopher Thomas)
# Subject: sortmail: sort Pine mail folders
# Archived: Jun 27 1993
#
# Tells if d1 is less than d2. dates in the form: MMM DD HH:MM:SS YYYY
# This Perl script goes through a Pine mail folder, and prints out the messages

# 
EndText= Text= ###################################################################### EndText= Name=syslog-stat.pl - summarize sendmail syslog Path=0/perlinfo/scripts/mailstuff/syslog-stat.pl Type=0 Text=
# File Name: syslog-stat.pl
# File Size in BYTES: 3181
# Sender/Author/Poster: unk
# Subject: Get statistics for the sendmail syslog
# Archived: Apr 6 1993
#

# $logdir = "/usr/spool/logs";
# $secperday = 24 * 60 * 60;
# $shortdelay = $secperday / 2;
# $K = 1024;
# format q_top =
#  Syslog    Input: (total)      (mail11)     Output Statistics:
# File Date  Msgs Kbytes AvgSz  Sndrs Rcips   Sent AvgDelay Dferd Que'd Other
# format q_line =
# $logfn,$date,$msgs,$kbytes,$avgsiz,$m11sndr,$m11rcip,$sent,$avgdly,$dferd,$queued,$other
# $^ = "q_top";
# $~ = "q_line";

# 
EndText= Text= ###################################################################### EndText= Name=vacation - the classic Path=0/perlinfo/scripts/mailstuff/vacation Type=0 Text=
# File Name: vacation
# File Size in BYTES: 6053
# Sender/Author/Poster: 
# Subject: send out vacation mail
# Archived: Apr 6 1993
#
# I will not be reading my mail for a while.
# Your mail regarding "$SUBJECT" will be read when I return.
# EOF
# 
EndText= Text=
Comments, suggestions, or criticisms on this archive to <wjm@metronet.com>
#
EndText=