indicate when the delay mail was processed

diff --git a/delay_mail b/delay_mail
index 4713b53dab04d0ea037da50f3692fb820e79b1aa..7f8a5b35e4d259e5bc89ef17cf7dae7b81a28676 100755 (executable)
--- a/delay_mail
+++ b/delay_mail
@@ -166,11 +166,13 @@ if (exists $options{enqueue}) {
      my ($subject) = $email =~ /^Subject:\s*(.+)/mi;
      $subject = decode_rfc1522($subject);
      $subject =~ s/\n//g;
+     my $time = time;
      # create a queue entry
-     my $queue_fn = time . $$;
+     my $queue_fn = $time . $$;
      my $q_fh = IO::File->new("$options{queue}/$queue_fn",'w') or
          die "Unable to open $options{queue}/$queue_fn for writing";
      print {$q_fh} "delay: $delay\n";
+     print {$q_fh} "time: $time\n";
      print {$q_fh} "mailto: $options{mailto}\n";
      print {$q_fh} "entry: $queue_fn\n";
      print {$q_fh} "subject: $subject\n";
@@ -199,7 +201,8 @@ elsif ($options{list}) {
          push @queue,parse_queue_entry($entry);
      }
      for my $q_e (@queue) {
-         print "$q_e->{entry}: send $q_e->{subject} to $q_e->{mailto} at $q_e->{delay}\n";
+         $q_e->{time} ||='';
+         print "$q_e->{entry}: send $q_e->{subject} to $q_e->{mailto} at $q_e->{delay} ($q_e->{time})\n";
      }
 }
 elsif ($options{dequeue}) {