12345678910111213141516171819202122 |
- #!/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;");
|