Sync all PBX's to time server? - PBX Info :: Your Free PBX, PABX and Telephone Information Resource

JohnnyMod · 07-16-2003, 05:26 PM

I have 2 Opt. 81C's, Opt. Rls 24, Opt 51C Rls 24 and Opt 61C Rls 23. Is there any way (other than manually entering the time and Date in load 2) to have date and time sync off of a network time server?

gwebster · 07-16-2003, 09:16 PM

Do a search back through the message list and you should find reference to a script that parties have used to do this.

Twisted · 07-17-2003, 06:29 AM

Yes there is a way...Basically you pick one system to be the master ( any will do) then you need a SDI to ethernet converter and send it to a server that has a application running on it that can get time stamps and change the time on the PBX as needed. Once that system is set the server contacts other servers across you LAN/WAN to ensure those times are correct. If they are not,, it in turns changes the time on that PBX. If the time is off more then 2 seconds it will change it.

The cost is about 5K per site if you provide the server.
Keep in mind you need a spare SDI port at each site that is dedicated for this function.

**Chas2002** · 07-17-2003, 08:52 AM

If you have Procomm Plus - you can create a script that will:

1. Get the PC time (ensure that PC Time is networked to a Time Server)
2. Save PC/Servier Time as a String.
3. Open Load 2
3. Insert new time...
4. Close Program.

The script could run once a day, week, month, etc....

Twisted · 07-17-2003, 12:11 PM

I have heard of endusers that have application builders do this but, not on a procom script. I think it that were possible it would have been cheaper and in turn done already.

**Chas2002** · 07-17-2003, 12:28 PM

I've got a little project going on just now. But I'll create a script and test on my system and post the results latter today or tomorrow....

[Edited on 17/7/2003 by Chas2002]

TelcoHo · 07-17-2003, 07:26 PM

This is the script that I use. I include it as part of my morning routines, which run every morning at 5 using the scheduler app that comes with pcomm.

PHP Code:

  proc ld2_stad

    string sysTime,szM,szD,szY

 
    substr szM $DATE 0 2

    substr szD $DATE 3 2

    substr szY $DATE 6 2

    substr sysTime $TIME 0 8

    strreplace sysTime ":" " "

    strcat szD " "

    strcat szD szM

    strcat szD " "

    strcat szD szY

    strcat szD " "

    strcat szD sysTime

    transmit "STAD"

    transmit szD

    transmit "^M"

endproc

It should be noted that I've changed my regional settings to set my time format to 24 hr time and my date format to short date. I just did that because aspect is already an interpreted language running through pcomm and I didn't want to waste any more clock cycles than was absolutely necessary between the time when I grabbed the system time and the time when I set the time. I use a very modular programming style, especially with aspect, so this script assumes that you're already in ld 2. I suppose you can also use individual transmits instead of all of the string cats. Dunno if it'd be faster that way. In case anyone's wondering I'm using NetTime 2.0 to synch my pc clock with a local ntp server which synchs off of a local atomic clock.

cheers,
will

**Chas2002** · 07-18-2003, 02:26 PM

JohnnyMod - That's similar to what I was coming up with....The above script should work - so I'll stop creating the one I was working on.....

FYI-----------------------

The power of Procomm "Aspect Scripting"...

This is one I've created to automatically capture an ACD or Traffic file each hour and autoname based on the date....Great for getting rid of those Okidata printers..

#comment
~~~ Automation Script for Meridian Procomm Plus Capture Files V2.2 ~~~

Purpose: To replace okidata printers with a PC connected to a TTY
Port to capture ACD or Traffic reports.

This aspect script will open the first Data Connection Directory in
Procomm Plus and assign the MMDDYYYY value to captured files. It
automatically checks to see if a file exist for the date value - if so,
it adds 1 to the file extension.

Thus, if the Procomm Plus program captures 24 files on the same day, the
capture directory will have; example: 01012003.cap and 01012003.001 through
01012003.023

Author: Chas
Date Updated: 6-25-2003
Tested: Win 98, Win NT 4.0 with Service Pack 5

Quick Install Instructions ------------------------------
1. Navigate to Procomm Plus and rename current startup.was to
oldstartup.was
2. Paste this startup.was script into the same directory.

Disclamer: Nortel and Meridian are Trademarks of Nortel Networks. There are no
waranties implied - use this program at your own risk. The program has been tested by Charles XXXXX and has not in any way interferred with other PC operations..
All intellectual rights are reserved.
#endcomment

;************************************************* ************************
;* Defines the Macro *
;************************************************* ************************

#DEFINE CaptureMode 0 ;sets the mode of the Capture file to Screen

;************************************************* ************************
;* Sets Global Variables *
;************************************************* ************************

string FileName = $NULLSTR ;holds the filename to name capture file

;************************************************* ************************
;* *
;* -------------------1st Procedure or MAIN------------------------------*
;* This procedure calls GetFileNam to generate the Date. *
;* Then calls CheckForFile to see Filenam already exist. *
;* StartCapture starts the Capture file. *
;* *
;* Globals: NONE *
;* Calls: GETFILENAM, CHECKFORFILE, STARTCAPTURE, *
;************************************************* ************************

proc Main

GetFileNam() ;calls the GetFileName proc
CheckForFile() ;calls the CheckForFile proc
StartCapture()

Endproc

;************************************************* ************************
;* *
;* GETFILENAM() *
;* The procedure GetFileName gets the system date and removes any illegal*
;* characters from the FileName *
;* *
;* Globals: FILENAME *
;* Calls: NONE *
;* Called by: Main *
;* *
;************************************************* ************************

proc GetFileNam

integer Position = 1

FileName = $DATE ;sets the name from Control Panel
while (Position != 0)
strfind FileName "/" Position ;searches for / (illegal character)
if failure ;tests for a failure
Position = 0 ;sets condition to False
else ;successful search
strdelete FileName Position 1 ;removes illegal character
endif
endwhile
while (Position != 0)
strfind FileName "-" Position ;searches for -(illegal character)
if failure ;tests for a failure
Position = 0 ;sets condition to False
else
strdelete FileName Position 1 ;removes illegal character
endif
endwhile
strcat FileName ".CAP"
endproc

;************************************************* ************************
;* *
;* CHECKFORFILE() *
;* The procedure CheckForFile looks for conflicts in filename structure. *
;* If a conflict exist it moves to Autoname procedure. *
;* If the Filename does not exist it moves back to MAIN. *
;* *
;* Globals: FILENAME *
;* Calls: FILEEXISTS *
;* Called by: Main *
;* *
;************************************************* ************************

proc CheckForFile

string CapturePath

fetch capture path CapturePath ;gets the current capture path
strcat CapturePath "" ;put a on the end of path
strcat CapturePath Filename ;put filename on the path
if isfile CapturePath ;check to see if file is in DIR
AutoName()
else
set capture overwrite OFF ;sets the capture to append
set capture file FileName ;sets the capture filename
set capture recordmode CaptureMode ;sets the mode
endif
endproc

;************************************************* ************************
;* *
;* AUTONAME() *
;* The procedure AutoName names a file for you with a numbered extension *
;* this will be used if the date of the file is duplicated. *
;* *
;* Globals: FILENAME *
;* Calls: NONE *
;* Called by: CheckForFile *
;* *
;************************************************* ************************

proc AutoName

string TargetStr = ".CAP"
string ReplaceStr = ".001"
string CapPath
float ReplaceFloat

while 1 ;loop until find a name
strreplace FileName TargetStr ReplaceStr
fetch capture path CapPath ;gets the current capture path
strcat CapPath "" ;put a on the end of path
strcat CapPath FileName ;put filename on the path
isfile CapPath ;is file in capture path
if failure ;no
fetch capture path CapPath ;gets the current cap path
set capture file FileName ;sets the capture filename
set capture recordmode CaptureMode ;sets the mode
exitwhile ;exits the loop
else ;yes
TargetStr = ReplaceStr ;sets new target string
atof ReplaceStr ReplaceFloat ;change to an integer
;usermsg "float value after atof %0.3f" ReplaceFloat
ReplaceFloat = ReplaceFloat + .001 ;increases integer by .001
strfmt ReplaceStr "%0.3f" ReplaceFloat ;formats string
strdelete ReplaceStr 0 1 ;deletes begining zero
endif
endwhile
endproc

;************************************************* ************************
;* *
;* STARTCAPTURE() *
;* The procedure StartCapture starts the Capture file and waits for the *
;* when command to fire in the Main procedure. *
;* *
;* Globals: NONE *
;* Calls: NONE *
;* Called by: Main *
;* *
;* NOTE: Pause 20 will keep the Procomm Plus program open for 410 *
;* seconds (Approx 7 Minutes). You may have to change this timer *
;* to suit your particulare needs *
;************************************************* ************************

proc StartCapture

winactivate $PWMAINWIN ; Make sure Procomm Plus has focus.
mspause 750
sendkey ALT 'D' ; Send ALT-D to open Connection Directory.
mspause 500 ; Pause to wait for menu.
Sendkey ALT 'C' ; Send ALT-C to open Connection.
mspause 500 ; Pause to show of playback selection.
sendkey 'C' ; Send C .
mspause 750

capture on ; Open up the capture file.

pause 20 ; Pause for 410 seconds.

capture off ; Close the capture file.

mspause 500 ; Pause to wait for closure

pwexit ; Close Procomm Plus

endproc

[Edited on 18/7/2003 by Chas2002]

**Chas2002** · 07-21-2003, 12:50 PM

JM - Let me know it the procedure TelecoHo created works.

Thanks

TelcoHo · 07-21-2003, 07:49 PM

-pretends to be offended-

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Dst Fyi	Java_Bob	Off Topic - Humor/Jokes	11	06-27-2006 11:52 AM
Forward no answer at time..	justzikle	Meridian Systems	6	03-09-2006 05:15 AM
Call forwarding problem - need advice	tahki	Meridian Systems	6	04-02-2004 04:57 PM
Call Redirection by Time of Day	PHONE_TECH	Meridian Systems	3	09-12-2003 12:33 PM
Call Forwarding Ext on Timer?	CKIRK	Meridian Systems	5	07-30-2003 07:53 AM

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)