Changeset 387408b for fedkit

Timestamp:

May 18, 2008 12:49:50 PM (16 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02

Children:

ad5639c

Parents:

f3691ff

Message:

splitter asks with node information

File:

• 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;