make copyright on startup show this year

diff --git a/Changes b/Changes
index 9d6fb71d615b80f2b7bed0272162a7ed447cc7b0..a19b941781f3d1fd255b764ef38931f69e9c87c5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+27May05=======================================================================
+1. change copyright in dbg message at startup.
 25May05=======================================================================
 1. Added a means to import a script of arbitrary commands to allow external
 programs to do stuff.

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