httemplate/misc/macinventory.cgi

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