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

Diff of /FigKernelScripts/build_sas_distro_from_cvs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Fri Feb 12 20:16:52 2010 UTC revision 1.2, Mon Sep 20 19:40:19 2010 UTC
# Line 8  Line 8 
8  use FIG_Config;  use FIG_Config;
9  use Cwd;  use Cwd;
10    
11  @ARGV == 1 or die "usage: $0 output-tarfile\n";  use Getopt::Long;
12    
13    my $build_dtr;
14    my $rc = GetOptions(dtr => \$build_dtr);
15    
16    $rc && @ARGV == 1 or die "usage: $0 [--dtr] output-tarfile\n";
17    
18  my $output_tarfile = shift;  my $output_tarfile = shift;
19    
# Line 23  Line 28 
28    
29  chdir($temp);  chdir($temp);
30    
31    my @cvs_modules = qw(FigKernelScripts FigKernelPackages);
32    my $cmd;
33    if ($build_dtr)
34    {
35        push(@cvs_modules, 'DesktopRast');
36        $cmd = "build_dtr_distro";
37    }
38    else
39    {
40        push(@cvs_modules, 'FigWebServices');
41        $cmd = "build_sas_distro";
42    }
43    
44  my $rc = system('cvs -d :pserver:anonymous@biocvs.mcs.anl.gov:/disks/cvs/bio export -D now ' .  my $rc = system('cvs -d :pserver:anonymous@biocvs.mcs.anl.gov:/disks/cvs/bio export -D now ' .
45                  'FigKernelScripts FigKernelPackages FigWebServices > cvs_checkout.stdout');                  join(" ", @cvs_modules) . " > cvs_checkout.stdout");
46  if ($rc != 0)  if ($rc != 0)
47  {  {
48      die "cvs failed with rc=$rc\n";      die "cvs failed with rc=$rc\n";
# Line 32  Line 50 
50    
51  chdir($here);  chdir($here);
52    
53  $rc = system("$FIG_Config::bin/build_sas_distro", "--source", $temp, $distro_dir, $modules);  $rc = system("$FIG_Config::bin/$cmd", "--source", $temp, $distro_dir, $modules);
54    
55  if ($rc != 0)  if ($rc != 0)
56  {  {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3