Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

55 lines (34 sloc) 1.141 kb
#!/usr/bin/perl -w
=head1 NAME
clone_lightweight.pl
=head1 VERSION
$LastChangedRevision$
=head1 DATE
$LastChangedDate: 2004-09-13 20:35:57 -0700 (Mon, 13 Sep 2004) $
=head1 DESCRIPTION
This script is called by "make clone" after clone_files.pl to remove all
pre-compiled and locally previewed files from the tree in order to make a
lightweight clone.
=head1 AUTHOR
Paul Orrock <paulo@digitalcraftsmen.net>
=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::Path qw(rmtree mkpath);
our ($CONFIG, $CLONE);
do "./config.db" or die "Failed to read config.db : $!";
do "./clone.db" or die "Failed to read clone.db : $!";
print "\n\n==> Removing Files for Lightweight Clone <==\n\n";
# take out everything below the following directories and then remake the dirs
my @dirs = qw(comp/data/preview data/burn/data/obj data/burn/stage
data/burn/preview data/burn/sandbox data/obj);
foreach my $dir (@dirs) {
rmtree('dist/' . $dir);
mkpath('dist/' . $dir);
}
print "\n\n==> Finished Lightweight Clone <==\n\n";
Jump to Line
Something went wrong with that request. Please try again.