blob: aef0a2108f3dfc63e5725a395f917870443bd4e8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
$FreeBSD$
--- monthly.pl.orig Thu Jul 17 14:24:55 2003
+++ monthly.pl Thu Jul 17 14:26:02 2003
@@ -66,11 +66,13 @@
if ($mon == 0) { $mon = 11; $year -= 1; }
else { $mon -= 1; }
+$year += 1900;
+
$LastMonth = $MoY[$mon];
$ArcName =~ s/%M/$LastMonth$year/;
-$ArcStats = '/dc/ud/www/documentroot/Admin/stats-19' . $year .
+$ArcStats = '/dc/ud/www/documentroot/Admin/stats-' . $year .
'/' . $LastMonth . '.wwwstats.html';
print "Figured out that last month was $LastMonth $year\n";
|