]> git.llucax.com Git - software/sercom-old.git/blob - src/T/log.php
Bugfix (se corrige bien el bug del from).
[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                 sprintf('% 8s', substr(basename($argv[0]), 3)), getmypid(),
20                 loglevel2str($level), $str));
21     }
22 }
23
24 function loglevel2str($level) {
25     if ($level == CRITICAL) {
26         return 'CRITICAL';
27     }
28     if ($level == ERROR) {
29         return 'ERROR';
30     }
31     if ($level == WARNING) {
32         return 'WARNING';
33     }
34     if ($level == INFO) {
35         return 'INFO';
36     }
37     if ($level == DEBUG) {
38         return 'DEBUG';
39     }
40     return 'UNKNOWN!';
41 }
42
43 ?>