Wiki::Toolkit::Setup::SQLite - Set up tables for a Wiki::Toolkit store in a SQLite database.

Wiki-Toolkit documentation Contained in the Wiki-Toolkit distribution.

Index

Code Index:

NAME

Top

Wiki::Toolkit::Setup::SQLite - Set up tables for a Wiki::Toolkit store in a SQLite database.

SYNOPSIS

Top

  use Wiki::Toolkit::Setup::SQLite;
  Wiki::Toolkit::Setup::SQLite::setup( $dbfile );

DESCRIPTION

Top

Set up a SQLite database for use as a Wiki::Toolkit store.

FUNCTIONS

Top

setup
  use Wiki::Toolkit::Setup::SQLite;

  Wiki::Toolkit::Setup::SQLite::setup( $filename );

or

  Wiki::Toolkit::Setup::SQLite::setup( $dbh );

Takes one argument - either the name of the file that the SQLite database is stored in or an active database handle.

NOTE: If a table that the module wants to create already exists, setup will leave it alone. This means that you can safely run this on an existing Wiki::Toolkit database to bring the schema up to date with the current Wiki::Toolkit version. If you wish to completely start again with a fresh database, run cleardb first.

An optional second argument may be passed specifying the schema version to use; this is ONLY intended to be used during unit testing and should not normally be specified.

cleardb
  use Wiki::Toolkit::Setup::SQLite;

  # Clear out all Wiki::Toolkit tables from the database.
  Wiki::Toolkit::Setup::SQLite::cleardb( $filename );

or

  Wiki::Toolkit::Setup::SQLite::cleardb( $dbh );

Takes one argument - either the name of the file that the SQLite database is stored in or an active database handle.

Clears out all Wiki::Toolkit store tables from the database. NOTE that this will lose all your data; you probably only want to use this for testing purposes or if you really screwed up somewhere. Note also that it doesn't touch any Wiki::Toolkit search backend tables; if you have any of those in the same or a different database see Wiki::Toolkit::Setup::DBIxFTS or Wiki::Toolkit::Setup::SII, depending on which search backend you're using.

ALTERNATIVE CALLING SYNTAX

Top

As requested by Podmaster. Instead of passing arguments to the methods as

  ($filename)

you can pass them as

  ( { dbname => $filename } )

or indeed

  ( { dbh => $dbh } )

Note that's a hashref, not a hash.

AUTHOR

Top

Kake Pugh (kake@earth.li).

COPYRIGHT

Top

     Copyright (C) 2002-2004 Kake Pugh.  All Rights Reserved.
     Copyright (C) 2006-2009 the Wiki::Toolkit team. All Rights Reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Wiki::Toolkit, Wiki::Toolkit::Setup::DBIxFTS, Wiki::Toolkit::Setup::SII

Wiki-Toolkit documentation Contained in the Wiki-Toolkit distribution. 
package Wiki::Toolkit::Setup::SQLite;

use strict;

use vars qw( @ISA $VERSION $SCHEMA_VERSION );

use Wiki::Toolkit::Setup::Database;

@ISA = qw( Wiki::Toolkit::Setup::Database );
$VERSION = '0.10';

use DBI;
use Carp;

$SCHEMA_VERSION = $VERSION*100;

my $create_sql = {
    8 => {
        schema_info => [ qq|
CREATE TABLE schema_info (
    version   integer      NOT NULL default 0
);
|, qq|
INSERT INTO schema_info VALUES (8)
| ],
        node => [ qq|
CREATE TABLE node (
    id        integer      NOT NULL PRIMARY KEY AUTOINCREMENT,
    name      varchar(200) NOT NULL DEFAULT '',
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL
)
| ],
        content => [ qq|
CREATE TABLE content (
    node_id   integer      NOT NULL,
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL,
    comment   mediumtext   NOT NULL default '',
    PRIMARY KEY (node_id, version)
)
| ],
        internal_links => [ qq|
CREATE TABLE internal_links (
    link_from varchar(200) NOT NULL default '',
    link_to   varchar(200) NOT NULL default '',
    PRIMARY KEY (link_from, link_to)
)
| ],
        metadata => [ qq|
CREATE TABLE metadata (
    node_id        integer      NOT NULL,
    version        integer      NOT NULL default 0,
    metadata_type  varchar(200) NOT NULL DEFAULT '',
    metadata_value mediumtext   NOT NULL DEFAULT ''
)
| ]
    },
    9 => {
        schema_info => [ qq|
CREATE TABLE schema_info (
    version   integer      NOT NULL default 0
);
|, qq|
INSERT INTO schema_info VALUES (9)
| ],

        node => [ qq|
CREATE TABLE node (
    id        integer      NOT NULL PRIMARY KEY AUTOINCREMENT,
    name      varchar(200) NOT NULL DEFAULT '',
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL,
    moderate  boolean      NOT NULL default '0'
)
| ],
        content => [ qq|
CREATE TABLE content (
    node_id   integer      NOT NULL,
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL,
    comment   mediumtext   NOT NULL default '',
    moderated boolean      NOT NULL default '1',
    PRIMARY KEY (node_id, version)
)
| ],
        internal_links => [ qq|
CREATE TABLE internal_links (
    link_from varchar(200) NOT NULL default '',
    link_to   varchar(200) NOT NULL default '',
    PRIMARY KEY (link_from, link_to)
)
| ],
        metadata => [ qq|
CREATE TABLE metadata (
    node_id        integer      NOT NULL,
    version        integer      NOT NULL default 0,
    metadata_type  varchar(200) NOT NULL DEFAULT '',
    metadata_value mediumtext   NOT NULL DEFAULT ''
)
| ]
    },
    10 => {
        schema_info => [ qq|
CREATE TABLE schema_info (
    version   integer      NOT NULL default 0
); 
|, qq|
INSERT INTO schema_info VALUES (10)
| ],

        node => [ qq|
CREATE TABLE node (
    id        integer      NOT NULL PRIMARY KEY AUTOINCREMENT,
    name      varchar(200) NOT NULL DEFAULT '',
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL,
    moderate  boolean      NOT NULL default '0'
) 
|, qq|
CREATE UNIQUE INDEX node_name ON node (name)
| ],
        content => [ qq|
CREATE TABLE content (
    node_id   integer      NOT NULL,
    version   integer      NOT NULL default 0,
    text      mediumtext   NOT NULL default '',
    modified  datetime     default NULL,
    comment   mediumtext   NOT NULL default '',
    moderated boolean      NOT NULL default '1',
    verified  datetime     default NULL,
    verified_info mediumtext   NOT NULL default '',
    PRIMARY KEY (node_id, version)
) 
| ],
        internal_links => [ qq|
CREATE TABLE internal_links (
    link_from varchar(200) NOT NULL default '',
    link_to   varchar(200) NOT NULL default '',
    PRIMARY KEY (link_from, link_to)
) 
| ],
        metadata => [ qq|
CREATE TABLE metadata (
    node_id        integer      NOT NULL,
    version        integer      NOT NULL default 0,
    metadata_type  varchar(200) NOT NULL DEFAULT '',
    metadata_value mediumtext   NOT NULL DEFAULT ''
) 
| ] 
    },
};

my %fetch_upgrades = (
    old_to_8  => 1,
    old_to_9  => 1,
    old_to_10 => 1,
    '8_to_9'  => 1,
    '8_to_10' => 1,
    '9_to_10' => 1,
);

my %upgrades = ();


sub setup {
    my @args = @_;
    my $dbh = _get_dbh( @args );
    my $disconnect_required = _disconnect_required( @args );
    my $wanted_schema = _get_wanted_schema( @args ) || $SCHEMA_VERSION;

    die "No schema information for requested schema version $wanted_schema\n"
            unless $create_sql->{$wanted_schema};

    # Check whether tables exist, set them up if not.
    my %tables = fetch_tables_listing($dbh, $wanted_schema);

    # Do we need to upgrade the schema?
    # (Don't check if no tables currently exist)
    my $upgrade_schema;
    my @cur_data; 
    if(scalar keys %tables > 0) {
        $upgrade_schema = Wiki::Toolkit::Setup::Database::get_database_upgrade_required($dbh,$wanted_schema);
    }
    if($upgrade_schema) {
        if ($fetch_upgrades{$upgrade_schema}) {
            # Grab current data
            print "Upgrading: $upgrade_schema\n";
            @cur_data = eval("&Wiki::Toolkit::Setup::Database::fetch_upgrade_".$upgrade_schema."(\$dbh)");

            # Drop the current tables
            cleardb($dbh);

            # Grab new list of tables
            %tables = fetch_tables_listing($dbh, $wanted_schema);
        }
    }

    # Set up tables if not found
    foreach my $required ( keys %{$create_sql->{$wanted_schema}} ) {
        if ( $tables{$required} ) {
            print "Table $required already exists... skipping...\n";
        } else {
            print "Creating table $required... done\n";
            foreach my $sql (@{$create_sql->{$wanted_schema}->{$required}} ) {
                $dbh->do($sql) or croak $dbh->errstr;
            }
        }
    }

    # If upgrading, load in the new data
    if($upgrade_schema) {
        if ($fetch_upgrades{$upgrade_schema}) {
            Wiki::Toolkit::Setup::Database::bulk_data_insert($dbh,@cur_data);
        } else {
            print "Upgrading schema: $upgrade_schema\n";
            my @updates = @{$upgrades{$upgrade_schema}};
            foreach my $update (@updates) {
                if(ref($update) eq "CODE") {
                    &$update($dbh);
                } elsif(ref($update) eq "ARRAY") {
                    foreach my $nupdate (@$update) {
                        $dbh->do($nupdate);
                    }
                } else {
                    $dbh->do($update);
                }
            } 
        }
    }

    # Clean up if we made our own dbh.
    $dbh->disconnect if $disconnect_required;
}

# Internal method - what tables are defined?
sub fetch_tables_listing {
    my $dbh = shift;
    my $wanted_schema = shift;

    # Check whether tables exist, set them up if not.
    my $sql = "SELECT name FROM sqlite_master
                              WHERE type='table' AND name in ("
            . join( ",", map { $dbh->quote($_) } keys %{$create_sql->{$wanted_schema}} ) . ")";
    my $sth = $dbh->prepare($sql) or croak $dbh->errstr;
    $sth->execute;
    my %tables;
    while ( my $table = $sth->fetchrow_array ) {
        $tables{$table} = 1;
    }
    return %tables;
}


sub cleardb {
    my @args = @_;
    my $dbh = _get_dbh( @args );
    my $disconnect_required = _disconnect_required( @args );

    print "Dropping tables... ";
    my $sql = "SELECT name FROM sqlite_master
                              WHERE type='table' AND name in ("
            . join( ",", map { $dbh->quote($_) } keys %{$create_sql->{$SCHEMA_VERSION}} ) . ")";
    foreach my $tableref (@{$dbh->selectall_arrayref($sql)}) {
        $dbh->do("DROP TABLE $tableref->[0]") or croak $dbh->errstr;
    }
    print "done\n";

    # Clean up if we made our own dbh.
    $dbh->disconnect if $disconnect_required;
}

sub _get_dbh {
    # Database handle passed in.
    if ( ref $_[0] and ref $_[0] eq 'DBI::db' ) {
        return $_[0];
    }

    # Args passed as hashref.
    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
        my %args = %{$_[0]};
        if ( $args{dbh} ) {
            return $args{dbh};
        } else {
            return _make_dbh( %args );
        }
    }

    # Args passed as list of connection details.
    return _make_dbh( dbname => $_[0] );
}

sub _get_wanted_schema {
    # Database handle passed in.
    if ( ref $_[0] and ref $_[0] eq 'DBI::db' ) {
        return undef;
    }

    # Args passed as hashref.
    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
        my %args = %{$_[0]};
        return $args{wanted_schema};
    }
}

sub _disconnect_required {
    # Database handle passed in.
    if ( ref $_[0] and ref $_[0] eq 'DBI::db' ) {
        return 0;
    }

    # Args passed as hashref.
    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
        my %args = %{$_[0]};
        if ( $args{dbh} ) {
            return 0;
        } else {
            return 1;
        }
    }

    # Args passed as list of connection details.
    return 1;
}

sub _make_dbh {
    my %args = @_;
    my $dbh = DBI->connect("dbi:SQLite:dbname=$args{dbname}", "", "",
               { PrintError => 1, RaiseError => 1,
                 AutoCommit => 1 } )
        or croak DBI::errstr;
    return $dbh;
}


1;