[Perl] logging and sending from a running log

[Gaal Yahas]

On Thu, Nov 07, 2002 at 12:14:06PM +0200, Oren Gozlan wrote:
> Hi ,
> i have this wu-ftp server running , that log ftp access (xferlog)
> 
> that his output is :
> Wed Nov  6 20:30:50 2002 1 10.0.0.0.10 20636 
> var/users/oren/hawk-eye_log.txt b _ o r oren ftp 0 * c
> 
> how can i do somthing that will tail this log, and on each new access, 
> will send an email with when;what;who ...

You could use File::Tail for the tail -f counterpart, it's simple:

http://search.cpan.org/author/MGRABNAR/File-Tail-0.98/Tail.pm

You could also use Event::File::Tail, it's less simple:

http://search.cpan.org/author/RSD/Event-File-0.1.1/lib/Event/File/tail.pm

For mailing, do use one of the standard modules.

-- 
Gaal Yahas <gaal at forum2.org> <g.yahas at reading.ac.uk>
http://gaal.livejournal.com/ http://gaal.forum2.org/