aboutsummaryrefslogtreecommitdiffstats
path: root/contrib
Commit message (Collapse)AuthorAgeFilesLines
* Joshua Crawford asked to change his mail address.Matthias Andree2006-04-271-1/+1
| | | | svn path=/branches/BRANCH_6-3/; revision=4811
* Mention the latest fix is actually a bugfix.Matthias Andree2006-04-271-0/+2
| | | | svn path=/branches/BRANCH_6-3/; revision=4810
* PopDel.py was revised by Joshua Crawford to display the From: address and Matthias Andree2006-04-273-26/+42
| | | | | | | list every email, even if it has no Subject: header; and not delete the wrong message in the presence of mail without Subject: headers. svn path=/branches/BRANCH_6-3/; revision=4809
* Update links to fetchmail home page.Matthias Andree2005-04-271-1/+1
| | | | svn path=/trunk/; revision=4045
* Include manual from fetchmail-6.2.5 tarball.Matthias Andree2004-11-161-0/+43
| | | | svn path=/trunk/; revision=4009
* Merge Joshua Crawford's update, posted to fetchmail-friends 2004-11-15.Matthias Andree2004-11-161-23/+79
| | | | svn path=/trunk/; revision=4008
* Update mold_remover to version 0.3, from http://sf.net/projects/moldremoverRob Funk2004-08-242-5/+54
| | | | svn path=/trunk/; revision=3933
* Add files from ESR's dev directory that weren't under version controlRob Funk2004-06-0831-0/+3143
| | | | svn path=/trunk/; revision=3881
* Range support.Eric S. Raymond2003-01-171-45/+44
| | | | svn path=/trunk/; revision=3791
* Initial revisionEric S. Raymond2003-01-161-0/+103
| | | | svn path=/trunk/; revision=3786
* Another update from Kent Robotti.Eric S. Raymond1999-04-171-62/+29
| | | | svn path=/trunk/; revision=2434
* Updated.Eric S. Raymond1999-03-091-21/+24
| | | | svn path=/trunk/; revision=2408
* Initial revisionEric S. Raymond1999-03-091-0/+161
svn path=/trunk/; revision=2407
generated by cgit v1.2.3 (git 2.39.1) at 2025-10-01 20:24:22 +0000
"Jan", 0, "Feb", 31, "Mar", 59, "Apr", 90, "May", 120, "Jun", 151, "Jul", 181, "Aug", 212, "Sep", 243, "Oct", 273, "Nov", 304, "Dec", 334, ); sub day_offset { my($datestring) = @_; my($wday, $month, $day, $time, $zone, $year) = split(' ', $datestring); my($jdate); # We don't deal with leap years here because the baseline day is after # the last leap year (1996) and there's a long time before the next # one (2004). $jdate = ($year - 1996) * 365; $jdate += $month_offsets{$month}; $jdate += ($day - 1); # Baseline day for the size data was Fri Oct 25 23:02:26 EDT 1996 $jdate -= 297; return($jdate); } open(NEWS, "NEWS"); $timestamp = `date`; chop $timestamp; $release = "unknown"; $lines = "unknown"; $date = "unknown"; $jdate = "unknown"; print <<EOF; # Population data from fetchmail NEWS file, as of $timestamp. # # Output other than pass-through % lines is tab-separated fields. # Field 1: release ID # Field 2: count of source lines under version control # Field 3: count of fetchmail-friends subscribers # Field 4: count of fetchmail-announce subscribers # Field 5: total subscribers to both lists # Field 6: date of release (days since first datum) # Field 7: date of release (RFC822 date format) # EOF while ($_ = <NEWS>) { my($sum); if (/^%/) { print $_; } elsif (/^fetchmail-([^ ]*) \(([^)]+)\)(, [0-9]* lines)?:/) { $release = $1; $date = $2; $jdate = &day_offset($date); if ($3) { $lines = substr($3, 2, length($3) - 8); } else { $lines = 'na' } } elsif (/There are ([0-9]*) people on fetchmail-friends and ([0-9]*) on fetchmail-announce/) { $sum = $1 + $2; print "${release}\t${lines}\t$1\t$2\t${sum}\t${jdate}\t${date}\n"; $release = "unknown"; $date = "unknown"; } elsif (/There are ([0-9]*) people on the fetchmail-friends list./) { print "$release\t${lines}\t$1\t0\t$1\t$jdate\t$date\n"; $release = "unknown"; $date = "unknown"; } } # end