pre cutover push
This commit is contained in:
Infineon\StieberD
@ -44,7 +44,7 @@ Common /EnvironmentServices/ Unused1@, Unused2@, Unused3@, Unused4@, Unused5@, U
|
||||
|
||||
Declare function Environment_Services, Memory_Services, SRP_List, SRP_FastArray, SRP_Array, Database_Services
|
||||
Declare function Active_Directory_Services, SRP_Send_Mail, RTI_GetNetworkUserName, Utility
|
||||
Declare subroutine Environment_Services, Memory_Services, SRP_List, SRP_FastArray, Database_Services
|
||||
Declare subroutine Environment_Services, Memory_Services, SRP_List, SRP_FastArray, Database_Services, GetTempPath
|
||||
|
||||
GoToService else
|
||||
Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
|
||||
@ -79,6 +79,15 @@ Service GetServer()
|
||||
|
||||
end service
|
||||
|
||||
Service IsProd()
|
||||
Machine = Environment_Services('GetServer')
|
||||
IsProd = False$
|
||||
If Machine _NEC "messa012" and Machine _NEC "mestsa01ec" and Machine _NEC "MESTST1010" and Machine _NEC "MESTST1009" then
|
||||
IsProd = True$
|
||||
end
|
||||
Response = IsProd
|
||||
end service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// GetApplicationRootPath
|
||||
@ -105,24 +114,14 @@ Service GetApplicationRootIP()
|
||||
Machine = Environment_Services('GetServer')
|
||||
|
||||
Begin Case
|
||||
Case Machine EQ 'MESSA01EC'
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ApplicationRootIP = '\\10.95.128.14'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ApplicationRootIP = '\\10.95.140.14'
|
||||
* End Case
|
||||
Case Machine EQ 'MESTSA01EC'
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ApplicationRootIP = '\\10.95.128.13'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ApplicationRootIP = '\\10.95.140.13'
|
||||
* End Case
|
||||
Case Machine EQ 'MESSA005' ; ApplicationRootIP = '\\messa005.infineon.com'
|
||||
Case Machine EQ 'MESTSA01EC' ; ApplicationRootIP = '\\10.95.140.13'
|
||||
Case Machine EQ 'MESSA012' ; ApplicationRootIP = '\\10.95.176.50'
|
||||
Case Otherwise$ ; ApplicationRootIP = '\\messa005.infineon.com'
|
||||
Case Machine EQ 'MESST5201' ; ApplicationRootIP = '\\10.95.140.14'
|
||||
Case Machine EQ 'MESST5202' ; ApplicationRootIP = '\\10.95.140.14'
|
||||
Case Machine EQ 'MESTST1009' ; ApplicationRootIP = '\\10.95.140.13'
|
||||
Case Machine EQ 'MESTST1010' ; ApplicationRootIP = '\\10.95.140.13'
|
||||
Case Otherwise$ ; ApplicationRootIP = '\\10.95.140.14'
|
||||
End Case
|
||||
|
||||
Response = ApplicationRootIP
|
||||
@ -193,15 +192,34 @@ Service GetUserDataProductionPath()
|
||||
end service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// GetSpcFilesharePath
|
||||
//
|
||||
// Returns the SPC data path.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetSpcFilesharePath()
|
||||
|
||||
IsProd = Environment_Services("IsProd")
|
||||
|
||||
If IsProd EQ True$ then
|
||||
Response = '\\mesfs.infineon.com\EC_SPC_Si_Import\TXT'
|
||||
end else
|
||||
Path = Environment_Services('GetApplicationRootPath'):'\SPC_Data'
|
||||
MakeDirSuccess = Utility("MAKEDIR", Path)
|
||||
Response = Path
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// GetSPCDataPath
|
||||
//
|
||||
// Returns the SPC data path.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetSPCDataPath()
|
||||
// Change later to use IsProd()
|
||||
Machine = Environment_Services("GetServer")
|
||||
IsProd = Machine _NEC "messa012" and Machine _NEC "MESTST1010" and Machine _NEC "MESTST1009"
|
||||
|
||||
IsProd = Environment_Services("IsProd")
|
||||
|
||||
If IsProd EQ True$ then
|
||||
Response = '\\messa04ec.infineon.com\OI_SPC_Data_Transfer'
|
||||
@ -210,6 +228,7 @@ Service GetSPCDataPath()
|
||||
MakeDirSuccess = Utility("MAKEDIR", Path)
|
||||
Response = Path
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
@ -220,13 +239,7 @@ end service
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetMetrologyViewerURL()
|
||||
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ProductionPath = 'http://messa010ec.ec.local/'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ProductionPath = 'http://messa010ec.infineon.com/'
|
||||
* End Case
|
||||
ProductionPath = 'http://messa010ec.infineon.com/'
|
||||
Response = ProductionPath
|
||||
|
||||
end service
|
||||
@ -239,14 +252,8 @@ end service
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetWaferMapProductionPath()
|
||||
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ProductionPath = '\\messv02ecc1.ec.local\EC_Metrology_Si\MetrologyAttachments\TencorRunData'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ProductionPath = '\\mesfs.infineon.com\EC_Metrology_Si\MetrologyAttachments\TencorRunData'
|
||||
* End Case
|
||||
Response = ProductionPath
|
||||
ProductionPath = '\\mesfs.infineon.com\EC_Metrology_Si\MetrologyAttachments\TencorRunData'
|
||||
Response = ProductionPath
|
||||
|
||||
end service
|
||||
|
||||
@ -258,15 +265,8 @@ end service
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetMetrologyProductionPath()
|
||||
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ProductionPath = 'messv01ec.ec.local\PROD1,53959'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ProductionPath = 'messqlec1.infineon.com\PROD1,53959'
|
||||
* End Case
|
||||
|
||||
Response = ProductionPath
|
||||
ProductionPath = 'messqlec1.infineon.com\PROD1,53959'
|
||||
Response = ProductionPath
|
||||
|
||||
end service
|
||||
|
||||
@ -409,15 +409,15 @@ Service SetServerCanary()
|
||||
Message<8> = 'Error in ' : Service : ' service. Message: ' : Error
|
||||
Message<9> = ''
|
||||
|
||||
Config = ''
|
||||
Config<1> = SendUsing_Port$
|
||||
Config<3> = 25
|
||||
Config<4> = 'mailrelay-external.infineon.com' ; //'appmail.eu.infineon.com'
|
||||
Config<5> = True$
|
||||
Config<6> = 'oinotify@infineon.com'
|
||||
Config<7> = 'oinotify1'
|
||||
Config<8> = False$
|
||||
Result = SRP_Send_Mail(Message, Config)
|
||||
Config = ''
|
||||
Config<1> = SendUsing_Port$
|
||||
Config<3> = 25
|
||||
Config<4> = 'mailrelay-external.infineon.com' ; //'appmail.eu.infineon.com'
|
||||
Config<5> = True$
|
||||
Config<6> = 'oinotify@infineon.com'
|
||||
Config<7> = 'oinotify1'
|
||||
Config<8> = False$
|
||||
Result = SRP_Send_Mail(Message, Config)
|
||||
end
|
||||
|
||||
Unlock hSysLists, ServiceKeyID else Null
|
||||
@ -444,38 +444,24 @@ end service
|
||||
Service GetSQLScrapeConnectionString()
|
||||
|
||||
Machine = Environment_Services('GetServer')
|
||||
* Domain = Active_Directory_Services('GetComputerDomain')
|
||||
Begin Case
|
||||
Case Machine = 'MESSA01EC'
|
||||
// PROD SQL Servers
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ConnectionString = 'Provider=SQLOLEDB.1;Password="0okm9ijn";Persist Security Info=True;User ID=srpadmin;Initial Catalog=LSL2SQL;Data Source=10.95.128.28\PROD1,53959'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ConnectionString = 'Provider=SQLOLEDB.1;Password=0okm9ijn;Persist Security Info=True;User ID=srpadmin;Initial Catalog=LSL2SQL;Data Source=MESSQLEC1.infineon.com\PROD1,53959'
|
||||
* End Case
|
||||
ConnectionString = 'Provider=MSOLEDBSQL.1;Password=0okm9ijn;Persist Security Info=True;User ID=srpadmin;Initial Catalog=LSL2SQL;Data Source=MESSQLEC1.infineon.com\PROD1,53959;Initial File Name="";Trust Server Certificate=True;Server SPN="";Authentication="";Access Token=""'
|
||||
Case Machine = 'MESTSA01EC'
|
||||
// DEV SQL Servers
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ConnectionString = 'Provider=SQLOLEDB.1;Password=XygMK3m92mMEj#$;Persist Security Info=True;User ID=srpadmin;Initial Catalog=LSL2SQL;Data Source=10.95.128.27\TEST1,50572'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ConnectionString = 'Provider=SQLOLEDB.1;Password=Fisql2023!;Persist Security Info=True;User ID=fisql;Initial Catalog=LSL2SQL;Data Source=10.95.140.27\TEST1,50572'
|
||||
* End Case
|
||||
ConnectionString = 'Provider=MSOLEDBSQL.1;Password=Fisql2023!;Persist Security Info=True;User ID=fisql;Initial Catalog=LSL2SQL;Data Source=10.95.140.27\TEST1,50572;Initial File Name="";Trust Server Certificate=True;Server SPN="";Authentication="";Access Token=""'
|
||||
Case Otherwise$
|
||||
// Default to DEV SQL Servers just in case
|
||||
* Begin Case
|
||||
* Case Domain _EQC 'ec.local'
|
||||
* ConnectionString = 'Provider=SQLOLEDB.1;Password=XygMK3m92mMEj#$;Persist Security Info=True;User ID=srpadmin;Initial Catalog=LSL2SQL;Data Source=10.95.128.27\TEST1,50572'
|
||||
* Case Domain _EQC 'infineon.com'
|
||||
ConnectionString = 'Provider=SQLOLEDB.1;Password=Fisql2023!;Persist Security Info=True;User ID=fisql;Initial Catalog=LSL2SQL;Data Source=10.95.140.27\TEST1,50572'
|
||||
* End Case
|
||||
ConnectionString = 'Provider=MSOLEDBSQL.1;Password=Fisql2023!;Persist Security Info=True;User ID=fisql;Initial Catalog=LSL2SQL;Data Source=10.95.140.27\TEST1,50572;Initial File Name="";Trust Server Certificate=True;Server SPN="";Authentication="";Access Token=""'
|
||||
End Case
|
||||
Response = ConnectionString
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetUserDesktopPath()
|
||||
|
||||
Response = ''
|
||||
UserRootPath = ''
|
||||
UserName = RTI_GetNetworkUserName()
|
||||
@ -488,6 +474,50 @@ Service GetUserDesktopPath()
|
||||
If UserName NE '' then
|
||||
Response = RootPath : UserName : '\Desktop\'
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetTempPath()
|
||||
|
||||
TempDirectory = Str(\00\, 1024)
|
||||
GetTempPath(Len(TempDirectory), TempDirectory)
|
||||
Convert \00\ to '' in TempDirectory
|
||||
Response = TempDirectory
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetMonaResource()
|
||||
|
||||
If Environment_Services("IsProd") then
|
||||
Response = "OPENINSIGHT_MES_OP_FE"
|
||||
end else
|
||||
Response = "OPENINSIGHT_MES_OP_FE_DEV"
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetMonInBufferedWorkerApiUrl()
|
||||
|
||||
If Environment_Services("IsProd") then
|
||||
Response = "https://messa014.infineon.com:7851"
|
||||
end else
|
||||
Response = "https://mestsa008.infineon.com:7851"
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetProveInApiUrl()
|
||||
|
||||
If Environment_Services("IsProd") then
|
||||
Response = "https://messa014.infineon.com:8851"
|
||||
end else
|
||||
Response = "https://mestsa008.infineon.com:8851"
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
@ -497,8 +527,3 @@ end service
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user