diff options
Diffstat (limited to 'plugins-scripts/utils.pm.in')
-rw-r--r-- | plugins-scripts/utils.pm.in | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/plugins-scripts/utils.pm.in b/plugins-scripts/utils.pm.in index e2458359..8449b544 100644 --- a/plugins-scripts/utils.pm.in +++ b/plugins-scripts/utils.pm.in | |||
@@ -53,9 +53,16 @@ sub usage { | |||
53 | 53 | ||
54 | sub is_hostname { | 54 | sub 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 | } |