notice and save changes to graph name / stemma identifier (tla/stemmaweb#28)

[scpubgit/stemmatology.git] / analysis / idp_server / idpinit.pl

#!/usr/bin/env perl

use lib 'lib';
use feature 'say';
use strict;
use warnings;
use Text::Tradition::Directory;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
eval { no warnings; binmode $DB::OUT, ':utf8'; $DB::deep = 1000 };

my %VARS = (
        DBTYPE => 'mysql',
        DBHOST => '127.0.0.1',
        DBPORT => '3006',
        DBNAME => 'idpresult',
        DSN => undef,
        DBUSER => undef,
        DBPASS => undef,
);

if( -f "/etc/graphcalc.conf" ) {
        # Read the variables in from here.
        open( GCCONF, "/etc/graphcalc.conf" ) 
                or die "Could not open configuration file /etc/graphcalc.conf";
        while(<GCCONF>) {
                chomp;
                s/^\s+//;
                my( $name, $val ) = split( /\s*\=\s*/, $_ );
                if( exists $VARS{$name} ) {
                        $VARS{$name} = $val;
                }
        }
        close GCCONF;
}
unless( $VARS{DSN} ) {
        $VARS{DSN} = sprintf( "dbi:%s:dbname=%s;host=%s;port=%s",
                $VARS{DBTYPE}, $VARS{DBNAME}, $VARS{DBHOST}, $VARS{DBPORT} );
}

my $dirargs = { create => 1 };
$dirargs->{user} = $VARS{DBUSER} if $VARS{DBUSER};
$dirargs->{password} = $VARS{DBPASS} if $VARS{DBPASS};
my $dir = Text::Tradition::Directory->new( 
        'dsn' => $VARS{DSN}, 'extra_args' => $dirargs );
my $scope = $dir->new_scope();

say "Initialized database at " . $VARS{DSN};