make copyright on startup show this year

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 5fc41ef724751b169e86b89e2feb3f85f725bff4..a9b645095364f997e5279731288fed568e35ce64 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -346,7 +346,9 @@ $build = "$build.$branch" if $branch;
 Log('cluster', "DXSpider V$version, build $build started");
 
 # banner
-dbg("Copyright (c) 1998-2002 Dirk Koopman G1TLH");
+my ($year) = (gmtime)[5];
+$year += 1900;
+dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
 dbg("DXSpider Version $version, build $build started");
 
 # load Prefixes