sub atCust_CreateLogEntry {
my($session, $entity, $timestamp, $action,
$state, $login, $fullname, $groups) = @_;
# Remarque : Cet exemple ne permet pas d'enregistrer
# quelles zones ont réellement été changées.
return "AuditTrail: " . $timestamp . $action . $state .
$login . $fullname . $groups . "\n**********\n";
}