16 lines
432 B
Perl
16 lines
432 B
Perl
|
#!/var/run/current-system/sw/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Hydra::Helper::Nix;
|
||
|
|
|
||
|
|
my $hydraHome = $ENV{"HYDRA_HOME"};
|
||
|
|
die "The HYDRA_HOME environment variable is not set!\n" unless defined $hydraHome;
|
||
|
|
|
||
|
|
my $hydraData = $ENV{"HYDRA_DATA"};
|
||
|
|
mkdir $hydraData unless -d $hydraData;
|
||
|
|
|
||
|
|
my $dbPath = getHydraPath . "/hydra.sqlite";
|
||
|
|
|
||
|
|
system("sqlite3 $dbPath < $hydraHome/sql/hydra.sql") == 0
|
||
|
|
or warn "Cannot initialise database in $dbPath";
|