]> git.llucax.com Git - software/sercom-old.git/blob - src/T/log.php
Bugfix en niveles de log.
[software/sercom-old.git] / src / T / log.php
1 <?php // vim: set binary noeol et sw=4 sts=4:
2
3 require_once 'T/logconstants.php';
4
5 function logserr($str, $level = ERROR) {
6     global $php_errormsg;
7     logs("$str ($php_errormsg)", $level);
8 }
9
10 function logsdie($str, $level = CRITICAL) {
11     logs($str, $level);
12     die("$str.\n");
13 }
14
15 function logs($str, $level = INFO) {
16     global $LOGLEVEL, $LOGFP, $argv;
17     if ($str and ($LOGLEVEL & $level) == $level) {
18         fputs($LOGFP, sprintf("%s %s[%d] %-8s %s\n", strftime('%c'),
19                 basename($argv[0]), getmypid(), loglevel2str($level), $str));
20     }
21 }
22
23 function loglevel2str($level) {
24     if ($level == CRITICAL) {
25         return 'CRITICAL';
26     }
27     if ($level == ERROR) {
28         return 'ERROR';
29     }
30     if ($level == WARNING) {
31         return 'WARNING';
32     }
33     if ($level == INFO) {
34         return 'INFO';
35     }
36     if ($level == DEBUG) {
37         return 'DEBUG';
38     }
39     return 'UNKNOWN!';
40 }
41
42 ?>