Update upstream source from tag 'upstream/1.37'
Update to upstream version '1.37'
with Debian dir e529d071420a4a3cb9c61205835370b7e8a0d32e
gregor herrmann
5 years ago
| 3 | 3 |
|
| 4 | 4 |
For a full list of changes and contributors see: https://github.com/modernistik/Nmap-Parser/commits/master
|
| 5 | 5 |
|
|
6 |
### Changes for 1.37
|
|
7 |
- Added starttime attributes and subroutine thanks to @jcrochon (PR #19)
|
|
8 |
|
| 6 | 9 |
### Changes for 1.35
|
| 7 | |
- Updated build configuration thanks to @mperry2 (Pull #17)
|
|
10 |
- Updated build configuration thanks to @mperry2 (PR #17)
|
| 8 | 11 |
|
| 9 | 12 |
### Changes for 1.34
|
| 10 | |
- Added devicetype thanks to @jcrochon (Pull #16)
|
|
13 |
- Added devicetype thanks to @jcrochon (PR #16)
|
| 11 | 14 |
|
| 12 | 15 |
### Changes for 1.33
|
| 13 | 16 |
- Add tcp_port_state_ttl() function for export from nmap xml results. Thanks to @matrix.
|
| 20 | 20 |
},
|
| 21 | 21 |
"release_status" : "stable",
|
| 22 | 22 |
"resources" : {},
|
| 23 | |
"version" : "1.36",
|
|
23 |
"version" : "1.37",
|
| 24 | 24 |
"x_homepage" : "https://github.com/modernistik/Nmap-Parser"
|
| 25 | 25 |
}
|
| 14 | 14 |
- t
|
| 15 | 15 |
- inc
|
| 16 | 16 |
resources: {}
|
| 17 | |
version: 1.36
|
|
17 |
version: 1.37
|
| 18 | 18 |
x_homepage: https://github.com/modernistik/Nmap-Parser
|
| 2 | 2 |
use strict;
|
| 3 | 3 |
use XML::Twig;
|
| 4 | 4 |
|
| 5 | |
our $VERSION = 1.36;
|
|
5 |
our $VERSION = 1.37;
|
| 6 | 6 |
|
| 7 | 7 |
|
| 8 | 8 |
sub new {
|
|
| 278 | 278 |
|
| 279 | 279 |
#GET HOSTNAMES
|
| 280 | 280 |
$self->{HOSTS}{$id}{hostnames} = __host_hostnames_tag_hdlr($tag);
|
|
281 |
|
|
282 |
#GET STARTTIME
|
|
283 |
$self->{HOSTS}{$id}{starttime} = $tag->{att}->{starttime};
|
| 281 | 284 |
|
| 282 | 285 |
#GET STATUS
|
| 283 | 286 |
$self->{HOSTS}{$id}{status} = $tag->first_child('status')->{att}->{state};
|
|
| 768 | 771 |
return $self;
|
| 769 | 772 |
}
|
| 770 | 773 |
|
|
774 |
sub starttime { return $_[0]->{starttime}; }
|
|
775 |
|
| 771 | 776 |
sub status { return $_[0]->{status}; }
|
| 772 | 777 |
|
| 773 | 778 |
sub addr {
|
| 106 | 106 |
This will generate a `tar.gz` to upload to https://pause.perl.org.
|
| 107 | 107 |
|
| 108 | 108 |
### Copyright and License
|
| 109 | |
Copyright (C) 2003-2016 Anthony Persaud [http://www.modernistik.com](https://www.modernistik.com)
|
|
109 |
Copyright (C) 2003-2018 Anthony Persaud [https://www.modernistik.com](https://www.modernistik.com)
|
| 110 | 110 |
|
| 111 | 111 |
MIT License
|
| 112 | 112 |
|