Changeset 26045

Timestamp:

Nov 5, 2009, 11:14:59 AM (17 years ago)

Author:

bills

Message:

suport 'exposure' as component

File:

• trunk/ippTasks/dist.pro (modified) (2 diffs)

trunk/ippTasks/dist.pro

@@ -78 +78 @@
         break
     end
-    local host component default template varname length start count component_id
+    local host component default template varname length start count component_id random_number
     $component = $1
     $template = $2
@@ -92 +92 @@
         break
     end
-    # take last two letters of component id
-    # treat it as an integer and use modulous of length of distribution hosts
-    # to compute a host
-    strlen $component length
-    $start = $length - 2
-    substr $component $start 2 index
-    $component_id = $index % $count
+    if ("$component" != "exposure") 
+        # take last two letters of component id
+        # treat it as an integer and use modulous of length of distribution hosts
+        # to compute a host
+        strlen $component length
+        $start = $length - 2
+        substr $component $start 2 index
+        $component_id = $index % $count
+    else
+        # randomly chose one of the hosts
+        $random_number = int(100 * rnd(0)) % $count
+        sprintf component_id "%d" $random_number
+    end
 
     book getword ipphosts distribution $component_id -var host