#
# irssi logging to a postgresql database
#
# $Id: dblog.pl,v 1.2 2008/07/15 21:24:38 nugget Exp $
#
# http://macnugget.org/
#

use strict;
use Irssi;
use DBI;
use DBD::Pg;


use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
    authors     => "David McNett",
    contact     => "nugget\@macnugget.org",
    name        => "PostgreSQL Logging",
    description => "IRC Logs to a PostgreSQL database",
    license     => "BSD",
    url         => "http://macnugget.org/",
    changed     => "$Date: 2008/07/15 21:24:38 $"
);

my $db = DBI->connect("dbi:Pg:dbname=irclog");
my $sql_newlog = $db->prepare("INSERT INTO log (channel,nick,message) VALUES (?,?,?)");