From 3345323db92930ef4443ce5fd64196f6a8169f75 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 24 Sep 2007 07:18:51 +0000
Subject: [PATCH] indicate when the delay mail was processed

---
 delay_mail | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/delay_mail b/delay_mail
index 4713b53..7f8a5b3 100755
--- 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}) {
-- 
2.39.5