From 5a5e2352c9a01f9076994915188c26c6b9036202 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:28:28 +0200 Subject: Adding upstream version 4.9.0. Signed-off-by: Daniel Baumann --- etc/countmail | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100755 etc/countmail (limited to 'etc/countmail') diff --git a/etc/countmail b/etc/countmail new file mode 100755 index 0000000..974f143 --- /dev/null +++ b/etc/countmail @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +sub countmsgs { + return -1 unless open(M, "<$mbox"); + my $inhdr = 0; + my $cl = undef; + my $msgread = 0; + my $count = 0; + while() { + if (!$inhdr && /^From\s+\S+\s+(?i:sun|mon|tue|wed|thu|fri|sat)\s+(?i:jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)\s+\d+\s/) { + $inhdr = 1; + $msgread = 0; + undef $cl; + next; + } + if ($inhdr) { + if (/^content-length:\s+(\d+)/i) { + $cl = 0+$1; + next; + } + if (/^status:\s+(\S)/i) { + $msgread = 1 unless $1 eq 'N' || $1 eq 'U'; + next; + } + if ($_ eq "\n") { + $count++ if !$msgread; + seek(M, $cl, 1) if defined $cl; + $inhdr = 0; + } + } + } + close M; + return $count; +} + +$| = 1; +$mbox = $ARGV[0] || $ENV{'MAIL'}; +$oldfmt = $ARGV[1] || "%4d "; +$newfmt = $ARGV[2] || "\005{Rk}%4d \005{-}"; + +@oldstat = stat($mbox); +if (!@oldstat) { + print "\005{Rk} ??? \005{-}\n"; + exit 1; +} +$oldcount = 0; +while(1) { + $count = countmsgs($mbox); + if ($count == -1) { + print "\005{Rk} ??? \005{-}\n"; + } elsif ($count < $oldcount || $count == 0) { + printf "$oldfmt\n", $count; + } else { + printf "$newfmt\n", $count; + } + $oldcount = $count; + while (1) { + @newstat = stat($mbox); + if (!@newstat) { + print "\005{Rk} ??? \005{-}\n"; + exit 1; + } + last if $newstat[7] != $oldstat[7] || $newstat[9] != $oldstat[9]; + sleep 1; + } + @oldstat = @newstat; +} -- cgit v1.2.3