bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't put $ago setting in cached output.

Browse source 
That changes ever time.

Also, increase time.
This commit is contained in:
Bradley M. Kuhn 2015-09-08 10:10:11 -07:00
parent c2bbeaf556
commit 4a66d940c9
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
urgent-mail-check.plx
View file

@ -141,14 +141,13 @@ foreach my $summary (@{$summaries}) {
$ago = "" if not defined $ago; $ago = "" if not defined $ago;
$subject =~ s/^\s*Re\s*:\s*//i; $subject =~ s/^\s*Re\s*:\s*//i;
my $record = "$ago ago from $who about $subject"; my $record = "$who about $subject";
$output .= "\${font Inconsolata:size=13}$record\n"; $output .= "\${font Inconsolata:size=13}$ago ago from $record\n";
my $alreadyDone = 0; my $alreadyDone = 0;
foreach my $key (keys %$info) { foreach my $key (keys %$info) {
print "Testing: \"$key\": \"$info->{$key}\" vs \"$record\"\n";
$alreadyDone = (($info->{$key} eq $record) and $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; last if $alreadyDone;
} }
unless ($alreadyDone) { unless ($alreadyDone) {