Bug 630681: Implement a MOD function for SQLite so collectstats.pl can run

Bugzilla/DB/Sqlite.pm

@@ -48,6 +48,8 @@ use constant WORD_END   => '(?:$|\W)';
 # not accent-insensitive).
 sub _sqlite_collate_ci { lc($_[0]) cmp lc($_[1]) }
 
+sub _sqlite_mod { $_[0] % $_[1] }
+
 sub _sqlite_now {
     my $now = DateTime->now(time_zone => Bugzilla->local_timezone);
     return $now->ymd . ' ' . $now->hms;
@@ -135,6 +137,7 @@ sub new {
     # so that's what we use, and I don't know of any way in SQLite to
     # alias the SQL "substr" function to be called "SUBSTRING".
     $self->sqlite_create_function('substring', 3, \&CORE::substr);
+    $self->sqlite_create_function('mod', 2, \&_sqlite_mod);
     $self->sqlite_create_function('now', 0, \&_sqlite_now);
     $self->sqlite_create_function('localtimestamp', 1, \&_sqlite_now);
     $self->sqlite_create_function('floor', 1, \&POSIX::floor);