Date: Sat, 17 May 1997 14:50:10 +1000 From: Joel Sutton <sutton@aardvark.apana.org.au> To: Joseph Stein <joes@joes.users.spiritone.com> Cc: FreeBSD Questions List <freebsd-questions@freebsd.org> Subject: Re: Pager gateway? Message-ID: <199705170450.OAA00355@solsbury-hill.home> In-Reply-To: Your message of "Sat, 10 May 1997 19:52:51 MST." <199705110431.VAA02567@joes.users.spiritone.com>
next in thread | previous in thread | raw e-mail | index | archive | help
Joe,
> I would like to write myself (in fact, I have) a script that will send
> the Date, From, and Subject of messages in my incoming mail spool.
>
> I thought I could do it with chat, but apparently cannot (chat keeps reading
> from the file and doing the send-expect thing).
Here's a little perl script that might get you started:
[snip]
#!/usr/bin/perl
while (<STDIN>) {
chop ;
$date = $_ if /^[Dd]ate:/ ;
$from = $_ if /^[Ff]rom:/ ;
$subject = $_ if /^[Ss]ubject:/ ;
}
open (PAGER, "|/usr/bin/write jsutton") ;
printf (PAGER "$date\n$from\n$subject\n") ;
close (PAGER) ;
[snip]
You will need to add something like this into your .forward file:
"|/usr/local/bin/perl /usr/home/jsutton/src/pager.pl ||exit 75 jsutton"
What you decide to do with the date, from and subject variables after
the open statement is left for you to decide. You could easily
re-mail it to a pager gateway with /usr/bin/mail but be careful of
using the variables in the open statement (security holes!!).
If you really need to process your /var/mail/mailfile then I would
suggest you use procmail to help you out. It has a great tool called
formail which could pipe each individual message to the above script.
Not bad for a quick slap-together at 23:30 eh? ;-)
Hope this helps, Joel...
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199705170450.OAA00355>