#!/usr/local/bin/perl -w
###########################################
# logdump - Show all logged messages
# Mike Schilli, 2009 (m@perlmeister.com)
###########################################
use strict;
use Cache::Historical 0.03;

our $SQLITE_FILE = "irclog.dat";

my $cache = Cache::Historical->new(
            sqlite_file => $SQLITE_FILE,
        );

for my $result ( $cache->values("#perlsnapshot") ) {
    my($dt, $msg) = @$result;

    print "$dt $msg\n";
}