From 4a66d940c9558d2bc39bded9941f604cf15539cc Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Tue, 8 Sep 2015 10:10:11 -0700 Subject: [PATCH] Don't put $ago setting in cached output. That changes ever time. Also, increase time. --- urgent-mail-check.plx | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/urgent-mail-check.plx b/urgent-mail-check.plx index eed04d4..f15191e 100755 --- a/urgent-mail-check.plx +++ b/urgent-mail-check.plx @@ -141,14 +141,13 @@ foreach my $summary (@{$summaries}) { $ago = "" if not defined $ago; $subject =~ s/^\s*Re\s*:\s*//i; - my $record = "$ago ago from $who about $subject"; - $output .= "\${font Inconsolata:size=13}$record\n"; + my $record = "$who about $subject"; + $output .= "\${font Inconsolata:size=13}$ago ago from $record\n"; my $alreadyDone = 0; foreach my $key (keys %$info) { - print "Testing: \"$key\": \"$info->{$key}\" vs \"$record\"\n"; $alreadyDone = (($info->{$key} eq $record) and - (Delta_Format(DateCalc($key, $now), 0, "%mt") < 7200)); + (Delta_Format(DateCalc($key, $now), 0, "%mt") < 14400)); last if $alreadyDone; } unless ($alreadyDone) {