$author = "Simon Bryan" ;
> 
> Below is part of a perl script that was written for me (by someone on
> industry placement), the purposae of the script is to pull users out of the
> Squidalyser database who have exceeded a pre-determined download limit in
> the month and create a file, that file is then used by Squid in delay_pools
> to slow down their bandwidth to about 20Kbs instead of the full ADSL speed.
> 
> What we would like to do is to also have the user sent an email telling them
> that this has happened. Is this possible? If so is it a trivial task or
> complex?

http://216.239.53.100/search?q=cache:8JnI4_KEz4gC:www.bignose.ca/goodies/Books/perl/cookbook/ch18_04.htm+open(SENDMAIL,+%22%7C/usr/sbin/sendmail+-oi+-t%22)%3B&hl=en&ie=UTF-8&client=googlet

or

http://tinyurl.com/7vwh

you can either open a handle to a sendmail call and write to it raw or you
can use one of the CPAN packages to make it simpler. mail me offlist if you
need any more assistance or want some examples.

cheers
marty

--
God grant me the serenity to accept the things I cannot change, 
the courage to change the things I can, 
and the wisdom to know the difference.

"Serenity Prayer" - Reinhold Niebuhr
-- 
SLUG - Sydney Linux User's Group - http://slug.org.au/
More Info: http://lists.slug.org.au/listinfo/slug

Reply via email to