blob: b07da9726bb155ef70184f4e4ce8fad20ba2a656 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
<% objToJson(\@macs) %>
<%init>
# XXX: this should be agent-virtualized / limited
my $devicepart = $cgi->param('arg');
die 'invalid devicepart' unless $devicepart =~ /^\d+$/;
my $part_device = qsearchs('part_device', { 'devicepart' => $devicepart } );
die "unknown devicepart $devicepart" unless $part_device;
my $inventory_class = $part_device->inventory_class;
die "devicepart $devicepart has no inventory" unless $inventory_class;
my @inventory_item =
qsearch('inventory_item', { 'classnum' => $inventory_class->classnum } );
my @macs;
foreach my $inventory_item ( @inventory_item ) {
push @macs, $inventory_item->item;
}
</%init>
|