SCOTTH / WWW-SnipeIT-0.01 / lib / WWW / SnipeIT.pm 

            

              
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

              
package WWW::SnipeIT;
#use v5.26;
use Modern::Perl '2018'; #5.26
our $VERSION = '0.01';
use Object::Pad;
use WWW::SnipeIT::Hardware;
class SnipeIT {
  has $accessToken :param;
  has $endpoint :param;
  method snipe () {
    my $header = ['Content-Type' => 'application/json; charset=UTF-8', 'Authorization' => 'Bearer '.$accessToken];
    my $asset = Hardware->new('header'=> $header, 'endpoint' => $endpoint);
     
    return {'hardware' => $asset};
  }
}
1;
__END__
=encoding utf-8
=head1 NAME
WWW::SnipeIT - API Access to Snipe-IT
=head1 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";
  
  
  my $snipe = $test->snipe();
  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));
=head1 DESCRIPTION
WWW::SnipeIT is a perl module for accessing the API. It doesnt have all the api features just enough for what I needed.
=head1 AUTHOR
Scott E<lt>scotth@cpan.orgE<gt>
=head1 COPYRIGHT
Copyright 2022- Scott
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
=cut