projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1f1385f
)
fix undefs
author
minima
<minima>
Fri, 18 Feb 2005 22:18:18 +0000
(22:18 +0000)
committer
minima
<minima>
Fri, 18 Feb 2005 22:18:18 +0000
(22:18 +0000)
perl/Aranea.pm
patch
|
blob
|
history
diff --git
a/perl/Aranea.pm
b/perl/Aranea.pm
index 7973e6256ccb9b9cb29eee0d71f16dd877676a6d..c68b211686b72b83bbd7ad18e7f4c82385de003d 100644
(file)
--- 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]*$/;
# 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);
$err .= "invalid tocall ($tus)," if $tus && !is_callsign($tus);
$err .= "invalid fromcall ($user)," if $user && !is_callsign($user);