Added logging to proc queue processing. Refactored code to delete request on failures. Restored MCP call in Service_Manager_Events to avoid issues calling certain procedures.
This commit is contained in:
@ -108,7 +108,8 @@ Event WINDOW.TIMER()
|
||||
Procedures = ServiceDetail<SERVICES.PROCEDURES$>
|
||||
Arguments = ServiceDetail<SERVICES.ARGUMENTS$>
|
||||
For Each Procedure in Procedures using @VM setting procPos
|
||||
Command = 'RUN ' : Procedure
|
||||
If Procedure[-9, 9] _EQC '_SERVICES' then Procedure[-9, 9] = ''
|
||||
Command = 'RUN MCP ' : Quote(Procedure)
|
||||
Arguments = Arguments<0, procPos>
|
||||
If Arguments NE '' then
|
||||
For Each Argument in Arguments using ','
|
||||
@ -129,7 +130,7 @@ Event WINDOW.TIMER()
|
||||
If Not(Num(Modifier)) then Modifier = ''
|
||||
Argument = Date() + Modifier
|
||||
end
|
||||
Command := ' ' : Quote(Argument)
|
||||
Command := ', ' : Quote(Argument)
|
||||
Next Argument
|
||||
end
|
||||
Next Procedure
|
||||
|
Reference in New Issue
Block a user