# DEVELOPER PROCESS, search for anything to execute in the db_update directory

# SEE bug 13068

# if there is anything in the db_update, read and execute it.

opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/db_update' );

my $old_delimiter = $/;

$/ = ';';

while (readdir $dirh) {

    next unless $_ =~ /\.sql$/; # skip non SQL files

    # open and read file;

    open FILE, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";

    my $sql_to_execute;

    while ( <FILE> ) {

        my $line = $_;

        $line =~ s/\n//g;

        $dbh->do($line) if $line;

        $sql_to_execute .= $line;

    }

}