option to renumber to existing interface address

lib/App/Netdisco/DB/Result/Device.pm

@@ -370,7 +370,8 @@ sub renumber {
 
   $device->update({
     ip  => $new_ip,
-    dns => hostname_from_ip($new_ip),
+    dns => (hostname_from_ip($new_ip)
+      || eval { $schema->resultset('DeviceIp')->find($new_ip,$new_ip)->dns } || undef),
   });
 
   return $device;

lib/App/Netdisco/Web/Plugin/Device/Details.pm

@@ -30,9 +30,14 @@ ajax '/ajax/content/device/details' => require_login sub {
         = schema('netdisco')->resultset('DevicePower')
         ->search( { 'me.ip' => $device->ip } )->with_poestats->hri->all;
 
+    my @interfaces
+        = schema('netdisco')->resultset('Device')
+        ->find($device->ip)
+        ->device_ips->hri->all;
+
     content_type('text/html');
     template 'ajax/device/details.tt', {
-      d => $results[0], p => \@power
+      d => $results[0], p => \@power, interfaces => \@interfaces,
     }, { layout => undef };
 };
 

share/views/ajax/device/details.tt

@@ -245,8 +245,12 @@
                 <li><p>No check is made as to whether the new IP is reachable</p></li>
               </ul>
             </blockquote>
-            <textarea id="nd_devrenumber-newip" class="input-block-level" rows="1" data-form="renumber"
+            <label>Enter new IP address: <input list="interfaces" name="newip" data-form="renumber"/></label>
-              placeholder="Enter new IP address" name="newip"></textarea>
+            <datalist id="interfaces">
+              [% FOREACH i IN interfaces %]
+              <option value="[% i.alias | html_entity %]">[% i.dns | html_entity %]</option>
+              [% END %]
+            </datalist>
             <input type="hidden" data-form="renumber" value="[% d.ip | html_entity %]" name="device"/>
           </div>
           <div class="modal-footer">