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

Index: src/hg/utils/automation/HgAutomate.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/utils/automation/HgAutomate.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -b -B -U 4 -r1.24 -r1.25
--- src/hg/utils/automation/HgAutomate.pm	13 Mar 2009 22:27:12 -0000	1.24
+++ src/hg/utils/automation/HgAutomate.pm	8 May 2009 22:57:01 -0000	1.25
@@ -57,8 +57,11 @@
 	  'hostCount' => 394, },
       'memk' =>
         { 'enabled' => 1, 'gigaHz' => 1.0, 'ram' => 32,
 	  'hostCount' => 32, },
+      'encodek' =>
+        { 'enabled' => 1, 'gigaHz' => 2.0, 'ram' => 16,
+	  'hostCount' => 48, },
 #      'kk9' => # Guessing here since the machines are down:
 #        { 'enabled' => 0, 'gigaHz' => 1.5, 'ram' => 2,
 #	  'hostCount' => 100, },
     );
@@ -72,13 +75,14 @@
 	  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'], distrCommand => '',
-	  inputFor => ['pk', 'memk'], outputFor => ['pk', 'memk'], },
+	  inputFor => ['pk', 'memk', 'encodek', 'swarm'],
+	  outputFor => ['pk', 'memk', 'encodek', 'swarm'], },
+#      'san' =>
+#        { root => '/san/sanvol1/scratch', clusterLocality => 0.5,
+#	  distrHost => ['pk'], distrCommand => '',
+#	  inputFor => ['pk', 'memk'], outputFor => ['pk', 'memk'], },
     );
 
 $defaultDbHost = 'hgwdev';
 
@@ -210,9 +214,10 @@
   # swarm and hgwdev are now valid workhorses since they have access to hive.
   confess "Too many arguments" if (scalar(@_) != 0);
   my %horses = ();
   foreach my $machLine ('swarm', 'kolossus', 'hgwdev',
-	`ssh -x memk parasol list machines | grep idle`) {
+	`ssh -x memk parasol list machines | grep idle`,
+	`ssh -x swarm parasol list machines | grep idle`) {
     my $mach = $machLine;
     $mach =~ s/[\. ].*//;
     chomp $mach;
     $horses{$mach} = &getLoadFactor($mach) if (! exists $horses{$mach});