Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

44 lines (27 sloc) 0.904 kB
#!/usr/bin/perl -w
=head1 Name - installation script to launch the apropriate database user rights granting script
=head1 Description
This script is called during C<make install> to grant the Bricolage user
acces rights.
=head1 Author
Sam Tregar <>
=head1 See Also
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Bric::Inst qw(:all);
use File::Spec::Functions qw(:ALL);
use File::Find qw(find);
our ($DB, $DBCONF);
# If we didn't create the databse, we can't grant permissions.
$DB = do './database.db';
exit 0 unless $DB->{create_db};
print "\n\n==> Granting access rights to the Bricolage user <==\n\n";
$DBCONF = './database.db';
do $DBCONF or die "Failed to read $DBCONF : $!";
my $instdb = "./inst/dbgrant_$DB->{db_type}.pl";
do $instdb or die "Failed to launch $DB->{db_type} access granting script ($instdb): $!\n";
exit 0;
Jump to Line
Something went wrong with that request. Please try again.