ef6ac0d18c
+ harbour/source/rdd/usrrdd/example/exlog.prg
+ harbour/source/rdd/usrrdd/rdds/logrdd.prg
* harbour/source/rdd/usrrdd/rdds/Makefile
+ Added new LOGRDD rdd file and related example
; NOTE: A simple RDD which introduce logging to file. It inheriths from
any existent RDD but if you write / replace / delete something
on tables it writes changes in a log file.
It needs to inherit a standard RDD to which it adds logging
capabilities.
Related functions:
hb_LogRddInherit() -> <cRDDName>
REQUESTED - It must returns the standard RDD name to be inherited.
This function HAVE to be defined from user in application.
hb_LogRddLogFileName( [<cFileName>] ) -> <cOldFileName>
OPTIONAL - Set/Get logging file name (default "changes.log").
hb_LogRddTag( [<cTag>] ) -> <cOldTag>
OPTIONAL - Set/Get Tag string added in each log line.
(default COMPUTERNAME\UserName)
hb_LogRddActive( [<lActive>] ) -> <lOldActive>
OPTIONAL - Set/Get logging active status (default .F.).
45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
/*
|
|
* $Id: exfcm.prg 9551 2008-10-05 18:13:15Z vszakats $
|
|
*/
|
|
|
|
#include "dbinfo.ch"
|
|
|
|
// Request for LOGRDD rdd driver
|
|
REQUEST LOGRDD
|
|
|
|
// Here put Request for RDD you want to inherit then add
|
|
// function hb_LogRddInherit() (see at bottom)
|
|
REQUEST DBFCDX
|
|
|
|
PROCEDURE Main()
|
|
|
|
// Set LOGRDD as default RDD otherwise I have to set explicitly use
|
|
// with DRIVER option
|
|
RDDSetDefault( "LOGRDD" )
|
|
// Adding Memofile Info
|
|
rddInfo( RDDI_MEMOVERSION, DB_MEMOVER_CLIP, "LOGRDD" )
|
|
|
|
// Define Log File Name and position
|
|
hb_LogRddLogFileName( "logs\changes.log" )
|
|
// Define Tag to add for each line logged
|
|
hb_LogRddTag( NETNAME() + "\" + hb_USERNAME() )
|
|
// Activate Logging, it can be stopped/started at any moment
|
|
hb_LogRddActive( .T. )
|
|
|
|
// Start program logic
|
|
|
|
// Open a table with logging (default RDD is LOGRDD)
|
|
USE test
|
|
field->name := "Francesco"
|
|
CLOSE
|
|
|
|
// Open a table without logging
|
|
USE test DRIVER "DBFCDX"
|
|
APPEND BLANK
|
|
field->name := "Francesco"
|
|
|
|
RETURN
|
|
|
|
FUNCTION hb_LogRddInherit()
|
|
RETURN "DBFCDX"
|