First try at alternate packet numbering for bluewave

This commit is contained in:
Andrew Pamment
2017-10-18 07:36:58 +10:00
parent 1b0c1a6906
commit 5ca5ea73c3
6 changed files with 50 additions and 8 deletions

View File

@@ -156,3 +156,24 @@ if (check_exists("exteditor") == 0) {
$dbh->do($sql);
$dbh->disconnect;
}
if (check_exists("bwavestyle") == 0) {
print "Column \"bwavestyle\" 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 bwavestyle INTEGER DEFAULT 0";
$dbh->do($sql);
$dbh->disconnect;
}