bbs/magicka
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update users.sq3 utiltity

Browse Source
This commit is contained in:
Andrew Pamment 2017-04-23 12:37:23 +10:00
parent d76ac1e151
commit f8b6c4dc89
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utils/sql_update/users_sql_update.pl
View File

@ -116,3 +116,23 @@ if (check_exists("nodemsgs") == 0) {
$dbh->do($sql);
$dbh->disconnect;
}
if (check_exists("codepage") == 0) {
print "Column \"codepage\" doesn't exist... adding..\n";
my ($needed) = @_;
my $dsn = "dbi:SQLite:dbname=$dbfile";
my $user = "";
my $password = "";
my $dbh = DBI->connect($dsn, $user, $password, {
PrintError => 0,
RaiseError => 1,
AutoCommit => 1,
FetchHashKeyName => 'NAME_lc',
});
my $sql = "ALTER TABLE users ADD COLUMN codepage INTEGER DEFAULT 0";
$dbh->do($sql);
$dbh->disconnect;
}