NAME

WWW::SnipeIT - API Access to Snipe-IT

SYNOPSIS

  use WWW::SnipeIT;

  my $snipeIT = SnipeIT->new( endpoint => 'http://<mysnipeip>/api/v1/', accessToken => 'mylongapikey');

  my $snipe = $snipeIT->snipe();
  my $result = $snipe->{'hardware'}->getHardwareIDByAssetTag(123);
  say $result;


  # More Examples
  my $updateBody = '{"name":"Fruit Computer","notes":"Apple Computer"}';
  my $searchBody = '{"name":"name","element":"text","field_values":"3Com"}';
  my $assetTag = 123;
  my $hardwareID = 321;
  my $user = "Scott";
  my $fieldName = "";
  my $fieldValue = "3Com";
  my $assetName = "3Com";
  my $searchString = "ChromeBook";
  my $categoryID = 3;
  my $serialNumber = "abc1234";

  warn Dumper($snipe->{'hardware'}->getHardwareIDByAssetTag($assetTag));
  warn Dumper($snipe->{'hardware'}->getHardwareByAssetTag($assetTag));
  warn Dumper($snipe->{'hardware'}->getAssetTagByHardwareID($hardwareID));
  warn Dumper($snipe->{'hardware'}->updateAssetByHardwareID($hardwareID, $updateBody));
  warn Dumper($snipe->{'hardware'}->updateAssetByAssetTag($assetTag, $updateBody));
  warn Dumper($snipe->{'hardware'}->getHardwareByCustomField($fieldName, $user));
  warn Dumper($snipe->{'hardware'}->getHardwareBySerialNumber($serialNumber));


  warn Dumper($snipe->{'hardware'}->getHistoryByHardwareID($hardwareID));
  warn Dumper($snipe->{'hardware'}->getHistoryByAssetTag($assetTag));
  warn Dumper($snipe->{'hardware'}->searchHardware($searchString));

  warn Dumper($snipe->{'hardware'}->getHardwareByCategory($categoryID));

DESCRIPTION

WWW::SnipeIT is a perl module for accessing the API. It doesnt have all the api features just enough for what I needed.

AUTHOR

Scott <scotth@cpan.org>

COPYRIGHT

Copyright 2022- Scott

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO