projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
add missing fields in DXUser
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 7288afb7d5deffa84d59734d445ff7cf2991a4cc..f0e7a8ae00a341f04b5d35153b3a39a363a9b73f 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-448,7
+448,7
@@
sub is_latlong
# is it an ip address?
sub is_ipaddr
{
- return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~
/^[0-9a-f:,]+$/
;
+ return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~
/^(?:[\da-f]{1,4}:|:)(?:\:[0-9a-f]{1,4}){1,6}/i
;
}
# is it a zulu time hhmmZ