#!/usr/bin/perl
# log_parser.pl
# Functions for parsing this module's logs
# STTA Rev. 1.3 Copyright (c) 2001-2004 Jesús Pérez Lorenzo  --- license GNU GPL 
# stta: (@#) 1.31051043346- [2004_01_29_102036]
# debug=4 is for developers and will dump object-types vars !!!

$parse_webmin_log=true;
require 'stta-lib.pl'; 
use Net::LDAP::Util qw(ldap_error_name ldap_error_text);
 
# parse_webmin_log(user, script, action, type, object, &params)
# Converts logged information from this module into human-readable form
sub parse_webmin_log
{
    # This function has been migrate to "html-lib.pl" as can be used for reports
    # and others calls to get error info on pages ... so we have here a hook
    # to keep webmin conventions ...
    # $stta_sid is a global value... so webmin_log has been altered in ./web-lib.pl
    # $cginame is need it to know  processing mode: view or search

    local ($user, $script, $action, $type, $object, $p) = @_;
    $cginame= $0 =~ /([^\/]+)$/ ? $1 : '-';
    $stta_sid=$main::in{'id'};
    parse_webminlog($user, $script, $action, $type, $object, $p)
}
1;  # Return true
