#!/usr/bin/perl -w

use strict;

my $printit;
while (<>) {
	$printit = 0;
	$printit = 1 if /\d\d\/\d\d\/\d\d \d\d:\d\d:\d\d/;
	$printit = 1 if /Join succeeded:/;
	$printit = 1 if /LoadMap: .*\.nrf/;
	$printit = 1 if /GameLogger/;
	print $_ if $printit;
}