From da103adfdd02e647e613a231771884e6df0feba4 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 27 Dec 2011 15:28:24 +0000 Subject: [PATCH] add logging to show/dxsql this is to find out whether anyone is using this command. --- cmd/show/dxqsl.pl | 1 + perl/Version.pm | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/cmd/show/dxqsl.pl b/cmd/show/dxqsl.pl index 2017a6ae..3a00433c 100644 --- a/cmd/show/dxqsl.pl +++ b/cmd/show/dxqsl.pl @@ -16,6 +16,7 @@ return (1, $self->msg('db3', 'QSL')) unless $QSL::dbm; push @out, $self->msg('qsl1'); foreach my $call (@call) { + Log('call', "$call: show/dxqsl $call"); my $q = QSL::get($call); if ($q) { my $c = $call; diff --git a/perl/Version.pm b/perl/Version.pm index fdfe4d13..2633856a 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.56'; $subversion = '0'; -$build = '11'; -$gitversion = 'ed2d469'; +$build = '12'; +$gitversion = '209156e'; 1; -- 2.43.0