Changeset 44

Timestamp:

11/22/05 18:01:30 (19 years ago)

Author:

thauvin

Message:

• add date in log

File:

• trunk/soft/ObsData/ObsData.pm (modified) (3 diffs, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -7 +7 @@
 use Config::IniFiles;
 use DBD::SQLite;
+use POSIX qw(strftime);
 
 my @loglevel = (
@@ -72 +73 @@
     my ($self) = @_;
 
-    if (!open($self->{loghandle}, "> $self->{dir}/logs/obsdata.log")) {
+    if (!open($self->{loghandle}, ">> $self->{dir}/logs/obsdata.log")) {
         $self->loging(5, "Can't open log file %s, exiting", "$self->{dir}/logs/obsdata.log");
         return 0;
@@ -88 +89 @@
             $self->{logcallback}->($level, $msg);
         }
-        print $logh "$msg\n";
+        printf $logh 
+            "[%s] %s %s\n", $loglevel[$level] || "coin",
+            strftime("%b %d %H:%M:%S %Y", gmtime),
+            $msg;
     }
     $msg