From: minima Date: Mon, 7 Mar 2005 23:30:45 +0000 (+0000) Subject: fix callsigns in group field X-Git-Tag: R_1_52~119 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=bab2cc5b932a1b57a8a81e7e815c692169da0d6c;p=spider.git fix callsigns in group field --- diff --git a/perl/Aranea.pm b/perl/Aranea.pm index e31b7984..08d97ce9 100644 --- a/perl/Aranea.pm +++ b/perl/Aranea.pm @@ -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);