Merge alternate IP fix (changeset 375) to resmon2 (refs #6)

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@376 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

lib/Resmon/Status.pm

@@ -366,7 +366,11 @@ sub serve_http_on {
     my $port = shift;
     $self->{authuser} = shift;
     $self->{authpass} = shift;
-    $ip = INADDR_ANY if(!defined($ip) || $ip eq '' || $ip eq '*');
+    if(!defined($ip) || $ip eq '' || $ip eq '*') {
+        $ip = INADDR_ANY;
+    } else {
+        $ip = inet_aton($ip);
+    }
     $port ||= 81;
 
     my $handle = IO::Socket->new();