From ca298fe5fa5a945184e385183cb8e177b5889a9d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 27 May 2005 08:07:01 +0000
Subject: [PATCH] make copyright on startup show this year

---
 Changes         | 2 ++
 perl/cluster.pl | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 9d6fb71d..a19b9417 100644
--- 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 5fc41ef7..a9b64509 100755
--- 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
-- 
2.43.0