# Preset Values
my $LogFile="/usr/local/apache2/eventmgr/ncomount/page.log";
my $PipeName="/usr/local/apache2/pipes/.nco_p_data";
my $naptime=5;
my $curpos;

open(LOGFILE, "<$LogFile") ||  die "Couldn't open file $Status - $!\n";

        for(;;){
          for($curpos=tell(LOGFILE);LOGFILE;$curpos=tell(LOGFILE)){
                while($line=<LOGFILE>){
#                       print $line;
                        if($line =~ /(.*)\|~\|(.*)\|~\|(.*)/){
                                $PagerID=$1;
                                $Message=$2.$3;
                        }
                        unless( -p $PipeName) {
                        unlink $PipeName;
                        system("mkfifo -m 644 $PipeName") && die "Can't mkfifo $PipeName: $!";
                        }
                        open(FIFO,">$PipeName") || die "Couldn't open file $PipeName - $!\n";
                        print FIFO "NEW|TODAY|NOW|\"\"|$PagerID|$Message\n";
                        close(FIFO);

                }
                sleep(1);
          }
          sleep $naptime;
          seek(LOGFILE, $curpos, 0);  # seek to where we had been
        }