From: minima <minima>
Date: Fri, 18 Feb 2005 22:18:18 +0000 (+0000)
Subject: fix undefs
X-Git-Tag: R_1_52~195
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=9247dc52598db705b9cf6cbbec16c3919ac5e1d7;p=spider.git

fix undefs
---

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 7973e625..c68b2116 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -294,9 +294,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);