Skip to content

GitLab

emulab-stable
emulab-stable
Commit 08e87b81 authored by Shashi Guruprasad's avatar Shashi Guruprasad
Browse files
Options

fix for change in output format of 'tmcc hostnames'

parent cd97db56
Hide whitespace changes
Inline Side-by-side
Showing with 12 additions and 8 deletions
event/nsetrafgen/nseinput.tcl
View file @ 08e87b81
......@@ -6,10 +6,12 @@ proc getipaddr {name} {
set hostnamelist [split [exec tmcc hostnames] "\n"]
foreach hostname $hostnamelist {
scan $hostname "NAME=%s LINK=%u IP=%s " hname linknum ip
set hnametomatch "$hname-$linknum"
if { $hnametomatch == $name } {
return $ip
scan $hostname "NAME=%s IP=%s ALIASES=\'%s\'" hname ip aliases
set aliaslist [split $aliases " "]
foreach alias $aliaslist {
if { $alias == $name } {
return $ip
}
}
}
puts stderr "NSE: Could not find ipaddress for $name"
......
event/nsetrafgen/nseinput.tcl.in
View file @ 08e87b81
......@@ -6,10 +6,12 @@ proc getipaddr {name} {
set hostnamelist [split [exec tmcc hostnames] "\n"]
foreach hostname $hostnamelist {
scan $hostname "NAME=%s LINK=%u IP=%s " hname linknum ip
set hnametomatch "$hname-$linknum"
if { $hnametomatch == $name } {
return $ip
scan $hostname "NAME=%s IP=%s ALIASES=\'%s\'" hname ip aliases
set aliaslist [split $aliases " "]
foreach alias $aliaslist {
if { $alias == $name } {
return $ip
}
}
}
puts stderr "NSE: Could not find ipaddress for $name"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment