#!/usr/bin/perl
# Script to filter the jsEventLog for the request IP
#
#

use strict;
use warnings;

use CGI qw(remote_addr header);


my $log = '/var/log/apache2/www.heute-morgen.de-jsMutationEvents.log';

open(LOG, $log)
or die "Failed to open $log:$!";

my $ip = remote_addr();

print header('text/plain');

while (<LOG>) {
  print if /^$ip/ ;
}

close(LOG);