Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

44 lines (27 sloc) 0.904 kB
#!/usr/bin/perl -w
=head1 Name
db.pl - 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 <stregar@about-inc.com>
=head1 See Also
L<Bric::Admin>
=cut
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.