]> dxcluster.org Git - spider.git/commitdiff
fix undefs
authorminima <minima>
Fri, 18 Feb 2005 22:18:18 +0000 (22:18 +0000)
committerminima <minima>
Fri, 18 Feb 2005 22:18:18 +0000 (22:18 +0000)
perl/Aranea.pm

index 7973e6256ccb9b9cb29eee0d71f16dd877676a6d..c68b211686b72b83bbd7ad18e7f4c82385de003d 100644 (file)
@@ -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);