Allow registering monitor with IPv6 address

abh · Jun 8, 2011 · 2e7a81e · 2e7a81e
1 parent 840cdce
commit 2e7a81e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/pool b/pool
@@ -187,9 +187,10 @@ elsif ($cmd eq "addmonitor") {
     my $user = find_user_by_email($email);
 
     # do we have a hostname or an IP?
-    my $ip;
+    my $ip = Net::IP->new($hostname);
-    if (Net::IP::ip_is_ipv4($hostname)) {
+
-        $ip       = $hostname;
+    if ($ip) {
+        $ip       = $ip->short;
         $hostname = undef;
     }
     else {