phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged PR 12080: added support for new OI dev servers

Browse Source 
added support for new OI dev servers
This commit is contained in:
Stieber Daniel (CSC FI SPS MESLEO)
2025-03-05 00:21:41 +01:00
parent 36f16bf951
commit 018322a2b3
5 changed files with 47 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
LSL2/STPROC/DEVELOPMENT_SERVICES.txt
View File

@ -582,50 +582,35 @@ End Service
//----------------------------------------------------------------------------------------------------------------------
Service SetupDevServices()
DevAppServices = ''
DevDBServices = 'Update Material Logs':@VM:'Log Transaction Postings':@VM:'Process Wafer Image Queue':@VM
DevDBServices := 'Process UCL Requests':@VM:'Process ROTR Requests':@VM:'Process Wafer Image Requests':@VM
DevDBServices := 'Process SQL Requests':@VM:'Send Notes':@VM:'Update Notification Groups':@VM
DevDBServices := 'Update Security Groups':@VM:'Auto Scheduler'
Query = "SELECT SERVICES"
DevServerName = Environment_Services('GetServer')
IsProd = Environment_Services('IsProd')
If (IsProd EQ False$) then
BaselineServices = 'Update Material Logs':@VM:'Log Transaction Postings':@VM:'Process Wafer Image Queue':@VM
BaselineServices := 'Process UCL Requests':@VM:'Process ROTR Requests':@VM:'Process Wafer Image Requests':@VM
BaselineServices := 'Process SQL Requests':@VM:'Send Notes':@VM:'Update Notification Groups':@VM
BaselineServices := 'Update Security Groups':@VM:'Auto Scheduler'
Query = "SELECT SERVICES"
GoSub ClearCursors
Rlist(Query, Target_ActiveList$, '', '', '')
If @RecCount GT 0 then
Open 'SERVICES' to hServices then
EOF = False$
Loop
ReadNext ServiceName else EOF = True$
ServiceRec = Database_Services('ReadDataRow', 'SERVICES', ServiceName)
Server = ServiceRec<SERVICES.SERVER$>
Begin Case
Case ( (Server _EQC 'MESSA005') or (Server _EQC 'MESSA012') )
// App Servers
Locate ServiceName in DevAppServices using @VM setting vPos then
ServiceRec<SERVICES.SERVER$> = 'MESSA012'
ServiceRec<SERVICES.ACTIVE$> = True$
end else
ServiceRec<SERVICES.SERVER$> = 'MESSA012'
ServiceRec<SERVICES.ACTIVE$> = False$
end
Case ( (Server _EQC 'MESSA01EC') or (Server _EQC 'MESTSA01EC') )
// DB Servers
Locate ServiceName in DevDBServices using @VM setting vPos then
ServiceRec<SERVICES.SERVER$> = 'MESTSA01EC'
ServiceRec<SERVICES.ACTIVE$> = True$
end else
ServiceRec<SERVICES.SERVER$> = 'MESTSA01EC'
ServiceRec<SERVICES.ACTIVE$> = False$
end
End Case
Database_Services('WriteDataRow', 'SERVICES', ServiceName, ServiceRec, True$, False$, True$)
Until EOF
Repeat
end
GoSub ClearCursors
Rlist(Query, Target_ActiveList$, '', '', '')
If @RecCount GT 0 then
Open 'SERVICES' to hServices then
EOF = False$
Loop
ReadNext ServiceName else EOF = True$
ServiceRec = Database_Services('ReadDataRow', 'SERVICES', ServiceName)
If Error_Services('NoError') then
ServiceRec<SERVICES.SERVER$> = DevServerName
ServiceRec<SERVICES.ACTIVE$> = InList(BaselineServices, ServiceName, @VM)
Database_Services('WriteDataRow', 'SERVICES', ServiceName, ServiceRec, True$, False$, True$)
end
Until EOF
Repeat
end
end
end
end service
@ -657,3 +642,4 @@ ClearCursors:
Next counter
return