#!/usr/local/bin/perl

while (<>) {

	chomp;

	@arr = split;
	$hostname = @arr[3];
	if ((@arr[5] eq 'XSTATS') || (@arr[5] eq 'NSTATS')) {

		($sec, $min, $hour, $mday, $mon, $year,
			$wday, $yday, $isdsy) = localtime(@arr[6]);
		$year += $year < 69 ? 2000 : 1900;
		++$mon;
		$mon = "0$mon" if ($mon <= 9);
		$mday = "0$mday" if ($mday <= 9);

		$fname = "$hostname.$year-$mon-$mday";

		if ($fname ne $ofname) {
#			print "F=$fname, O=$ofname\n";
			if ($ofname ne "") {
				close FILE;
			}
			open (FILE, ">>$fname") or die "$fname\n";
			$ofname = $fname;
		}

#		print "f=$fname o=$ofname\n";
		print FILE "@arr\n";
	}

}
if ($fname) { close FILE; }