Avaya Writing Technician Interface Scripts Manuel d'utilisateur télécharger pdf (Page 101)

Sample Scripts

308660-14.00 Rev 00

A-27

################################################################

# Sample screen (samples parameters twice, prints deltas)

################################################################

:FI_SAMP:

let period = 10

if $# < 3 then; goto :FI_Samp1:

# check for circuit to match without period given

setenv cmd “$3”

let j = strindex(“circuit”, cmd)

if $j != 1 then; goto :FI_ITSPERIOD:

let len = strlen(cmd)

if $len < 3 then; goto :FI_HELP_SHOW:

if $# != 4 then; goto :FI_HELP_SHOW:

setenv matchcct “$4”

goto :FI_Samp1:

:FI_ITSPERIOD:

setenv period “$3”

# Check “period” parameter for invalid characters, 0 value

if “$ver” < “x7.80” then; goto :FI_SAMP_CKVAL:

setenv teststr “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

let invalch = strpbrk(“$3”, “$teststr”)

if $invalch != 0 then ; goto :FI_SAMP_HELP:

setenv teststr “abcdefghijklmnopqrstuvwxyz”

let invalch = strpbrk(“$3”, “$teststr”)

if $invalch != 0 then ; goto :FI_SAMP_HELP:

setenv teststr “!@#%^&*()_-=+\|`~[{]}';:/?,<>”

let invalch = strpbrk(“$3”, “$teststr”)

if $invalch != 0 then ; goto :FI_SAMP_HELP:

1 2 ... 96 97 98 99 100 101 102 103 104 105 106 ... 115 116

Pas de commentaire

Avaya Writing Technician Interface Scripts Manuel d'utilisateur Page 101