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 | } |
