23c23 < require DBD::mysql; --- > require DBD::SQLite; 53c53 < my $dbscheme = "mysql"; --- > my $dbscheme = "SQLite"; 229a230 > $dbi_dsn = "DBI:" . $dbscheme . ":dbname=" . $dbhost . $dbname; 282a284,285 > my $q ="SELECT COUNT(*) AS domains, MIN(l) AS 'min duration', MAX(l) AS 'max duration', AVG(l) AS 'mean duration', STDDEV_POP(l) AS 'duration stddev' FROM (SELECT COUNT(*) AS c, SUM(messages.spam)/COUNT(*) AS r, DATEDIFF(MAX(messages.msgtime), MIN(messages.msgtime)) AS l FROM signatures JOIN messages ON signatures.message = messages.id WHERE messages.id >= $minmsgid AND NOT spam = -1 AND pass = 1 GROUP BY signatures.domain) t1 WHERE r >= $spamratio AND c >= $minspamcount"; > print "Q: $q\n";