create_punjab_db.pl

来自「Punjab is a jabber XMLRPC/SOAP/REST clie」· PL 代码 · 共 57 行

#!/usr/bin/perl -w
use strict;
use DBI;
use DBD::SQLite;


my $DATABASE="punjab.db";

my $tdir = "../html";

my $dbh = DBI->connect("DBI:SQLite:dbname=$DATABASE;","","",
        { RaiseError => 1, AutoCommit => 0 })
        or die $DBI::errstr;

my $db_version=0;
my $heap;

# Check db_version from db
my $sth = $dbh->prepare("SELECT db_version FROM punjab_db");

eval { $sth->execute() };

if (!$@) {
	my @row = $sth->fetchrow_array;
	$db_version = $row[0];
	$sth->finish;
}

if ($db_version < 1) {

    $dbh->do("CREATE TABLE punjab_db (
		db_version INTEGER NOT NULL)"
	     );
    $dbh->do("INSERT INTO punjab_db (db_version) VALUES(1)");
   
    $dbh->do("CREATE TABLE transactions (
                                     id INTEGER PRIMARY KEY NOT NULL,
                                     session text,
                                     event text,
                                     time_stamp timestamp(14))
	");		


    $dbh->commit();
    

}

# dump the database to an sql file



$dbh->disconnect;