1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl
#
# Extract information on the fetchmail project size from the NEWS file
#
# Note: this only works if you have a news file from 5.1.1 or later --
# I didn't patch the code sizes into NEWS until then.
#
my($release, $date, $jdate);
%month_offsets = (
"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
|
