File Coverage

blib/script/narada-setup-mysql

Criterion	Covered	Total	%
statement	41	64	64.0
branch	0	16	0.0
condition	0	6	0.0
subroutine	14	17	82.3
pod			n/a
total	55	103	53.4

#!/usr/bin/env perl
use 5.010001;
use warnings;
use strict;
use utf8;

our $VERSION = 'v2.3.7';

use FindBin;
use lib "$FindBin::Bin/../lib/perl5";
use Narada;
use Narada::Config qw( get_config_line get_db_config );
use DBI;
use Path::Tiny;

use constant IS_NARADA      => Narada::detect() eq 'narada';
use constant CONFIG_DIR     => IS_NARADA ? 'mysql'      : 'db';
use constant SQL_DIR        => IS_NARADA ? 'var/mysql'  : 'var/sql';
use constant SCHEME         => SQL_DIR.'/db.scheme.sql';


main(@ARGV) if !caller;


sub err { die "narada-setup-mysql: @_\n" }

sub main {
    die "Usage: narada-setup-mysql [--clean]\n"
        if (@_ >  1)
        || (@_ == 1 && $_[0] ne '--clean');

    my $db = get_db_config() or return;
    $::dbh = DBI->connect($db->{dsn_nodb}, $db->{login}, $db->{pass},
        {RaiseError=>1}) or err DBI->errstr;

    if (@_) {
        path('var/use/mysql')->remove;
        $::dbh->do('DROP DATABASE IF EXISTS `'.$db->{db}.q{`});
    }
    else {
        if (IS_NARADA) {
            path('var/use/mysql')->touch;
        }
        $::dbh->do('CREATE DATABASE IF NOT EXISTS `'.$db->{db}.q{`});
        $::dbh->do('USE `'.$db->{db}.q{`});
        if (0 < $::dbh->prepare('SHOW TABLES')->execute()) {
            err 'SQL files not imported because database does not empty';
        }
        if (-f SCHEME) {
            import_sql(SCHEME);
            for (grep {-f && $_ ne SCHEME} glob SQL_DIR.'/*.sql') {
                import_sql($_);
            }
        }
    }

    return;
}

sub import_sql {
    my ($file) = @_;
    warn "Importing $file...\n";
    system("narada-mysql <\Q$file\E") == 0 or err 'Failed to import '.$file;
    return;
}


1; # Magic true value required at end of module
__END__