[Bio] / FigKernelScripts / build_sas_distro_from_cvs.pl Repository:
ViewVC logotype

View of /FigKernelScripts/build_sas_distro_from_cvs.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Feb 12 20:16:52 2010 UTC (10 years, 5 months ago) by olson
Branch: MAIN
CVS Tags: rast_rel_2010_0526, rast_rel_2010_0827
Support building SAS distribution from clean CVS export.

#
# Check out a clean copy of the code in CVS, then run build_sas_distro against it to generate
# clean distribution.
#

use strict;
use FIG;
use FIG_Config;
use Cwd;

@ARGV == 1 or die "usage: $0 output-tarfile\n";

my $output_tarfile = shift;

my $modules = "/home/olson/Build/perl-packages";
my $temp = "$FIG_Config::temp/sas_build.$$";
my $distro_dir = "$temp/sas";

&FIG::verify_dir($temp);
&FIG::verify_dir($distro_dir);

my $here = getcwd();

chdir($temp);

my $rc = system('cvs -d :pserver:anonymous@biocvs.mcs.anl.gov:/disks/cvs/bio export -D now ' .
		'FigKernelScripts FigKernelPackages FigWebServices > cvs_checkout.stdout');
if ($rc != 0)
{
    die "cvs failed with rc=$rc\n";
}

chdir($here);

$rc = system("$FIG_Config::bin/build_sas_distro", "--source", $temp, $distro_dir, $modules);

if ($rc != 0)
{
    die "build_sas_distro failed with rc=$rc\n";
}

$rc = system("tar", "-c", "-C", $distro_dir, "-z", "-f", $output_tarfile, ".");
if ($rc != 0)
{
    die "tar failed with rc=$rc\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3