| … | |
… | |
| 9 | my $api = new AnyEvent::Porttracker |
9 | my $api = new AnyEvent::Porttracker |
| 10 | host => "10.0.0.1", |
10 | host => "10.0.0.1", |
| 11 | user => "admin", |
11 | user => "admin", |
| 12 | pass => "31331", |
12 | pass => "31331", |
| 13 | tls => 1, |
13 | tls => 1, |
|
|
14 | on_error => sub { |
|
|
15 | die $_[1]; |
|
|
16 | }, |
| 14 | ; |
17 | ; |
| 15 | |
18 | |
| 16 | # Example 1 |
19 | # Example 1 |
| 17 | # a simple request: ping the server synchronously |
20 | # a simple request: ping the server synchronously |
| 18 | |
21 | |
| … | |
… | |
| 104 | |
107 | |
| 105 | use MIME::Base64 (); |
108 | use MIME::Base64 (); |
| 106 | use Digest::HMAC_MD6 (); |
109 | use Digest::HMAC_MD6 (); |
| 107 | use JSON (); |
110 | use JSON (); |
| 108 | |
111 | |
| 109 | our $VERSION = '1.0'; |
112 | our $VERSION = '1.01'; |
| 110 | |
113 | |
| 111 | sub call { |
114 | sub call { |
| 112 | my ($self, $type, @args) = @_; |
115 | my ($self, $type, @args) = @_; |
| 113 | |
116 | |
| 114 | $self->{$type} |
117 | $self->{$type} |
| … | |
… | |
| 587 | |
590 | |
| 588 | L<AnyEvent>, L<http://www.porttracker.com/>, L<http://www.infoblox.com/en/products/portiq.html>. |
591 | L<AnyEvent>, L<http://www.porttracker.com/>, L<http://www.infoblox.com/en/products/portiq.html>. |
| 589 | |
592 | |
| 590 | =head1 AUTHOR |
593 | =head1 AUTHOR |
| 591 | |
594 | |
| 592 | Marc Lehmann <marc@porttracker.net> |
595 | Marc Lehmann <marc@nethype.de> |
| 593 | |
596 | |
| 594 | =cut |
597 | =cut |
| 595 | |
598 | |
| 596 | 1 |
599 | 1 |
