|
|
|
|
V1.65 [91] 15-7-2006
V1.64 26/8/2005 fixed bad print statement in AddToInputQueFIFO V1.63 22/8/2005 found three problems. The first is the AIQF was originally an array of 30 inputs. Messages for any network were sent and OPC had to decide which ones to send to the same network. Then introduced the ghost image message so that failed messages could be returned. This converted the fifo back to one message at a time. Then the new switch allowed multiple of the same network and so reconverted back to switch sending multiples of the same network. The fifo though wasnt checking for the next empty que position. This overwrite some messages in large group situations.
This problem created several back to the switch. Messages would expire in que unexpectedly as return status was overwritten with the wrong message ID. Some messages could be lost.
Second problem was ConnectModem had a bad select statement. Also added the assumption that the mode was in command mode and so changed the modem status to command.
Third problem ModemBusy on a test was a lock out. missed the status in the select case.
Added tmr error handling.
V1.62 (84)23/7/2005
Private Sub CheckQueStatusDirect(x As Integer) Select Case (InputQ.Inputque(x).QUe.Status) Case qQUEPORT, qWAITPORT, qWAIT, qQ2BUPORT these are possible status from Switch added in Q2BUPORT as failed on a leased line P03.
also changed this function as P04 did not know what to do with deleted status Private Sub CheckQNewMessage() called on valid message and "CONNECTED"
Dim temp2 As QDestList
If PETState = pIDLE Or PETState = pWaitNEXTpkt Then
Select Case InputQ.Inputque(InputQ.ClientPointer).QUe.Status
Case mCONN, qQUEPORT, qWAITPORT, qWAIT, qQ2BUPORT If InputQ.Inputque(InputQ.ClientPointer).QUe.Destination = gModemNetwork Then PETState = pINITPET start the pet protocol on the current clientpointer InputQ.Inputque(InputQ.ClientPointer).QUe.Status = "PInit" Insertlog InputQ.ClientPointer, SYSTEM_LOG, InputQ.Inputque(InputQ.ClientPointer).QUe.MessId, ("CQQC: First message for same network [" & InputQ.Inputque(InputQ.ClientPointer).QUe.Destination & "]") Exit Sub Else gSendEOTNow = True Debug.Print Now & " PM Pet is idle or waiting. New message not same network." End If
Case qMESSEXPQ, qMESSDELETED InputQ.Inputque(InputQ.ClientPointer).QUe.Status = pDONE
End Select
Else ProcessPet End If
End Sub
V1.61 (83)19/7/2005 changed CheckQueStatusMODEM agin to include more states when a message arrives and the modem is not in idle state. added HangModem and ConnectModem to the ModemCommand module these take the global modem status into consideration when reassigning the modem control.
V1.60(81) 3/5/2005 Public Function IsQEmpty() As Boolean
Case qQ2BUPORT, qQUEPORT IsQEmpty = False added qQ2BUPORT in the isqempty.
V1.58(80) 3/5/2005 added modemdialogstate = didle in Private Sub CheckQueStatusMODEM(x As Integer) Case gMS_PortOpened
V1.58(79) 3/5/2005 found problem with test port. opening port and new message is recieved it will lock out the processing of the test routine and the processing of the message. changed openport status to connect the modem in this situation. Private Sub CheckQueStatusMODEM(x As Integer) Case gMS_PortOpened DisplayFunction "CQSM: Bad Status " & gModemSTATUS ModemDialogTESTState = dIDLE cancel test here ConnectModem (x)
V1.57(76) 19/4/2005 added function list and changed gModemStatus status to constants added extra status case statements. removed function options replaced with function list and the timer so that long timers are seen to be running
V1.56(70) 18/4/2005 Found the message is repeated sent if it has not been deleted by the switch. Any delays in processing the deletes caused the message to be repeated sent to the host.
V1.55(69) 1/3/2005 Fixed EOT timer. DISCONNECTING was activating before EOT timer expired. added lockout. Could not hang up until pet was idle. ie finish eot timer.
V1.55(61) 28/2/2005 Changed MODEM Unavail to start the modem hang sequence New logic for message processing. PET handles all additional messages in Q provided they are for same destination. PET wil exhaust the Q for same network. Then Process message will take over ProcessMessages has been simplified.
Added new global state "DISCONNECTING" during this time no messages will be processed.
V1.53.00 14/12/2004 Changed ConnectModem. wasnt picking up the new number when reallocated the port Added more states to CheckQueStatusMODEM to try hanging up changed the unavail to fewer states.
V1.52.00 22/11/2004 changed PET processor fallback routines changed serialcomsdl removed delay at end of incoming packet in DIRECT mode label indicates either host ok or no host added change in test timer period if unavail in direct mode.
V1.51.00 added dial string to log. added modem state to log. moved test for dial tone to 30 mins moved test direct port every 5 minutes. added ISDN/PSTN/DIRECT message flow control and port testing
V1.50.01 Fixed nodialtone to make client unavailable revision number added. added more states in the modem testing
V1.49.01 Added tool tips to lstboxes. Fixed passwd going to pet. It is looked up in the modem parameter fetch and set as a global in the pet.
V1.48.01 Changed the processing of the DIRECT port to test more often when port is bad. Also changed some labels and updates.
V1.47.00 Added the function processing frame for high volume functions. and function window for low volume functions.
V1.42.00 ordered the start up of the modules
V1.42.00 removed module class
V1.41.00 added database close on backup
V1.40.00 added status tab
V1.39.00 added error logging and back up modules
V1.38.02 added database hits fixed rlog class ident was 8 chars ?? not 3
V1.38.00 31/3/2003 changed the EOT timer, Banner timer and the progress banner added Que counters changed EOT code again QUE now has a done state pending a delete from the switch Messages now delivered in one second
V1.32.00 17/3/2003 added PNumberFormat in database for pico numbers 7,Z
V1.31.00 10/03/2003 moved to database logging added more counters
V1.30.03 05/03/2003 added delete ack via cc to switch.
V1.30.02 28/2/2003 added m type Status messages and p and c types
V1.20.01 18/02/2003 changed pet number to variable not fixed 10 digit.
V1.20.00 added isqempty on the send eot added extra log on pet increase pet wait cr timer to 1 second because MOBILENET too slow
V1.19.00 added change to pet stx timer
V1.17.00 added test facility on direct pet
V1.16.00 fixed testcr sending too many CC messages fixed delete command source address fixed pet cr too many messages V1.12.00 added DELETE command
V1.06.00 added outgoing pkts count and added comport and settings from database added msg box on input TCP buffer overflow
V1.05.00 added PET module
V1.03.00 added module info |
|
|
