Code

When sending set_activated_for_installation in job_trigger_activate_new
[gosa.git] / trunk / gosa-si / gosa-si-client
index 8142b35a0b753691e907d54913c9e1807f16d8ca..b6a84898f79776247c7154c2bb95e80339cfc835 100755 (executable)
@@ -329,6 +329,14 @@ sub get_local_mac_for_remote_ip {
        my $server_ip= shift;
        my $result= "00:00:00:00:00:00";
 
+       if($server_ip =~ /^[a-z][a-z0-9\.]$/i) {
+               my $ip_address = inet_ntoa(scalar gethostbyname($server_ip));
+               if(defined($ip_address) && $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
+                       # Write ip address to $server_ip variable
+                       $server_ip = $ip_address;
+               }
+       }
+
        if($server_ip =~ /^(\d\d?\d?\.){3}\d\d?\d?$/) {
                my $PROC_NET_ROUTE= ('/proc/net/route');