2 package POE::Component::IRC::Plugin::NoPaste::DB;
6 use Hash::Util qw(lock_keys);
9 my ($class, $config) = @_;
10 my $this = bless {} => $class;
12 $this->{config} = $config;
13 $this->{dbh} = DBI->connect(
14 "dbi:SQLite:dbname=$config->{db}{file}", "", "", {
44 post_id INTEGER PRIMARY KEY, -- unique id of the post
45 channel_id VARCHAR(512) NOT NULL, -- id of the channel in ascii
47 posted_time INTEGER NOT NULL, -- timestamp in epoch
48 nick VARCHAR(512) NOT NULL, -- nick of the person who posted this
49 title BLOB NOT NULL, -- title of the post
50 body BLOB NOT NULL -- body of the post