Capturing TOD, and dumping to Nortel opt81

[glynnmsg]

Has anyone ever used a script to capture the time on the PC and down load it to a option 81 nortel pbx.

 

[MyFlight]

glynnmsg,

I have never done the download to an Option 81. However, you might try the following script file.


proc main
string DateString, TimeString ; Time and date strings.

; Convert long time into date and time, in text form,
; and display it on the status line.

ltimestrs $LTIME DateString TimeString

usermsg "DATE IS: `"%s`"!" DateString
usermsg "TIME IS: `"%s`"!" TimeString

endproc


Remove the usermsg and replace with transmit commands.

For example replace

usermsg "DATE IS: `"%s`"!" DateString

With

transmit DateString

See how that works.

 

[johnpoole]

do a scritp capture, log in go to load 2 stad xxxx.. then use the above command and paste the `"%s`"!" DateString.. in place of the actual ld time string..you can modify the time format in procomm are on the server to match the insane 81 format.. **** logo


john poole
bellsouth business
columbia,sc

 

[M1PBXtech]

This one works great for me. Knob helped me write it a few years ago.

;This script will take the time from your windows PC and tranmit it to the M1

;You must Be Logged in to to switch already for this to work

proc main
integer iDay, iMonth, iYear, iMin, iHour, iSec
string sSend

ltimeints $LTIME iYear iMonth iDay iHour iMin iSec

strfmt sSend "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec
set txpace 30
transmit "****^M"
waitfor ">"
transmit "ld 2^M"
waitfor "."
transmit "TTAD^M"
waitfor "."
transmit sSend
transmit "^M"
waitfor "."
pause 2
transmit "TTAD^M"
waitfor "."
pause 2
transmit "****^M"

set txpace 0

Endproc


Ron Daniels