
Writing Technician Interface Scripts
A-26
308660-14.00 Rev 00
:FI_PORT_LP:
on error :FI_PORT_NXT:
if $i > $list_0 then; goto :FOOTER_AND_END:
printf “%4d %4d ” $(wfFddiPortEntry.wfFddiPortSlot.${list_[$i]}) \
$(wfFddiPortEntry.wfFddiPortNode.${list_[$i]})
let port = $(wfFddiPortEntry.wfFddiPortPcType.${list_[$i]})
if $port = 1 then ; printf “%-5s ” “A”
if $port = 2 then ; printf “%-5s ” “B”
if $port = 3 then ; printf “%-5s ” “S”
if $port = 4 then ; printf “%-5s ” “M”
if $port = 5 then ; printf “%-5s ” “None”
let port = $(wfFddiPortEntry.wfFddiPortPcNeighbor.${list_[$i]})
if $port = 1 then ; printf “%-9s ” “A”
if $port = 2 then ; printf “%-9s ” “B”
if $port = 3 then ; printf “%-9s ” “S”
if $port = 4 then ; printf “%-9s ” “M”
if $port = 5 then ; printf “%-9s ” “Unknown”
let port = $(wfFddiPortEntry.wfFddiPortPcmState.${list_[$i]})
if $port = 1 then ; printf “%-9s ” “Off”
if $port = 2 then ; printf “%-9s ” “Break”
if $port = 3 then ; printf “%-9s ” “Trace”
if $port = 4 then ; printf “%-9s ” “Connect”
if $port = 5 then ; printf “%-9s ” “Next”
if $port = 6 then ; printf “%-9s ” “Signal”
if $port = 7 then ; printf “%-9s ” “Join”
if $port = 8 then ; printf “%-9s ” “Verify”
if $port = 9 then ; printf “%-9s ” “Active”
if $port = 10 then ; printf “%-9s ” “Maint”
printf “%10u ” $(wfFddiPortExtEntry.wfFddiPortLemCts.${list_[$i]})
printf “%10u ” $(wfFddiPortExtEntry.wfFddiPortEbErrorCts.${list_[$i]})
printf “%10u ” $(wfFddiPortExtEntry.wfFddiPortLctFailCts.${list_[$i]})
#
# Next line...
#
echo
:FI_PORT_NXT:
let i = $i + 1
goto :FI_PORT_LP:
Comentários a estes Manuais