X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAranea.pm;h=bbe24bbd5194e7cd9c565cf9dfb5318564377601;hb=14cb55073f64836f3f2a1aaf3a86207dec4fa103;hp=7973e6256ccb9b9cb29eee0d71f16dd877676a6d;hpb=1f1385fe9e70e3609c2fdd6fe63a285d7a21e482;p=spider.git

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 7973e625..bbe24bbd 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -25,12 +25,11 @@ use Script;
 use Verify;
 use DXDupe;
 use Thingy;
+use RouteDB;
 
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /^\d+\.\d+(?:\.(\d+)\.(\d+))?$/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 use vars qw(@ISA $ntpflag $dupeage);
 
@@ -294,9 +293,9 @@ sub input
 	# validate it further
 	$err .= "missing cmd or data," unless $cmd && $data;
 	$err .= "invalid command ($cmd)," unless $cmd =~ /^[A-Z][A-Z0-9]*$/;
-	my ($gp, $tus) = split /:/, $group, 2;
+	my ($gp, $tus) = split /:/, $group, 2 if $group;
 		
-	$err .= "invalid group ($gp)," unless $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);
 
@@ -325,7 +324,7 @@ sub input
 		$thing->{touser} = $tus if $tus;
 		$thing->{user} = $user if $user;
 		$thing->{hopsaway} = $hop; 
-		
+
 		for (split(/,/, $rdata)) {
 			if (/=/) {
 				my ($k,$v) = split /=/, $_, 2;