Commit b68577da authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Fixed bug for links to lans.

parent b87870fd
......@@ -4,7 +4,7 @@ Class link
# link src srcport dst dstport
link instproc print {file} {
global nodeid_map prefix
global nodeid_map prefix lanlist
if {[info exists nodeid_map([$self set src])]} {
set srcname $nodeid_map([$self set src])
} else {
......@@ -15,6 +15,12 @@ link instproc print {file} {
} else {
set dstname [$self set dst]
}
if {[lsearch $lanlist [$self set src]] != -1} {
set srcname $prefix-$srcname
}
if {[lsearch $lanlist [$self set dst]] != -1} {
set dstname $prefix-$dstname
}
if {[info exists nodeid_map(l[$self set id])]} {
set linkname $nodeid_map(l[$self set id])
} else {
......
Supports Markdown
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