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