X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=24d3f0a9597fe475c2e178290fe1b2f3e2e3d17f;hb=a06ff95db570322cf86b713d4a6b410ea007b8e0;hp=d05af70a2936bd67c3ee9aec70b5a3142c8c0426;hpb=6aca4e461103870de99b0ce452f21cf7fedeb54b;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d05af70a..24d3f0a9 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -21,7 +21,7 @@ use DXLog;
 use DXLogPrint;
 use DXBearing;
 use CmdAlias;
-use FileHandle;
+use IO::File;
 use Filter;
 use Carp;
 
@@ -77,7 +77,9 @@ sub start
 	# issue a pc16 to everybody interested
 	my $nchan = DXChannel->get($main::mycall);
 	my @pc16 = DXProt::pc16($nchan, $cuser);
-	DXProt::broadcast_ak1a(@pc16);
+	for (@pc16) {
+		DXProt::broadcast_all_ak1a($_);
+	}
 	Log('DXCommand', "$call connected");
 	
 	# send prompts and things
@@ -144,6 +146,8 @@ sub normal
 			} else {
 				$self->send($self->msg('sorry'));
 			}
+		} else {
+			$self->send($self->msg('sorry'));
 		}
 		delete $self->{passwd};
 		$self->state('prompt');
@@ -302,7 +306,7 @@ sub finish
 	# issue a pc17 to everybody interested
 	my $nchan = DXChannel->get($main::mycall);
 	my $pc17 = $nchan->pc17($self);
-	DXProt::broadcast_ak1a($pc17);
+	DXProt::broadcast_all_ak1a($pc17);
 	
 	Log('DXCommand', "$call disconnected");
 	$ref->del() if $ref;
@@ -505,7 +509,7 @@ sub find_cmd_name {
 	} else {
 		delete_package($package) if defined $Cache{$package}{mtime};
 		
-		my $fh = new FileHandle;
+		my $fh = new IO::File;
 		if (!open $fh, $filename) {
 			$errstr = "Syserr: can't open '$filename' $!";
 			return undef;