* retreive cIniline with cGroupName of cLineType
Parameter cGroupName, cLineType
* example use: cLastEmailSent=iniget("[SENDMAIL_PROMOTIONS]", "LastDateTSubject")
PRIVATE ALL
#DEFINE cInifile "EMAIL.INI"
nSubstr = Len(cLineType) + 2
cLineTypeTrim = ALLT(UPPER(cLineType))
cLineVal = ""

IF FILE (cIniFile)
  FileHandle = FOPEN(cIniFile, 0)
  lCategoryFound = .F.
  lLineTypeFound = .F.
  DO WHILE !FEOF(FileHandle)
    cLineText = FGETS(FileHandle)
    IF "[" $ LEFT(cLineText, 1)
      lCategoryFound = !"[" $ cLineText && this will switch off the SENDMAIL_PROMOTIONS category if it is another one
      lCategoryFound = cGroupName $ cLineText
    ENDIF
    IF lCategoryFound AND cLineTypeTrim $ UPPER(LEFT(cLineText, nSubstr))
      cLineVal = ALLT(SUBSTR(cLineText, nSubstr))
      lLineTypeFound = .T.
    ENDIF

    IF lCategoryFound AND lLineTypeFound
      EXIT && got everything - no need to parse further
    ENDIF
  ENDDO
  FCLOSE(FileHandle)
ELSE && create an ini file since none exists
  FileHandle = FCREATE(cInifile)
  FPUTS(FileHandle, "[SENDMAIL_PROMOTIONS]") && this is our own special category
  FCLOSE(FileHandle)
  RETURN ""
ENDIF

RETURN cLineVal