Avaya Writing Technician Interface Scripts Manual de usuario descargar pdf (Pagina 93)

Sample Scripts

117382-A Rev. A A-21

# check for circuit name to match on...

#

if $# = 2 then ; goto :FI_SMT_NM:

setenv cmd “$3”

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 $# != 4 then ; goto :FI_HELP_SHOW:

setenv matchcct “$4”

:FI_SMT_NM:

echo

echo “FDDI Modules SMT Parameters:”

echo “----------------------------”

echo

printf “%-4.4s %-4.4s %-8.8s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“” “” “” “ Connection Policy (R = Reject)” “” “” “”

printf “%-4.4s %-4.4s %-8.8s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“” “” “” “- - - - - - - - - - - - - - - -” “” “” “”

printf “%18.18s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“Local:” “M M M M S S S S B B B B A A A A” “” “” “”

printf “%18.18s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“Neighbor:” “M S B A M S B A M S B A M S B A” “” “” “ T”

printf “%-4.4s %-4.4s %-8.8s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“” “” “” “| | | | | | | | | | | | | | | |” “ ECM” “ Connect” \

“Notify”

printf “%-4.4s %-4.4s %-8.8s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“Slot” “Conn” “Circuit” “| | | | | | | | | | | | | | | |” “ \

State” “ State” “(secs)”

printf “%-4.4s %-4.4s %-8.8s %-31.31s %-8.8s %-8.8s %-6.6s\n” \

“----” “----” “--------” “- - - - - - - - - - - - - - - -” \

“--------” “--------” “------”

instenv list_ wfFddiSmtEntry

:FI_SMT_LP:

on error :FI_SMT_NXT:

if $i > $list_0 then; goto :FOOTER_AND_END:

let cctnum = $(wfFddiEntry.wfFDDICct.${list_[$i]})

gosub :GETCCTNAME:

if “$matchcct” = “” then ; goto :FI_PRNTSMT:

if -ic “$matchcct” != “$cctname” then ; goto :FI_SMT_NXT:

let match_entries = $match_entries + 1

:FI_PRNTSMT:

1 2 ... 88 89 90 91 92 93 94 95 96 97 98 ... 115 116

Comentarios a estos manuales

Sin comentarios