From 40e8bb424384f2aa4f772e02cb2caedbc41525cd Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 2 Jan 2004 01:20:23 +0000 Subject: [PATCH] fix $BRANCH auto revisioning code fix year in copyright in cluster.pl --- perl/AGWMsg.pm | 2 +- perl/AnnTalk.pm | 2 +- perl/BBS.pm | 2 +- perl/BadWords.pm | 2 +- perl/Bands.pm | 2 +- perl/Buck.pm | 2 +- perl/Chain.pm | 2 +- perl/CmdAlias.pm | 2 +- perl/DB0SDX.pm | 2 +- perl/DXBearing.pm | 2 +- perl/DXChannel.pm | 2 +- perl/DXCommandmode.pm | 2 +- perl/DXConnect.pm | 2 +- perl/DXCron.pm | 2 +- perl/DXDb.pm | 2 +- perl/DXDebug.pm | 2 +- perl/DXDupe.pm | 2 +- perl/DXHash.pm | 2 +- perl/DXLog.pm | 2 +- perl/DXLogPrint.pm | 2 +- perl/DXM.pm | 2 +- perl/DXMsg.pm | 2 +- perl/DXProt.pm | 2 +- perl/DXProtout.pm | 2 +- perl/DXUser.pm | 2 +- perl/DXUtil.pm | 2 +- perl/Editable.pm | 2 +- perl/ExtMsg.pm | 2 +- perl/Filter.pm | 2 +- perl/Geomag.pm | 2 +- perl/IntMsg.pm | 2 +- perl/Julian.pm | 2 +- perl/K4UTE.pm | 2 +- perl/LRU.pm | 2 +- perl/Minimuf.pm | 2 +- perl/Mrtg.pm | 2 +- perl/Msg.pm | 2 +- perl/PC.pm | 2 +- perl/Prefix.pm | 2 +- perl/Prot.pm | 2 +- perl/QRZ.pm | 2 +- perl/QSL.pm | 2 +- perl/QXProt.pm | 4 ++-- perl/QXProt/QXI.pm | 2 +- perl/QXProt/QXP.pm | 2 +- perl/QXProt/QXR.pm | 2 +- perl/Route.pm | 2 +- perl/Route/Node.pm | 2 +- perl/Route/User.pm | 2 +- perl/Script.pm | 2 +- perl/Spot.pm | 2 +- perl/Sun.pm | 2 +- perl/Thingy.pm | 2 +- perl/Thingy/Route.pm | 2 +- perl/Timer.pm | 2 +- perl/UDPMsg.pm | 2 +- perl/USDB.pm | 2 +- perl/Verify.pm | 2 +- perl/WCY.pm | 2 +- perl/cluster.pl | 6 ++++-- 60 files changed, 64 insertions(+), 62 deletions(-) diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index f6fc5074..351fb69f 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -47,7 +47,7 @@ $total_in = $total_out = 0; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 0b564064..702ee71b 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -40,7 +40,7 @@ $filterdef = bless ([ use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/BBS.pm b/perl/BBS.pm index 9e899874..a4170a0e 100644 --- a/perl/BBS.pm +++ b/perl/BBS.pm @@ -28,7 +28,7 @@ $maxbidage = 60; # the maximum age of a stored bid use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/BadWords.pm b/perl/BadWords.pm index df6a1557..2a94f4e9 100644 --- a/perl/BadWords.pm +++ b/perl/BadWords.pm @@ -31,7 +31,7 @@ $badword = new DXHash "badword"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Bands.pm b/perl/Bands.pm index 728bb615..4b118385 100644 --- a/perl/Bands.pm +++ b/perl/Bands.pm @@ -37,7 +37,7 @@ $bandsfn = "$main::data/bands.pl"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Buck.pm b/perl/Buck.pm index 2c2fc590..e7adf4ad 100644 --- a/perl/Buck.pm +++ b/perl/Buck.pm @@ -10,7 +10,7 @@ use DXUtil; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Chain.pm b/perl/Chain.pm index 60266c75..820d7cfb 100644 --- a/perl/Chain.pm +++ b/perl/Chain.pm @@ -5,7 +5,7 @@ use Carp; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/CmdAlias.pm b/perl/CmdAlias.pm index 803f762f..f1e7d537 100644 --- a/perl/CmdAlias.pm +++ b/perl/CmdAlias.pm @@ -34,7 +34,7 @@ $localfn = "$main::localcmd/Aliases"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DB0SDX.pm b/perl/DB0SDX.pm index 174d313d..d2e38eed 100644 --- a/perl/DB0SDX.pm +++ b/perl/DB0SDX.pm @@ -11,7 +11,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXBearing.pm b/perl/DXBearing.pm index e7736f8a..c977ae22 100644 --- a/perl/DXBearing.pm +++ b/perl/DXBearing.pm @@ -23,7 +23,7 @@ $pi = 3.14159265358979; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 536e7bb3..4bc58109 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -117,7 +117,7 @@ $count = 0; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 76bfa931..64bff8e6 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -49,7 +49,7 @@ $maxbadcount = 3; # no of bad words allowed before disconnection use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXConnect.pm b/perl/DXConnect.pm index b904e14c..288f4603 100644 --- a/perl/DXConnect.pm +++ b/perl/DXConnect.pm @@ -18,7 +18,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXCron.pm b/perl/DXCron.pm index 86842058..e4301d7b 100644 --- a/perl/DXCron.pm +++ b/perl/DXCron.pm @@ -28,7 +28,7 @@ my $localfn = "$main::localcmd/crontab"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXDb.pm b/perl/DXDb.pm index a088866c..8d2673d2 100644 --- a/perl/DXDb.pm +++ b/perl/DXDb.pm @@ -51,7 +51,7 @@ $nextstream = 0; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index 416dea0a..99547647 100644 --- a/perl/DXDebug.pm +++ b/perl/DXDebug.pm @@ -28,7 +28,7 @@ $cleandays = 100; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm index 3ccb23c8..ac4dea21 100644 --- a/perl/DXDupe.pm +++ b/perl/DXDupe.pm @@ -21,7 +21,7 @@ $fn = "$main::data/dupefile"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXHash.pm b/perl/DXHash.pm index 2dcb8679..8b80ad7c 100644 --- a/perl/DXHash.pm +++ b/perl/DXHash.pm @@ -27,7 +27,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXLog.pm b/perl/DXLog.pm index f96ab44a..713d18c7 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -40,7 +40,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm index 752e72ac..444e7c5f 100644 --- a/perl/DXLogPrint.pm +++ b/perl/DXLogPrint.pm @@ -19,7 +19,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXM.pm b/perl/DXM.pm index b6d191bb..96aa1eff 100644 --- a/perl/DXM.pm +++ b/perl/DXM.pm @@ -26,7 +26,7 @@ my $fn = "$main::root/perl/Messages"; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 04ef99cb..8987d9a0 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -34,7 +34,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 67869dd5..db5bfabe 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -38,7 +38,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index b31eacdf..34419e3b 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -21,7 +21,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXUser.pm b/perl/DXUser.pm index b254ae5a..eb43c595 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -21,7 +21,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index 705e5cc6..8ae43978 100644 --- a/perl/DXUtil.pm +++ b/perl/DXUtil.pm @@ -17,7 +17,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Editable.pm b/perl/Editable.pm index f4bea483..87261dc4 100644 --- a/perl/Editable.pm +++ b/perl/Editable.pm @@ -17,7 +17,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm index f1472789..9fce5d51 100644 --- a/perl/ExtMsg.pm +++ b/perl/ExtMsg.pm @@ -23,7 +23,7 @@ use IPC::Open3; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Filter.pm b/perl/Filter.pm index 4443fc55..2403ace8 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -36,7 +36,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Geomag.pm b/perl/Geomag.pm index e74f5021..85529636 100644 --- a/perl/Geomag.pm +++ b/perl/Geomag.pm @@ -22,7 +22,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/IntMsg.pm b/perl/IntMsg.pm index a940347d..60770208 100644 --- a/perl/IntMsg.pm +++ b/perl/IntMsg.pm @@ -13,7 +13,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Julian.pm b/perl/Julian.pm index ecef2d81..a7111486 100644 --- a/perl/Julian.pm +++ b/perl/Julian.pm @@ -13,7 +13,7 @@ package Julian; use vars qw($VERSION $BRANCH @days @ldays @month); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/K4UTE.pm b/perl/K4UTE.pm index 174d313d..d2e38eed 100644 --- a/perl/K4UTE.pm +++ b/perl/K4UTE.pm @@ -11,7 +11,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/LRU.pm b/perl/LRU.pm index 30b264a5..3bc66f0b 100644 --- a/perl/LRU.pm +++ b/perl/LRU.pm @@ -28,7 +28,7 @@ use vars qw(@ISA); use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Minimuf.pm b/perl/Minimuf.pm index 31986669..6c23882c 100644 --- a/perl/Minimuf.pm +++ b/perl/Minimuf.pm @@ -48,7 +48,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Mrtg.pm b/perl/Mrtg.pm index e2d7c022..43de518e 100644 --- a/perl/Mrtg.pm +++ b/perl/Mrtg.pm @@ -16,7 +16,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Msg.pm b/perl/Msg.pm index 00569928..c36374e1 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -14,7 +14,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/PC.pm b/perl/PC.pm index 5bce28b1..69c433f4 100644 --- a/perl/PC.pm +++ b/perl/PC.pm @@ -11,7 +11,7 @@ use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Prefix.pm b/perl/Prefix.pm index 91f7c5ce..f8d00a06 100644 --- a/perl/Prefix.pm +++ b/perl/Prefix.pm @@ -21,7 +21,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Prot.pm b/perl/Prot.pm index 23de1538..57de50a8 100644 --- a/perl/Prot.pm +++ b/perl/Prot.pm @@ -9,7 +9,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/QRZ.pm b/perl/QRZ.pm index 87731185..fc524c29 100644 --- a/perl/QRZ.pm +++ b/perl/QRZ.pm @@ -12,7 +12,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/QSL.pm b/perl/QSL.pm index d7dc8b2c..7d8c008d 100644 --- a/perl/QSL.pm +++ b/perl/QSL.pm @@ -16,7 +16,7 @@ use Prefix; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/QXProt.pm b/perl/QXProt.pm index 43dbb03f..ccf7c83d 100644 --- a/perl/QXProt.pm +++ b/perl/QXProt.pm @@ -36,7 +36,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; @@ -98,7 +98,7 @@ sub normal my @par = map {/^_/ ? split(/=/,$_,2) : ()} split /,/, $rest; no strict 'refs'; - my $pkg = "Thingy::${class}"; + my $pkg = 'Thingy::' . lcfirst $class; my $t = $pkg->new(_tonode=>$tonode, _fromnode=>$fromnode, _msgid=>$msgid, _hoptime=>$newhoptime, _newdata=>$rest, _inon=>$self->{call}, diff --git a/perl/QXProt/QXI.pm b/perl/QXProt/QXI.pm index aacfae68..d884c24c 100644 --- a/perl/QXProt/QXI.pm +++ b/perl/QXProt/QXI.pm @@ -16,7 +16,7 @@ use vars qw(@ISA $VERSION $BRANCH); @ISA = qw(QXProt); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/QXProt/QXP.pm b/perl/QXProt/QXP.pm index ec9f96dc..d4b4c289 100644 --- a/perl/QXProt/QXP.pm +++ b/perl/QXProt/QXP.pm @@ -16,7 +16,7 @@ use vars qw(@ISA $VERSION $BRANCH); @ISA = qw(QXProt); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/QXProt/QXR.pm b/perl/QXProt/QXR.pm index ad23e2b8..58506f4c 100644 --- a/perl/QXProt/QXR.pm +++ b/perl/QXProt/QXR.pm @@ -17,7 +17,7 @@ use vars qw(@ISA $VERSION $BRANCH); @ISA = qw(QXProt); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Route.pm b/perl/Route.pm index a9f80fea..68b71eb6 100644 --- a/perl/Route.pm +++ b/perl/Route.pm @@ -23,7 +23,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm index 3c4addd0..d9395ec8 100644 --- a/perl/Route/Node.pm +++ b/perl/Route/Node.pm @@ -16,7 +16,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Route/User.pm b/perl/Route/User.pm index b9862e6d..96a1e448 100644 --- a/perl/Route/User.pm +++ b/perl/Route/User.pm @@ -15,7 +15,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Script.pm b/perl/Script.pm index 3128dcde..0d139c31 100644 --- a/perl/Script.pm +++ b/perl/Script.pm @@ -19,7 +19,7 @@ use IO::File; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Spot.pm b/perl/Spot.pm index 4b0e7c72..02d25902 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -23,7 +23,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Sun.pm b/perl/Sun.pm index 0616d473..61b7450b 100644 --- a/perl/Sun.pm +++ b/perl/Sun.pm @@ -34,7 +34,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Thingy.pm b/perl/Thingy.pm index 87ee391a..7ae3d8f4 100644 --- a/perl/Thingy.pm +++ b/perl/Thingy.pm @@ -14,7 +14,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Thingy/Route.pm b/perl/Thingy/Route.pm index ccdb53fe..514d50e8 100644 --- a/perl/Thingy/Route.pm +++ b/perl/Thingy/Route.pm @@ -12,7 +12,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Timer.pm b/perl/Timer.pm index 168dd3f5..0ab2af10 100644 --- a/perl/Timer.pm +++ b/perl/Timer.pm @@ -18,7 +18,7 @@ $notimers = 0; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/UDPMsg.pm b/perl/UDPMsg.pm index 72e53de8..4e7111d5 100644 --- a/perl/UDPMsg.pm +++ b/perl/UDPMsg.pm @@ -34,7 +34,7 @@ $total_in = $total_out = 0; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/USDB.pm b/perl/USDB.pm index 4957539e..0115c712 100644 --- a/perl/USDB.pm +++ b/perl/USDB.pm @@ -17,7 +17,7 @@ use DXDebug; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/Verify.pm b/perl/Verify.pm index 58694eb5..c786fbc1 100644 --- a/perl/Verify.pm +++ b/perl/Verify.pm @@ -19,7 +19,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/WCY.pm b/perl/WCY.pm index 657a49cb..db44a233 100644 --- a/perl/WCY.pm +++ b/perl/WCY.pm @@ -21,7 +21,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += $VERSION; $main::branch += $BRANCH; diff --git a/perl/cluster.pl b/perl/cluster.pl index 6833f929..01d2809e 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -126,7 +126,7 @@ $reqreg = 0; # 1 = registration required, 2 = deregister people use vars qw($VERSION $BRANCH $build $branch); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/,(0,0)); $main::build += 4; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH; @@ -402,7 +402,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($main::systime))[5]; +$year += 1900; +dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH"); dbg("DXSpider Version $version, build $build started"); # load Prefixes -- 2.43.0