From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

[% USE CSV -%]
[% CSV.dump(['Orphaned Devices']) %]
[% CSV.dump([ 'Device' 'IP' 'Device Location' 'Contact' ' Vendor'
'Model' ]) %]
[% FOREACH row IN orphans %]
[% mydlist = [] %]
[% mydevice = row.dns || row.name %]
[% mydlist.push(mydevice) %]
[% mydlist.push(row.ip) %]
[% mydlist.push(row.location) %]
[% mydlist.push(row.contact) %]
[% mydlist.push(row.vendor) %]
[% mydlist.push(row.model) %]
[% CSV.dump(mydlist) %]
[% END %]
[% IF graphs.size > 1 %]
[% count = 0 %]
[% FOREACH network IN graphs %]
[% count = count + 1 %]
[%# The largest is not an orphan, so skip %]
[% NEXT IF count == 1 %]
[% CSV.dump([' ']) %]
[% ntwk_header = [] %]
[% ntwk_header.push('Orphaned Network') %]
[% ntwk_header.push(count - 1) %]
[% CSV.dump(ntwk_header) %]
[% CSV.dump([ 'Device' 'IP' 'Device Location' 'Contact' ' Vendor'
'Model' ]) %]
[% FOREACH row IN network %]
[% mydlist = [] %]
[% mydevice = row.dns || row.name %]
[% mydlist.push(mydevice) %]
[% mydlist.push(row.ip) %]
[% mydlist.push(row.location) %]
[% mydlist.push(row.contact) %]
[% mydlist.push(row.vendor) %]
[% mydlist.push(row.model) %]
[% CSV.dump(mydlist) %]
[% END %]
[% END %]
[% END %]