#!/usr/bin/perl
$|++;
use strict;

my $logpath = $ARGV[0];
my $keyword = $ARGV[1];

$logpath =~ s/\ /\\ /g;
my $cmd = "perl ./prep.pl -r \"$keyword\" $logpath*";
open IN, "$cmd|";

my %msgs;
my $lines;
while (<IN>) {
        my ($file,$prot,$me,$user,$y,$m,$d,$t,$from,$msg) = $_ =~ /($logpath(.+?)\.(.+?)\/(.+?)\/.+?\((\d{4})\|(\d{2})\|(\d{2})\)\.adiumLog):\((\d\d:\d\d:\d\d)\)\ (.+?):(.+)$/;

        $msgs{$y}{$m}{$d}{$t}{$prot}{$me}{$user}{to} = $me eq $from ? $user : $me;
        $msgs{$y}{$m}{$d}{$t}{$prot}{$me}{$user}{from} = $me eq $from ? $me : $user;
        $msgs{$y}{$m}{$d}{$t}{$prot}{$me}{$user}{msg} = $msg;
        $msgs{$y}{$m}{$d}{$t}{$prot}{$me}{$user}{file} = $file;
}
close IN;
$/=undef;
print "<ul>";
my %seen;
foreach my $y (sort keys %msgs) {
        my $year = $msgs{$y};
        foreach my $m (sort keys %$year) {
        my $month = $$year{$m};
        foreach my $d (sort keys %$month) {
        my $day = $$month{$d};
        foreach my $t (sort keys %$day) {
        my $time = $$day{$t};
        foreach my $prot (sort keys %$time) {
        my $proto = $$time{$prot};
        foreach my $me (sort keys %$proto) {
        my $mee = $$proto{$me};
        foreach my $user (sort keys %$mee) {
                my $userr = $$mee{$user};
                next if $seen{$$userr{file}};$seen{$$userr{file}}=1;
                next unless length $$userr{from};
                open F, $$userr{file};
                my $dump = <F>;
                close F;
                $dump =~ s/$keyword/<span class='msg'>$keyword<\/span>/g;
                $dump =~ s/\n/<br>/gsm;
                print <<__MSG__;
                <li><span class='date'>$y-$m-$d</span> 
                        <span class='time'>$t</span> 
                        From <span class='from'>$$userr{from}</span> 
                        To <span class='to'>$$userr{to}</span><br>
                <a onclick='toggle("$$userr{file}");return false;'>show log</a><br>
                <span class='msg'>$$userr{msg}</span>
                <br>
                <div class='dump' id="$$userr{file}" style='display:none'>$dump</div>
                <br>
                </li>
__MSG__
        }
        }
        }
        }
        }
        }
}
print "</ul>";