From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 9 Dec 2021 12:02:07 +0000 (+0000)
Subject: move isregistered to DXChannel.pm
X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4ba5e72693bb889ddbdf3b6bec688361f5273f9;p=spider.git

move isregistered to DXChannel.pm

to allow people to announce themselves in cron..
---

diff --git a/Changes b/Changes
index 35ec0ef1..85ec11cf 100644
--- a/Changes
+++ b/Changes
@@ -1,16 +1,18 @@
-08Nov21=======================================================================
+09Dec21=======================================================================
+1. Moved isregistered to DXChannel for safety...
+08Dec21=======================================================================
 1. Get to the bottom of why ssid'd calls were using the base call's 
    credentials. This should now work as expected. 
-06Nov21=======================================================================
+06Dec21=======================================================================
 1. Improve console.pl scrolling. Split long lines (eg on announcements.
-04Nov21=======================================================================
+04Dec21=======================================================================
 1. Fix illogicalities in USDB creations and make sure that O_CREAT on tie does
    NOT encounter an existing file to barf about. Even though it shouldn't.
    Thanks Howard WB3FFV.
 2. Fixed a typo in show/registered that prevents a list of callsigns being
-   searched for. Got rid of some over complex code. Thnake Fabrizio iZ0UIN. 
+   searched for. Got rid of some over complex code. Thanks Fabrizio iZ0UIN. 
 3. Fix long line wrapping in console.pl
-03Nov21=======================================================================
+03Dec21=======================================================================
 1. Move motd and issue files to local_data if not already there.
 30Nov21=======================================================================
 1. Fix sh/dx with callsigns that have /p or VE/G1TLH in them.
diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index f5fc6eb2..9d6b33a1 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -765,6 +765,20 @@ sub error_handler
 }
 
 
+sub isregistered
+{
+	my $self = shift;
+
+	# the sysop is registered!
+	return 1 if $self->call eq $main::myalias || $self->call eq $main::mycall;
+	
+	if ($main::reqreg) {
+		return $self->{registered};
+	} else {
+		return 1;
+	}
+}
+
 #no strict;
 sub AUTOLOAD
 {