Project -company web page with DBF database

11-7-2021
 
I start transferring my web page from WordPress to mod harbour and DBF.
I document the work for myself. In case someone is interested, I put the notes online, too.
I post the link later. Have a nice Sunday.

 


 

Flowchart - web page

 
 

Controller

Controller updates static variables which are read by the program.


For comfort I add a logging function.

logging( string )

function logging( cText )

    local cLog
    local cPRGPath := STRTRAN( HB_GETENV( 'PRGPATH'"/""\" )
    
    cLog := memoread( cPRGPath  "\prg.log")
    cLog    =  ALLTRIM( str(procline(1)) )   "    "    cText  CRLF
    MEMOWRIT( cPRGPath  "\prg.log" , cLog, .f. ) 
 return nil
 
 //----------------------------------------------------------------//
 

 


 
 
 
 
 
 
 
 
Now for testing I add manually some page content.
If lDefault is false then page content is displayed otherwise default page.
 
 
<hr>
We copy the page content from our existing page.
With F12 we open DevTools and copy HTML we want.
Then paste the code into a DBF-memofield.
 
 
 
 
 
Check if "controller" works
 
 
 
DBF file
 
 
 
Result