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

Annotation of /FigKernelScripts/build_sas_distro_from_cvs.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : olson 1.1 #
2 :     # Check out a clean copy of the code in CVS, then run build_sas_distro against it to generate
3 :     # clean distribution.
4 :     #
5 :    
6 :     use strict;
7 :     use FIG;
8 :     use FIG_Config;
9 :     use Cwd;
10 :    
11 :     @ARGV == 1 or die "usage: $0 output-tarfile\n";
12 :    
13 :     my $output_tarfile = shift;
14 :    
15 :     my $modules = "/home/olson/Build/perl-packages";
16 :     my $temp = "$FIG_Config::temp/sas_build.$$";
17 :     my $distro_dir = "$temp/sas";
18 :    
19 :     &FIG::verify_dir($temp);
20 :     &FIG::verify_dir($distro_dir);
21 :    
22 :     my $here = getcwd();
23 :    
24 :     chdir($temp);
25 :    
26 :     my $rc = system('cvs -d :pserver:anonymous@biocvs.mcs.anl.gov:/disks/cvs/bio export -D now ' .
27 :     'FigKernelScripts FigKernelPackages FigWebServices > cvs_checkout.stdout');
28 :     if ($rc != 0)
29 :     {
30 :     die "cvs failed with rc=$rc\n";
31 :     }
32 :    
33 :     chdir($here);
34 :    
35 :     $rc = system("$FIG_Config::bin/build_sas_distro", "--source", $temp, $distro_dir, $modules);
36 :    
37 :     if ($rc != 0)
38 :     {
39 :     die "build_sas_distro failed with rc=$rc\n";
40 :     }
41 :    
42 :     $rc = system("tar", "-c", "-C", $distro_dir, "-z", "-f", $output_tarfile, ".");
43 :     if ($rc != 0)
44 :     {
45 :     die "tar failed with rc=$rc\n";
46 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3