
Writing Technician Interface Scripts
A-28
308660-14.00 Rev 00
:FI_SAMP_CKVAL:
if $period <= 0 then; \
echo “Period of $period seconds is too low.” ; \
goto :FI_HELP_SHOW:
#
# Check for circuit to match on...
#
if $# <= 3 then ; goto :FI_Samp1:
setenv cmd “$4”
let len = strlen(cmd)
if $len < 3 then ; goto :FI_HELP_SHOW:
let j = strindex(“circuit”, cmd)
if $j != 1 then ; goto :FI_HELP_SHOW:
if $# != 5 then ; goto :FI_HELP_SHOW:
setenv matchcct “$5”
#
# Take the first sample...
#
:FI_Samp1:
echo
printf “FDDI Sampled Data over %3u seconds\n” $period
echo “----------------------------------”
echo
printf “%4.4s %4.4s %-8.8s %-10.10s %-10.10s %-10.10s %-10.10s\n” \
“” “” “” “ Rx” “ Tx” “Rx Lack of” “Tx Lack of”
printf “%4.4s %4.4s %-8.8s %-10.10s %-10.10s %-10.10s %-10.10s\n” \
“Slot” “Conn” “Circuit” “ Frames” “ Frames” “Resources”\
“Resources”
printf “%4.4s %4.4s %-8.8s %10.10s %10.10s %10.10s %10.10s\n” \
“----” “----” “--------” “----------” “----------” “----------” \
“----------”
printf “Taking first sample...”
instenv list_ wfFddiEntry
let i = 1
if $list_0 = 0 then; \
printf “\r \r”; \
goto :FOOTER_AND_END:
Comentários a estes Manuais