lexszero/wtfabber-log.pl

## wtfabber-log.pl
#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor;

my %nick_colors;

sub unescape($) {
	my $x = shift;
	$x =~ s/(^\{|\}$)//g;
	$x =~ s/\\n/\n/g;
	$x =~ s/\\\\/\\/g;
	return $x;
}

sub parse {
	my $fh = shift;
	while (<$fh>) {
		/^timestamp (?<time>.*?) jid (?:.*?) nick (?<nick>.*?) body (?<body>.*?)( me \d)?( type \w+)?$/ or
		/^M[A-Z] (?<time>.*?) (?<lines>\d{3}) (?:<(?<nick>.*?)> (?<body>.*)|(?<body>.*))$/ or next;
		my ($time, $nick, $body) = ($+{time}, unescape($+{nick} or ""), unescape($+{body}));
		if ($+{lines}) {
			my $i = int($+{lines});
			while (($i-- > 0) and defined($_ = <$fh>)) {
				chomp;
				#print "EXTRA LINE $i: $_\n";
				$body .= "\n$_";
			};
		}
		$time =~ s/(....)(..)(..)T(..):?(..):?(..).*/$3.$2.$1 $4:$5:$6/;
		if ($nick) {
			my $col = $nick_colors{$nick};
			if (not $col) {
				my $c = unpack("%32C*");
				my @rgb = ($c % 6, (int($c / 10) % 6), (int($c / 100) % 6));
				if ($rgb[0] == $rgb[1]) {
					$rgb[0] = ($rgb[0] + 1) % 6;
				}
				if ($rgb[1] == $rgb[2]) {
					$rgb[1] = ($rgb[1] + 2) % 6;
				}
				$col = "rgb$rgb[0]$rgb[1]$rgb[2]";
				$nick_colors{$nick} = $col;
			};
			print colored('[', 'grey3'),
				colored($time, 'grey16'),
				colored('] ', 'grey3'),
				colored($nick, $col, 'bold'),
				": $body\n";
		} else {
			print colored($body, 'grey8'), "\n";
		}
		#print "$body\n";
	}
}

if ($#ARGV == -1) {
	parse(\*STDIN);
} else {
	foreach my $fn (@ARGV) {
		print "\n$fn:\n";
		open my $fh, "<$fn" or die $!;
		parse($$fh);
		close $fh;
	}
}
	#!/usr/bin/perl
	use strict;
	use warnings;
	use Term::ANSIColor;

	my %nick_colors;

	sub unescape($) {
	my $x = shift;
	$x =~ s/(^\{\|\}$)//g;
	$x =~ s/\\n/\n/g;
	$x =~ s/\\\\/\\/g;
	return $x;
	}

	sub parse {
	my $fh = shift;
	while (<$fh>) {
	/^timestamp (?<time>.?) jid (?:.?) nick (?<nick>.?) body (?<body>.?)( me \d)?( type \w+)?$/ or
	/^M[A-Z] (?<time>.?) (?<lines>\d{3}) (?:<(?<nick>.?)> (?<body>.)\|(?<body>.))$/ or next;
	my ($time, $nick, $body) = ($+{time}, unescape($+{nick} or ""), unescape($+{body}));
	if ($+{lines}) {
	my $i = int($+{lines});
	while (($i-- > 0) and defined($_ = <$fh>)) {
	chomp;
	#print "EXTRA LINE $i: $_\n";
	$body .= "\n$_";
	};
	}
	$time =~ s/(....)(..)(..)T(..):?(..):?(..).*/$3.$2.$1 $4:$5:$6/;
	if ($nick) {
	my $col = $nick_colors{$nick};
	if (not $col) {
	my $c = unpack("%32C*");
	my @rgb = ($c % 6, (int($c / 10) % 6), (int($c / 100) % 6));
	if ($rgb[0] == $rgb[1]) {
	$rgb[0] = ($rgb[0] + 1) % 6;
	}
	if ($rgb[1] == $rgb[2]) {
	$rgb[1] = ($rgb[1] + 2) % 6;
	}
	$col = "rgb$rgb[0]$rgb[1]$rgb[2]";
	$nick_colors{$nick} = $col;
	};
	print colored('[', 'grey3'),
	colored($time, 'grey16'),
	colored('] ', 'grey3'),
	colored($nick, $col, 'bold'),
	": $body\n";
	} else {
	print colored($body, 'grey8'), "\n";
	}
	#print "$body\n";
	}
	}

	if ($#ARGV == -1) {
	parse(\*STDIN);
	} else {
	foreach my $fn (@ARGV) {
	print "\n$fn:\n";
	open my $fh, "<$fn" or die $!;
	parse($$fh);
	close $fh;
	}
	}