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.in11
1 files changed, 9 insertions, 2 deletions
diff --git a/plugins-scripts/utils.pm.in b/plugins-scripts/utils.pm.in
index e245835..8449b54 100644
--- a/plugins-scripts/utils.pm.in
+++ b/plugins-scripts/utils.pm.in
@@ -53,9 +53,16 @@ sub usage {
53 53
54sub is_hostname { 54sub is_hostname {
55 my $host1 = shift; 55 my $host1 = shift;
56 if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z0-9][-a-zA-Z0-9]+(\.[a-zA-Z0-9][-a-zA-Z0-9]+)*)$/) { 56 return 0 unless defined $host1;
57 if ($host1 =~ m/^[\d\.]+$/ && $host1 !~ /\.$/) {
58 if ($host1 =~ m/^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
59 return 1;
60 } else {
61 return 0;
62 }
63 } elsif ($host1 =~ m/^[a-zA-Z0-9][-a-zA-Z0-9]+(\.[a-zA-Z0-9][-a-zA-Z0-9]+)*\.?$/) {
57 return 1; 64 return 1;
58 }else{ 65 } else {
59 return 0; 66 return 0;
60 } 67 }
61} 68}