tCMS/bin/migrate5.pl

#!/usr/bin/env perl

# Password reset code

use strict;
use warnings;

use FindBin;

use lib "$FindBin::Bin/../lib";

use Trog::SQLite;
sub _dbh {
    my $file   = 'schema/auth.schema';
    my $dbname = "config/auth.db";
    return Trog::SQLite::dbh($file,$dbname);
}

my $dbh = _dbh();

$dbh->do("ALTER TABLE user ADD COLUMN contact_email TEXT DEFAULT NULL;");