httemplate/misc/macinventory.cgi

   1 <% objToJson(\@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 @inventory_item =
  17     qsearch('inventory_item', { 'classnum' => $inventory_class->classnum } );
  18
  19 my @macs;
  20
  21 foreach my $inventory_item ( @inventory_item ) {
  22     push @macs, $inventory_item->item;
  23 }
  24
  25 </%init>