Changeset 82

Timestamp:

11/30/05 14:35:23 (19 years ago)

Author:

thauvin

Message:

• minor formatting fix

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff, 1 prop)
• bin/obsdata (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -93 +93 @@
         if ($logh) {
             printf $logh 
-                "[%s] %s %s\n", $self->loglevel($level),
+                "%-9s %s %s\n", 
+                sprintf("[%s]", $self->loglevel($level)),
                 strftime("%b %d %H:%M:%S %Y", gmtime),
                 $msg;

trunk/soft/ObsData/bin/obsdata

@@ -24 +24 @@
     logcallback => sub {
         return if($_[0] < $verbose);
-        printf("[%s] %s\n", ObsData::loglevel($_[0]), $_[1]);
+        printf("%-9s %s\n", sprintf("[%s]", ObsData::loglevel($_[0])), $_[1]);
     },
 ) or die "Can't create obsdata obj";