Don't prefix logs by a timestamp, that's a syslog thing.

diff --git a/imapsync b/imapsync
index a759250c6e7664ae980b6e81e1c3497adfafa8c2..f80106d608ed5b557c13e4694d6333fd9754affc 100755 (executable)
--- a/imapsync
+++ b/imapsync
@@ -28,7 +28,6 @@ use Getopt::Long qw/:config posix_default no_ignore_case gnu_compat
 
 use List::Util 'first';
 use DBI ();
-use POSIX 'strftime';
 
 use lib 'lib';
 use Net::IMAP::Sync qw/read_config compact_set $IMAP_text $IMAP_cond/;
@@ -169,9 +168,7 @@ $DBH->do('PRAGMA foreign_keys = ON');
 sub msg($@) {
     my $name = shift;
     return unless @_;
-    my $prefix = strftime "%b %e %H:%M:%S", localtime;
-    $prefix .= " $name" if defined $name;
-    $prefix .= ': ';
+    my $prefix = defined $name ? "$name: " : '';
     print STDERR $prefix, @_, "\n";
 }
 

diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm
index 11bfba4a76a8e197c2e8de3ba71585de16b8d499..bb99dcbe15c9a1f9920ea235d31269f141285aa0 100644 (file)
--- a/lib/Net/IMAP/Sync.pm
+++ b/lib/Net/IMAP/Sync.pm
@@ -23,7 +23,6 @@ use strict;
 use Config::Tiny ();
 use List::Util 'first';
 use Socket 'SO_KEEPALIVE';
-use POSIX 'strftime';
 
 use Exporter 'import';
 BEGIN {
@@ -401,8 +400,7 @@ sub DESTROY($) {
 sub log($@) {
     my $self = shift;
     return unless @_;
-    my $prefix = strftime "%b %e %H:%M:%S", localtime;
-    $prefix .= " $self->{name}" if defined $self->{name};
+    my $prefix = defined $self->{name} ? $self->{name} : '';
     $prefix .= "($self->{_SELECTED})" if $self->{_STATE} eq 'SELECTED';
     $prefix .= ': ';
     $self->{STDERR}->say($prefix, @_);