summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/utils.pm.in
diff options
context:
space:
mode:
Diffstat (limited to 'plugins-scripts/utils.pm.in')
-rw-r--r--plugins-scripts/utils.pm.in5
1 files changed, 4 insertions, 1 deletions
diff --git a/plugins-scripts/utils.pm.in b/plugins-scripts/utils.pm.in
index 028241d4..d4dddae9 100644
--- a/plugins-scripts/utils.pm.in
+++ b/plugins-scripts/utils.pm.in
@@ -2,6 +2,9 @@
2# $Id$ 2# $Id$
3# 3#
4# $Log$ 4# $Log$
5# Revision 1.9 2006/10/19 18:44:53 tonvoon
6# Allow hostnames beginning with digits (O'Shaughnessy Evans - 1567390)
7#
5# Revision 1.8 2006/06/07 14:23:12 seanius 8# Revision 1.8 2006/06/07 14:23:12 seanius
6# removed stale references to PATH_TO_NTPFOO, as it's no longer used. 9# removed stale references to PATH_TO_NTPFOO, as it's no longer used.
7# 10#
@@ -73,7 +76,7 @@ sub usage {
73 76
74sub is_hostname { 77sub is_hostname {
75 my $host1 = shift; 78 my $host1 = shift;
76 if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z][-a-zA-Z0-9]+(\.[a-zA-Z][-a-zA-Z0-9]+)*)$/) { 79 if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z0-9]+(\.[a-zA-Z0-9]+)*)$/) {
77 return 1; 80 return 1;
78 }else{ 81 }else{
79 return 0; 82 return 0;