puts "velsel.tcl NOT YET AVAILABLE" if 0 { set velsel_controller(host) 137.157.202.70 set velsel_controller(port) 10000 set velsel_controller(user) NVS set velsel_controller(password) NVS # Velocity Selector MakeTCPSelector velsel [params \ Host $velsel_controller(host) \ Port $velsel_controller(port) \ User $velsel_controller(user) \ Password $velsel_controller(password) \ ] velsel add 3600 4900 velsel add 7800 10500 velsel add 30000 30000 }