Contents of file "logmon"

#!/usr/pkg/bin/perl
# here's how to use it, put lines like this in rc.local or .bash_profile:
# let me know when someone is saying something on #linux
#logmon -n /var/log/irc/linux '^\*' plink.wav &
# let me know when someone bumped against my ipchains firewall
#logmon /var/log/messages 'Packet' cowbell.wav &
# let me know when someone is talking on #forth
#logmon -n /var/log/irc/forth '^\*' kchoo.wav &
# let me know when someone is answering me on #linux
#logmon /var/log/irc/linux ictx pling.wav &
#
# You can find soundfiles on your system using locate, and try them out
# using 'play'. It takes '.au' and '.wav' files, among others
require 'getopt.pl';
&Getopt();
($logfile, $pattern, $sound) = @ARGV;
$logfile || die "Usage: $0 [-n] LOGFILE PATTERN SOUNDFILE\n";
open(MONITOR, "tail -n 0 -f $logfile |") || die "Cannot tail $logfile: $!\n";
$pattern || ($pattern =~ '.*');
$sound || ($sound = "pling.wav");
while (<MONITOR>) {
 if ($opt_n) {
  !/$pattern/ && system "play $sound";
 } else {
  /$pattern/ && system "play $sound";
 }
}