-
Notifications
You must be signed in to change notification settings - Fork 51
/
dev.pl
53 lines (37 loc) · 1.44 KB
/
dev.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/usr/bin/perl -w
=head1 Name
dev.pl - installs bricolage to run out of a Subversion checkout
=head1 Description
This script is called during "make dev" to modify a standard install to
point some files back at the Subversion checkout it's being installed from.
=head1 Author
Marshall Roch <marshall@exclupen.com>
=cut
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Cwd;
use Bric::Inst qw(:all);
use File::Spec::Functions qw(catdir);
use File::Path qw(rmtree);
# make sure we're root, otherwise uninformative errors result
unless ($> == 0) {
print "This process must (usually) be run as root.\n";
exit 1 unless ask_yesno("Continue as non-root user?", 1);
}
print "\n\n==> Setting Up Development Environment <==\n\n";
# read in user config settings
our $CONFIG;
do "./config.db" or die "Failed to read config.db : $!";
die qq{The developer install is not supportd in "single" installation mode.\n},
qq{Please delete config.pm, run `make` again, and select "multi"\n},
qq{installation mode.\n\n} if $CONFIG->{set} ne 'm';
# Delete bin/, comp/ and lib/ so we can replace them with SVN versions
rmtree([$CONFIG->{BIN_DIR},
$CONFIG->{MASON_COMP_ROOT},
$CONFIG->{MODULE_DIR}]);
symlink(catdir(cwd, '/bin'), $CONFIG->{BIN_DIR});
symlink(catdir(cwd, '/comp'), $CONFIG->{MASON_COMP_ROOT});
symlink(catdir(cwd, '/lib'), $CONFIG->{MODULE_DIR});
print "\n\n==> Finished Setting Up Development Environment <==\n\n";
exit 0;