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=