Changeset 387408bfc5a9f0a310f6797876b4c24213b862f4 for fedkit

Timestamp:

05/18/08 12:49:50 (4 years ago)

Author:

Ted Faber <faber@…>

Children:

ad5639c6bf5190c89314874d131d0ab87bce0078

Parents:

f3691ff3ae25d3b83c09aa21905fb9320e79cad2

git-committer:

Ted Faber <faber@isi.edu> / 2008-05-18T19:49:50Z+0000

Message:

splitter asks with node information

Files:

• fedkit/splitter.pl (modified) (2 diffs)

fedkit/splitter.pl

@@ -572 +572 @@
         chomp;
 
-        my $tb = $_;            # Current testbed
+        my $tb;         # Current testbed
+        my @nodes;      # Current testbed node requests
+
+        /([^|]+)\|?(.*)/ && do {
+            my $n;
+
+            ($tb , $n) = ($1, $2);
+            @nodes = split(/\|/, $n);
+        };
+
         # If this testbed has not had its access parameters read from fedd, try
         # to read them, if we have a way to talk to fedd
@@ -585 +594 @@
             my $cmd = "$fedd_client -t " . 
                 $tbparams->{$tb}->{'uri'} .  " -T $ENV{HOME}/cacert.pem ".
-                "-l $tb $proj | /usr/bin/tee fedd.$tb ";
+                "-l $tb $proj" . (@nodes ? " -n " : " ") .
+                join(" -n ", @nodes) . "| /usr/bin/tee fedd.$tb ";
             print "$cmd\n" if $verbose;