X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=08d97ce99cc605ed78323a1ec6a0107e35b7d3d3;hb=bab2cc5b932a1b57a8a81e7e815c692169da0d6c;hp=c04534b73bacf2d2cdb2ea38a1b282275834fee8;hpb=a597f3d1e4533abebfd844d365f2d4cb62ba33e6;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index c04534b7..08d97ce9 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -191,7 +191,7 @@ sub per_minute
 					# i am special but, currently, still a node
 					my $thing = Thingy::Rt->new_cf;
 					$thing->broadcast;
-					$self->lastcf($main::systime);
+					$dxchan->lastcf($main::systime);
 				} else {
 
 					# i am a pc protocol node connected directly
@@ -247,7 +247,7 @@ sub disconnect
 	DXProt::route_pc21($self, $main::mycall, undef, @rout) if @rout;
 
 	# remove outstanding pings
-#	delete $pings{$call};
+	Thingy::Ping::forget($call);
 	
 	# I was the last node visited
     $self->user->node($main::mycall);
@@ -383,7 +383,7 @@ sub input
 	my ($gp, $tus) = split /:/, $group, 2 if $group;
 
 	$err .= "from me," if $origin eq $main::mycall;
-	$err .= "invalid group ($gp)," if $gp && $gp !~ /^[A-Z0-9]{2,}$/;
+	$err .= "invalid group ($gp)," if $gp && $gp !~ /^[-A-Z0-9]{2,}$/;
 	$err .= "invalid tocall ($tus)," if $tus && !is_callsign($tus);
 	$err .= "invalid fromcall ($user)," if $user && !is_callsign($user);