X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fclear%2Fspots.pl;h=28c2a4a4e02501d49d37a11396e49b9561ef00a2;hb=956e3acab807900fdbccc0e2fa5e999327a1c1ce;hp=bdce5c86fc89e5604cf2385b098bb73d067325d6;hpb=211b54d504170a8c9dad2bf25b9ed686d5eeac11;p=spider.git

diff --git a/cmd/clear/spots.pl b/cmd/clear/spots.pl
index bdce5c86..28c2a4a4 100644
--- a/cmd/clear/spots.pl
+++ b/cmd/clear/spots.pl
@@ -16,14 +16,16 @@ my $call = $dxchan->call;
 
 my $f = lc shift @f if @f;
 if ($self->priv >= 8) {
-	my $uref = DXUser->get(uc $f);
-	$call = $uref->call if $uref;
-	$f = undef;
-	$f = lc shift @f if @f;
-	if ($f && $f eq 'input') {
-		$flag = 'in';
-		$f = undef;
-		$f = lc shift @f if @f;
+	if (is_callsign(uc $f)) {
+		my $uref = DXUser->get(uc $f);
+		$call = $uref->call if $uref;
+	}
+	if (@f) {
+		$f = lc shift @f;
+		if ($f eq 'input') {
+			$flag = 'in';
+			$f = shift @f if @f;
+		}
 	}
 }