blob: 34e9e272689ee8902fe2d3cc5379031ac33c3a7a (
plain)
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
|
$NetBSD: patch-ac,v 1.2 2011/01/17 12:52:15 he Exp $
Fix a "year 2000" bug, and fix this to work without warning
with newer perl.
--- sumtitra.orig 1995-10-17 13:44:48.000000000 +0000
+++ sumtitra
@@ -83,7 +83,7 @@ $DATE'startday = $startday;
$endday = $startday + $numdays - 1;
# Find which week to sum for
-$week = shift(ARGV);
+$week = shift(@ARGV);
$oneday = 24 * 60 * 60;
if (!$week) {
# Default is last week.
@@ -150,7 +150,7 @@ if ($nameadd) {
} else {
print "$name\n";
}
-print $word{"banner"}, " $week 19$year\n";
+print $word{"banner"}, " $week ", 1900+$year, "\n";
printf "%-${projwidth}.${projwidth}s%6s!", $word{"project"}, $word{"tot"};
for ($startday..$endday) {
|
