Skip to content


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
=head1 VERSION
=head1 DATE
$LastChangedDate: 2004-09-13 20:35:57 -0700 (Mon, 13 Sep 2004) $
This script is called by "make clone" after to remove all
pre-compiled and locally previewed files from the tree in order to make a
lightweight clone.
=head1 AUTHOR
Paul Orrock <>
=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::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.