Check-in [946a950a8f]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:[MAIN] - Include System.bas in the main application file.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:946a950a8fcf57c0c7c1298404c756caea3f2780
User & Date: Administrador 2016-10-06 02:17:26
Context
2016-10-06
02:20
[SYSTEM.BAS] - Clean memory after reading the settings file content. check-in: 23a733576e user: Administrador tags: trunk
02:17
[MAIN] - Include System.bas in the main application file. check-in: 946a950a8f user: Administrador tags: trunk
02:10
[SYSTEM.BAS] - Implement the GetSettings function to retrieve the values from the settings file. [SETTINGS] - Add a blank text file to save soon the site setting values. check-in: 76aff97f21 user: Administrador tags: trunk
Changes

Changes to root/core/system.bas.

15
16
17
18
19
20
21











  'Now merge everything again
  systemDate$ = theYear$ + theMonth$ + theDay$
END FUNCTION

FUNCTION systemTime$()
  systemTime$ = TIME$
END FUNCTION


















>
>
>
>
>
>
>
>
>
>
>
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
  'Now merge everything again
  systemDate$ = theYear$ + theMonth$ + theDay$
END FUNCTION

FUNCTION systemTime$()
  systemTime$ = TIME$
END FUNCTION

FUNCTION getSettings$ (Key$)
  DIM fileContent$, keyParsed$
  fileContent$ = ReadFile$(dataPath$ + "\settings.txt")
  keyParsed$ = SplitVar$(fileContent$, Key$, CHR$(10))
  IF keyParsed$ <> "" THEN
    getSettings$ = keyParsed$
  ELSE
    getSettings$ = Key$
  END IF
END FUNCTION

Changes to root/default.bas.

18
19
20
21
22
23
24

'##############################
'Includes block
'##############################

'$INCLUDE: "core/files.bas"
'$INCLUDE: "core/strings.bas"
'$INCLUDE: "core/request.bas"








>
18
19
20
21
22
23
24
25
'##############################
'Includes block
'##############################

'$INCLUDE: "core/files.bas"
'$INCLUDE: "core/strings.bas"
'$INCLUDE: "core/request.bas"
'$INCLUDE: "core/system.bas"