I did this in a shell script a couple of years ago when looking for a
new job - it doesn't have the one second delay, but you also don't need
to hit enter after every email address any way. Hope it suits your
needs, and I'm sure someone will be able to addin the code needed to put
in a time delay of one second between each mailing.
#!/bin/csh
#
# sfile mfile lfile
#
# send file mfile to addresses listed in lfile
#
/bin/cp $1 /tmp/mfile
/bin/cp $2 /tmp/lfile
echo 'Mailing '$1' to '
cat $2
awk '{print "mail " $0 " </tmp/mfile"}' /tmp/lfile >! /tmp/dfile
chmod u+rwx /tmp/dfile
/tmp/dfile
/bin/rm /tmp/dfile /tmp/mfile /tmp/lfile
> I hope the following piece of code gives you an idea.
> open (FILE,"/user/rsr/Public/weeklies/$date");
> $file_name = "|/bin/mail"." ".$query->param('mail_address').", ".$query->param('mail_address_cc');
> open(MAILER,"$file_name");
> print MAILER "From: ", $query->param('name'), "\n";
> print MAILER "To: ", $query->param('mail_address'),"\n";
> .....
> > Could someone please help me modify this perl script file? What it does
> > is it takes an ascii file and sends it as a message to each member in
> > another text file. I need this file to just pause one second after it
> > says
> > every email address. Thanks.
> --
> -srinu-