Initial commit with current state
This commit is contained in:
264
utils.prg
Normal file
264
utils.prg
Normal file
@@ -0,0 +1,264 @@
|
||||
*-- utils.prg - Utilitare pentru GoMag API
|
||||
*-- Functii pentru citirea/scrierea fisierelor INI si alte utilitare
|
||||
*-- Autor: Claude AI
|
||||
*-- Data: 27.08.2025
|
||||
|
||||
*-- Functie pentru citirea fisierelor INI private
|
||||
*-- Returneaza valoarea din sectiunea si intrarea specificata sau blank daca nu e gasita
|
||||
FUNCTION ReadPini
|
||||
PARAMETERS cSection, cEntry, cINIFile
|
||||
LOCAL cDefault, cRetVal, nRetLen
|
||||
|
||||
cDefault = ""
|
||||
cRetVal = SPACE(255)
|
||||
nRetLen = LEN(cRetVal)
|
||||
|
||||
DECLARE INTEGER GetPrivateProfileString IN WIN32API ;
|
||||
STRING cSection, ;
|
||||
STRING cEntry, ;
|
||||
STRING cDefault, ;
|
||||
STRING @cRetVal, ;
|
||||
INTEGER nRetLen, ;
|
||||
STRING cINIFile
|
||||
|
||||
nRetLen = GetPrivateProfileString(cSection, ;
|
||||
cEntry, ;
|
||||
cDefault, ;
|
||||
@cRetVal, ;
|
||||
nRetLen, ;
|
||||
cINIFile)
|
||||
|
||||
RETURN LEFT(cRetVal, nRetLen)
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru scrierea in fisierele INI private
|
||||
*-- Returneaza .T. daca e successful, .F. daca nu
|
||||
FUNCTION WritePini
|
||||
PARAMETERS cSection, cEntry, cValue, cINIFile
|
||||
LOCAL nRetVal
|
||||
|
||||
DECLARE INTEGER WritePrivateProfileString IN WIN32API ;
|
||||
STRING cSection, ;
|
||||
STRING cEntry, ;
|
||||
STRING cValue, ;
|
||||
STRING cINIFile
|
||||
|
||||
nRetVal = WritePrivateProfileString(cSection, ;
|
||||
cEntry, ;
|
||||
cValue, ;
|
||||
cINIFile)
|
||||
|
||||
RETURN nRetVal = 1
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru incarcarea tuturor setarilor din fisierul INI
|
||||
FUNCTION LoadSettings
|
||||
PARAMETERS cINIFile
|
||||
LOCAL loSettings
|
||||
|
||||
*-- Cream un obiect pentru toate setarile
|
||||
loSettings = CREATEOBJECT("Empty")
|
||||
|
||||
*-- Sectiunea API
|
||||
ADDPROPERTY(loSettings, "ApiBaseUrl", ReadPini("API", "ApiBaseUrl", cINIFile))
|
||||
ADDPROPERTY(loSettings, "OrderApiUrl", ReadPini("API", "OrderApiUrl", cINIFile))
|
||||
ADDPROPERTY(loSettings, "ApiKey", ReadPini("API", "ApiKey", cINIFile))
|
||||
ADDPROPERTY(loSettings, "ApiShop", ReadPini("API", "ApiShop", cINIFile))
|
||||
ADDPROPERTY(loSettings, "UserAgent", ReadPini("API", "UserAgent", cINIFile))
|
||||
ADDPROPERTY(loSettings, "ContentType", ReadPini("API", "ContentType", cINIFile))
|
||||
|
||||
*-- Sectiunea PAGINATION
|
||||
ADDPROPERTY(loSettings, "Limit", VAL(ReadPini("PAGINATION", "Limit", cINIFile)))
|
||||
|
||||
*-- Sectiunea OPTIONS
|
||||
ADDPROPERTY(loSettings, "GetProducts", ReadPini("OPTIONS", "GetProducts", cINIFile) = "1")
|
||||
ADDPROPERTY(loSettings, "GetOrders", ReadPini("OPTIONS", "GetOrders", cINIFile) = "1")
|
||||
|
||||
*-- Sectiunea FILTERS
|
||||
ADDPROPERTY(loSettings, "OrderDaysBack", VAL(ReadPini("FILTERS", "OrderDaysBack", cINIFile)))
|
||||
|
||||
RETURN loSettings
|
||||
ENDFUNC
|
||||
|
||||
*-- Test conectivitate internet
|
||||
FUNCTION TestConnectivity
|
||||
LOCAL loHttp, llResult
|
||||
|
||||
llResult = .T.
|
||||
|
||||
TRY
|
||||
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
|
||||
loHttp.Open("GET", "https://www.google.com", .F.)
|
||||
loHttp.SetTimeouts(5000, 5000, 5000, 5000)
|
||||
loHttp.Send()
|
||||
|
||||
IF loHttp.Status != 200
|
||||
llResult = .F.
|
||||
ENDIF
|
||||
|
||||
CATCH
|
||||
llResult = .F.
|
||||
ENDTRY
|
||||
|
||||
loHttp = NULL
|
||||
RETURN llResult
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru codificare URL
|
||||
FUNCTION UrlEncode
|
||||
PARAMETERS tcString
|
||||
|
||||
LOCAL lcResult, lcChar, lnI
|
||||
|
||||
lcResult = ""
|
||||
|
||||
FOR lnI = 1 TO LEN(tcString)
|
||||
lcChar = SUBSTR(tcString, lnI, 1)
|
||||
|
||||
DO CASE
|
||||
CASE ISALPHA(lcChar) OR ISDIGIT(lcChar) OR INLIST(lcChar, "-", "_", ".", "~")
|
||||
lcResult = lcResult + lcChar
|
||||
OTHERWISE
|
||||
lcResult = lcResult + "%" + RIGHT("0" + TRANSFORM(ASC(lcChar), "@0"), 2)
|
||||
ENDCASE
|
||||
ENDFOR
|
||||
|
||||
RETURN lcResult
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru verificarea existentei fisierului INI
|
||||
FUNCTION CheckIniFile
|
||||
PARAMETERS cINIFile
|
||||
LOCAL llExists
|
||||
|
||||
TRY
|
||||
llExists = FILE(cINIFile)
|
||||
CATCH
|
||||
llExists = .F.
|
||||
ENDTRY
|
||||
|
||||
RETURN llExists
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru crearea unui fisier INI implicit cu setari de baza
|
||||
FUNCTION CreateDefaultIni
|
||||
PARAMETERS cINIFile
|
||||
LOCAL llSuccess
|
||||
|
||||
llSuccess = .T.
|
||||
|
||||
TRY
|
||||
*-- Sectiunea API
|
||||
WritePini("API", "ApiBaseUrl", "https://api.gomag.ro/api/v1/product/read/json?enabled=1", cINIFile)
|
||||
WritePini("API", "OrderApiUrl", "https://api.gomag.ro/api/v1/order/read/json", cINIFile)
|
||||
WritePini("API", "ApiKey", "YOUR_API_KEY_HERE", cINIFile)
|
||||
WritePini("API", "ApiShop", "https://yourstore.gomag.ro", cINIFile)
|
||||
WritePini("API", "UserAgent", "Mozilla/5.0", cINIFile)
|
||||
WritePini("API", "ContentType", "application/json", cINIFile)
|
||||
|
||||
*-- Sectiunea PAGINATION
|
||||
WritePini("PAGINATION", "Limit", "100", cINIFile)
|
||||
|
||||
*-- Sectiunea OPTIONS
|
||||
WritePini("OPTIONS", "GetProducts", "1", cINIFile)
|
||||
WritePini("OPTIONS", "GetOrders", "1", cINIFile)
|
||||
|
||||
*-- Sectiunea FILTERS
|
||||
WritePini("FILTERS", "OrderDaysBack", "7", cINIFile)
|
||||
|
||||
CATCH
|
||||
llSuccess = .F.
|
||||
ENDTRY
|
||||
|
||||
RETURN llSuccess
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru initializarea logging-ului
|
||||
FUNCTION InitLog
|
||||
PARAMETERS cBaseName
|
||||
LOCAL lcLogFile, lcStartTime, lcLogHeader, lcLogDir
|
||||
|
||||
*-- Cream directorul log daca nu existe
|
||||
lcLogDir = gcAppPath + "log"
|
||||
IF !DIRECTORY(lcLogDir)
|
||||
MKDIR (lcLogDir)
|
||||
ENDIF
|
||||
|
||||
*-- Generam numele fisierului log cu timestamp in directorul log
|
||||
lcStartTime = DTOS(DATE()) + "_" + STRTRAN(TIME(), ":", "")
|
||||
lcLogFile = lcLogDir + "\" + cBaseName + "_" + lcStartTime + ".log"
|
||||
|
||||
*-- Header pentru log
|
||||
lcLogHeader = "[" + TIME() + "] [START] === GoMag Sync Started ===" + CHR(13) + CHR(10)
|
||||
lcLogHeader = lcLogHeader + "[" + TIME() + "] [INFO ] Date: " + DTOC(DATE()) + " | VFP: " + VERSION() + CHR(13) + CHR(10)
|
||||
|
||||
*-- Cream fisierul log
|
||||
STRTOFILE(lcLogHeader, lcLogFile)
|
||||
|
||||
RETURN lcLogFile
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru logging cu nivel si timestamp
|
||||
FUNCTION LogMessage
|
||||
PARAMETERS cMessage, cLevel, cLogFile
|
||||
LOCAL lcTimeStamp, lcLogEntry, lcExistingContent
|
||||
|
||||
*-- Setam nivel implicit daca nu e specificat
|
||||
IF EMPTY(cLevel)
|
||||
cLevel = "INFO "
|
||||
ELSE
|
||||
*-- Formatam nivelul pentru a avea 5 caractere
|
||||
cLevel = LEFT(cLevel + " ", 5)
|
||||
ENDIF
|
||||
|
||||
*-- Cream timestamp-ul
|
||||
lcTimeStamp = TIME()
|
||||
|
||||
*-- Formatam mesajul pentru log
|
||||
lcLogEntry = "[" + lcTimeStamp + "] [" + cLevel + "] " + cMessage + CHR(13) + CHR(10)
|
||||
|
||||
*-- Adaugam la fisierul existent
|
||||
lcExistingContent = ""
|
||||
IF FILE(cLogFile)
|
||||
lcExistingContent = FILETOSTR(cLogFile)
|
||||
ENDIF
|
||||
|
||||
STRTOFILE(lcExistingContent + lcLogEntry, cLogFile)
|
||||
|
||||
RETURN .T.
|
||||
ENDFUNC
|
||||
|
||||
*-- Functie pentru inchiderea logging-ului cu statistici
|
||||
FUNCTION CloseLog
|
||||
PARAMETERS nStartTime, nProductsCount, nOrdersCount, cLogFile
|
||||
LOCAL lcEndTime, lcDuration, lcStatsEntry
|
||||
|
||||
lcEndTime = TIME()
|
||||
*-- Calculam durata in secunde
|
||||
nDuration = SECONDS() - nStartTime
|
||||
|
||||
*-- Formatam statisticile finale
|
||||
lcStatsEntry = "[" + lcEndTime + "] [END ] === GoMag Sync Completed ===" + CHR(13) + CHR(10)
|
||||
lcStatsEntry = lcStatsEntry + "[" + lcEndTime + "] [STATS] Duration: " + TRANSFORM(INT(nDuration)) + "s"
|
||||
|
||||
IF nProductsCount > 0
|
||||
lcStatsEntry = lcStatsEntry + " | Products: " + TRANSFORM(nProductsCount)
|
||||
ENDIF
|
||||
|
||||
IF nOrdersCount > 0
|
||||
lcStatsEntry = lcStatsEntry + " | Orders: " + TRANSFORM(nOrdersCount)
|
||||
ENDIF
|
||||
|
||||
lcStatsEntry = lcStatsEntry + CHR(13) + CHR(10)
|
||||
|
||||
*-- Adaugam la log
|
||||
LOCAL lcExistingContent
|
||||
lcExistingContent = ""
|
||||
IF FILE(cLogFile)
|
||||
lcExistingContent = FILETOSTR(cLogFile)
|
||||
ENDIF
|
||||
|
||||
STRTOFILE(lcExistingContent + lcStatsEntry, cLogFile)
|
||||
|
||||
RETURN .T.
|
||||
ENDFUNC
|
||||
Reference in New Issue
Block a user