| Rev 28 |
|
Rev 39 |
| Line 181... |
|
Line 181... |
}; |
|
}; |
if ($ol_ispresent) |
|
if ($ol_ispresent) |
{ print "92;$ol_nameb[2];$ol_nameb[3];\n";} |
|
{ print "92;$ol_nameb[2];$ol_nameb[3];\n";} |
else |
|
else |
{ print "82;$ol_nameb[2];$ol_nameb[3];\n";} |
|
{ print "82;$ol_nameb[2];$ol_nameb[3];\n";} |
| |
|
} |
| |
|
|
| |
|
#now we will look into ospf links and all not found in basic link file (00) will be drawn in red color |
| |
|
foreach $ol_linko (@ol_links_named) |
| |
|
{ @ol_nameo=split(" ",$ol_linko); |
| |
|
@ol_nameo = sort (@ol_nameo); |
| |
|
$ol_isnotpresent=1; |
| |
|
|
| |
|
foreach $ol_linkb (@ol_basiclinks) |
| |
|
{ @ol_nameb=split(/;/,$ol_linkb); |
| |
|
@ol_nameb = sort (@ol_nameb); |
| |
|
if (("$ol_nameo[0]" eq "$ol_nameb[2]") && ("$ol_nameo[1]" eq "$ol_nameb[3]")) |
| |
|
{ $ol_isnotpresent=0; |
| |
|
}; |
| |
|
}; |
| |
|
if ($ol_isnotpresent) |
| |
|
{ print "01;$ol_nameo[0];$ol_nameo[1];\n";} |
} |
|
} |
|
|
|
#print "</pre></BODY></HTML>"; |
|
#print "</pre></BODY></HTML>"; |
|
|
|
exit |
|
exit |
