mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-08 11:15:41 -04:00
53 lines
1.2 KiB
Perl
Executable file
53 lines
1.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Data::Dumper;
|
|
use DBI;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Text::Soundex qw/soundex/; #didn't know buu did this!
|
|
use POE::Component::IRC::Common qw(l_irc);
|
|
|
|
my $dbhnew = DBI->connect(
|
|
"dbi:SQLite:dbname=karma.db",
|
|
"",
|
|
"",
|
|
{ RaiseError => 1, PrintError => 0 }
|
|
);
|
|
|
|
my $dbhold = DBI->connect("dbi:SQLite:dbname=../perlbotstuff/data/karma.db","","", { RaiseError => 1, PrintError => 0 });
|
|
|
|
my @facts;
|
|
|
|
my $sth = $dbhold->prepare("SELECT * FROM karma;");
|
|
|
|
$sth->execute();
|
|
|
|
while (my $row =$sth->fetchrow_arrayref())
|
|
{
|
|
print Dumper($row);
|
|
push @facts, {subject => $row->[0], operation=>$row->[1], author=>'perlbot', modified_time=>time}
|
|
}
|
|
|
|
#CREATE TABLE karma (
|
|
# karma_id INTEGER PRIMARY KEY AUTOINCREMENT,
|
|
# subject VARCHAR(250),
|
|
# operation TINYINT,
|
|
# author VARCHAR(32),
|
|
# modified_time INTEGER
|
|
# )"; # Stupid lack of timestamp fields
|
|
|
|
|
|
for (@facts)
|
|
{
|
|
my $lirc = l_irc($_->{subject}) || lc $_->{subject};
|
|
$dbhnew->do( "INSERT INTO karma
|
|
(subject,operation,author,modified_time)
|
|
VALUES (?,?,?,?)",
|
|
undef,
|
|
$lirc, @$_{qw(operation author modified_time)},
|
|
);
|
|
}
|
|
|
|
|