src/hg/utils/automation/HgAutomate.pm 1.22

Index: src/hg/utils/automation/HgAutomate.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/utils/automation/HgAutomate.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -b -B -U 4 -r1.21 -r1.22
--- src/hg/utils/automation/HgAutomate.pm	18 Feb 2009 18:20:00 -0000	1.21
+++ src/hg/utils/automation/HgAutomate.pm	6 Mar 2009 23:32:44 -0000	1.22
@@ -69,11 +69,15 @@
     ( 'scratch' =>
         { root => '/scratch/hg', clusterLocality => 1.0,
 	  distrHost => [], distrCommand => '',
 	  inputFor => \@allClusters, outputFor => [], },
+      'hive' =>
+        { root => '/hive/data/genomes', clusterLocality => 0.3,
+	  distrHost => ['pk', 'swarm'], distrCommand => '',
+	  inputFor => ['pk', 'memk', 'swarm'], outputFor => ['pk', 'memk', 'swarm'], },
       'san' =>
         { root => '/san/sanvol1/scratch', clusterLocality => 0.5,
-	  distrHost => ['pk', 'kkstore*'], distrCommand => '',
+	  distrHost => ['pk'], distrCommand => '',
 	  inputFor => ['pk', 'memk'], outputFor => ['pk', 'memk'], },
     );
 
 $defaultDbHost = 'hgwdev';
@@ -353,17 +357,18 @@
   my $clusterInfo = $cluster{$cluster};
   confess "Unrecognized cluster $cluster" if (! $clusterInfo);
   confess "Second arg must be either \"in\" or \"out\""
     if ($inOrOut ne 'in' && $inOrOut ne 'out');
-  my @filesystems = ('/hive/data/genomes');
+  my @filesystems;
   foreach my $fs (keys %clusterFilesystem) {
     my $fsInfo = $clusterFilesystem{$fs};
     my @okClusters = ($inOrOut eq 'in') ?
        @{$fsInfo->{'inputFor'}} :  @{$fsInfo->{'outputFor'}};
     if (scalar(grep /^$cluster$/, @okClusters)) {
-      push @filesystems, $fsInfo->{'root'};
+      push @filesystems, $fsInfo->{'root'} if (-d $fsInfo->{'root'});
     }
   }
+  push @filesystems, '/hive/data/genomes' if (scalar(@filesystems)<1);
   return @filesystems;
 }