<table>
<tr>
<td>
<h3><&|/l&>Add IPs</&></h3>
% my $i = 1;
<table>
<tr><th>Interface</td><th>IP Address</td><th>MAC Address</td><th>TCP Ports <i>(space separated)</i></td><th>UDP Ports</td></tr>
% while ($i <= $blanks) {
<tr>
<td><input name="Asset-<%$AssetObj->Id%>-AddInterface<%$i%>" MAXLENTH="25" /></td>
<td><input name="Asset-<%$AssetObj->Id%>-AddIP<%$i%>" size=15 maxlength="15" /></td>
<td><input name="Asset-<%$AssetObj->Id%>-AddMAC<%$i%>" size=12 maxlength="12" /></td>
<td><input name="Asset-<%$AssetObj->Id%>-AddTCPPorts<%$i%>" size="30" /></td>
<td><input name="Asset-<%$AssetObj->Id%>-AddUDPPorts<%$i%>" size="30" /></td>
% $i++;
</tr>
% }
</table>
</td>
</tr>
<tr>
<td valign="top">
<h3><&|/l&>Current IPs</&></h3>
<&|/l&>(Check box to delete)</&><br>
    <table>
% while(my $ip = $ips->Next) {
    <tr>
    <td>
    <%$ip->Interface%>:
    <input type="checkbox" name="Asset-<%$AssetObj->Id%>-DeleteIP-<%$ip->Id%>" unchecked />
    <%$ip->IP%> (<%$ip->MAC%>)
    </td>
    <td>
    TCP: <input name="Asset-<%$AssetObj->Id%>-IP-<%$ip->Id%>-TCPPorts" value="<%join(' ', sort {$a<=>$b} $ip->TCPPorts)%>" size="30" />
    <br>
    UDP: <input name="Asset-<%$AssetObj->Id%>-IP-<%$ip->Id%>-UDPPorts" value="<%join(' ', sort {$a<=>$b} $ip->UDPPorts)%>" size="30" />
    </td>
    </tr>
% }
    </table>
</td>
</tr>
</table>

<%init>
my $ips = $AssetObj->IPs;
</%init>

<%args>
$AssetObj => undef
$blanks => 5
</%args>
