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

my $username = 'josh';

my $logpath = "/Users/$username/Library/Application Support/Adium 2.0/Users/Default/Logs/";

my $query = new CGI;
print $query->header;
my $keyword = $query->param('keyword');
print <<__HTML__;
<style type='text/css'>
li {
        color: #666666;
}
.date, .time {
        color: blue;
}
.from {
        color: green;
}
.to {
        color: red;
}
.msg {
        color: black;
}
.dump {
        color: orange;
}
a,a:visited,a:active {
        color:#345678;
}
</style>
<script language='javascript'>
function toggle(id) {
        var ele = document.getElementById(id);
        if (ele.style.display=='none') {
                ele.style.display='inline';
        } else {
                ele.style.display='none';
        }
}
</script>
<form method='post'>
Search Keyword(s): <input type='text' name='keyword' value='$keyword'/>
<br>
<input type='submit' name='submit' value='submit'>
</form>
<hr>
__HTML__


if ($keyword) {
        my $pwd = `pwd`;
        chomp $pwd;
        my $cmd = "/usr/local/bin/perl $pwd/adiumLog_parser.pl \"$logpath\" \"$keyword\"";
        print `$cmd`;
}
print "<br>done.<br>";

##</code><code>##

#!/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>";