28 lines
1.1 KiB
Perl
Executable File
28 lines
1.1 KiB
Perl
Executable File
#!/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, ¶ms)
|
|
# 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
|