view release on metacpan or search on metacpan
lib/Mail/Toaster/Utility.pm view on Meta::CPAN
my $once = 0;
TRY:
my @ips = grep {/inet/} `$ifconfig`; chomp @ips;
@ips = grep {!/inet6/} @ips if $p{exclude_ipv6};
@ips = grep {!/inet 127\.0\.0/} @ips if $p{exclude_localhost};
@ips = grep {!/inet (192\.168\.|10\.|172\.16\.|169\.254\.)/} @ips
if $p{exclude_internals};
# this keeps us from failing if the box has only internal IPs
view release on metacpan or search on metacpan
lib/Metabrik/Database/Ripe.pm view on Meta::CPAN
sub update {
my $self = shift;
my @urls = qw(
ftp://ftp.apnic.net/apnic/whois/apnic.db.inetnum.gz
ftp://ftp.apnic.net/apnic/whois/apnic.db.inet6num.gz
ftp://ftp.ripe.net/ripe/dbase/ripe.db.gz
ftp://ftp.afrinic.net/dbase/afrinic.db.gz
http://ftp.apnic.net/apnic/dbase/data/jpnic.db.gz
http://ftp.apnic.net/apnic/dbase/data/krnic.db.gz
http://ftp.apnic.net/apnic/dbase/data/twnic.db.gz
view release on metacpan or search on metacpan
share/public/revealjs/plugin/highlight/highlight.js view on Meta::CPAN
}
})();
// END CUSTOM REVEAL.JS INTEGRATION
/*! highlight.js v9.11.0 | BSD3 License | git.io/hljslicense */
!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.r...
c:[{cN:"comment",b:/\(\*/,e:/\*\)/},e.ASM,e.QSM,e.CNM,{b:/\{/,e:/\}/,i:/:/}]}});hljs.registerLanguage("roboconf",function(a){var e="[a-zA-Z-_][^\\n{]+\\{",n={cN:"attribute",b:/[a-zA-Z-_]+/,e:/\s*:/,eE:!0,starts:{e:";",r:0,c:[{cN:"variable",b:/\.[a-zA...
view release on metacpan or search on metacpan
lib/Mojolicious/resources/public/mojo/highlight.js/highlight.min.js view on Meta::CPAN
}}}());hljs.registerLanguage("sql",function(){"use strict";return function(e){
var t=e.COMMENT("--","$");return{name:"SQL",case_insensitive:!0,
illegal:/[<>{}*]/,contains:[{
beginKeywords:"begin end start commit rollback savepoint lock alter create drop rename call delete do handler insert load replace select truncate update set show pragma grant merge describe use explain help declare prepare execute deallocate release ...
end:/;/,endsWithParent:!0,keywords:{$pattern:/[\w\.]+/,
keyword:"as abort abs absolute acc acce accep accept access accessed accessible account acos action activate add addtime admin administer advanced advise aes_decrypt aes_encrypt after agent aggregate ali alia alias all allocate allow alter always ana...
literal:"true false null unknown",
built_in:"array bigint binary bit blob bool boolean char character date dec decimal float int int8 integer interval number numeric real record serial serial8 smallint text time timestamp tinyint varchar varchar2 varying void"
},contains:[{className:"string",begin:"'",end:"'",contains:[{begin:"''"}]},{
className:"string",begin:'"',end:'"',contains:[{begin:'""'}]},{
className:"string",begin:"`",end:"`"
view release on metacpan or search on metacpan
debian/control view on Meta::CPAN
Build-Depends-Indep: perl
Standards-Version: 4.5.0
Package: libnolookup-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libclass-accessor-chained-perl, libdata-validate-ip-perl, libencode-perl, libio-socket-inet6-perl, libio-socket-ssl-perl, libjson-perl, liblist-moreutils-perl, libnet-dns-perl, libnet-ip-perl, libnet-rdap-pe...
Description: NOLookup lookup module
A set of lookup modules for various Norwegian data services.
Package: libnolookup-perl-test
Architecture: all
view release on metacpan or search on metacpan
lib/Nagios/Plugin/LDAP.pm view on Meta::CPAN
my $ldap = $class->new(
$hostname,
timeout => $timeout,
version => $version,
inet6 => $ipv6,
);
unless ($ldap) {
my $err = $@;
$self->add_message(CRITICAL, "$hostname: " . $err);
view release on metacpan or search on metacpan
lib/Net/Address/Ethernet.pm view on Meta::CPAN
fwe0: flags=108802<BROADCAST,SIMPLEX,MULTICAST,NEEDSGIANT> mtu 1500
options=8<VLAN_MTU>
ether 02:31:38:31:35:35
ch 1 dma -1
vr0: flags=8843<UP,BROADCAST,RUNNING,SIMPLEX,MULTICAST> mtu 1500
inet6 fe8d::2500:bafd:fecd:cdcd%vr0 prefixlen 64 scopeid 0x2
inet 19.16.12.52 netmask 0xffffff00 broadcast 19.16.12.255
ether 00:53:b3:c3:3d:39
media: Ethernet autoselect (100baseTX <full-duplex>)
status: active
nfe0: flags=8843<UP,BROADCAST,RUNNING,SIMPLEX,MULTICAST> mtu 1500
options=8<VLAN_MTU>
inet6 fe8e::21e:31ef:fee1:26eb%nfe0 prefixlen 64 scopeid 0x3
ether 00:13:33:53:23:13
media: Ethernet autoselect (100baseTX <full-duplex>)
status: active
plip0: flags=108810<POINTOPOINT,SIMPLEX,MULTICAST,NEEDSGIANT> mtu 1500
lo0: flags=8049<UP,LOOPBACK,RUNNING,MULTICAST> mtu 16384
inet6 ::1 prefixlen 128
inet6 fe80::1%lo0 prefixlen 64 scopeid 0x5
inet 127.0.0.1 netmask 0xff000000
inet 127.0.0.2 netmask 0xffffffff
inet 127.0.0.3 netmask 0xffffffff
tun0: flags=8051<UP,POINTOPOINT,RUNNING,MULTICAST> mtu 1492
inet 83.173.73.3 --> 233.131.83.3 netmask 0xffffffff
view release on metacpan or search on metacpan
debian/control view on Meta::CPAN
Standards-Version: 3.8.0
Package: libnet-address-ip-local-perl
Architecture: all
Depends: ${perl:Depends}, liberror-perl
Suggests: libio-socket-inet6-perl
Description: A class for discovering the local system's IP address
Net::Address::IP::Local discovers the local system's IP address that would
be used as the source address when contacting "the internet" or a certain
specified remote IP address.
view release on metacpan or search on metacpan
examples/hello-world.pl view on Meta::CPAN
$loop->add( $httpserver );
$httpserver->listen(
addr => {
family => "inet6",
socktype => "stream",
port => $SSL ? 8443 : 8080,
},
on_listen_error => sub { die "Cannot listen - $_[-1]\n" },
( $SSL ? (
view release on metacpan or search on metacpan
examples/GET.pl view on Meta::CPAN
GetOptions(
'local-host=s' => \my $LOCAL_HOST,
'local-port=i' => \my $LOCAL_PORT,
'timeout=f' => \my $TIMEOUT,
'ipv4|4' => sub { $FAMILY = "inet" },
'ipv6|6' => sub { $FAMILY = "inet6" },
) or exit 1;
my $loop = IO::Async::Loop->new;
my $ua = Net::Async::HTTP->new(
view release on metacpan or search on metacpan
lib/Net/Async/Tangence/Client.pm view on Meta::CPAN
server. See the documentation the L<Tangence::Client> C<tangence_connected>
method.
=item family => STRING
Optional. May be set to C<inet4> or C<inet6> to force IPv4 or IPv6 if
relevant. Ignored by C<exec:> and C<unix:> schemes.
=back
The following URL schemes are recognised:
lib/Net/Async/Tangence/Client.pm view on Meta::CPAN
my $self = shift;
my ( $authority, %args ) = @_;
my $family;
$family = Socket::PF_INET() if $args{family} and $args{family} eq "inet4";
$family = Socket::PF_INET6() if $args{family} and $args{family} eq "inet6";
my ( $host, $port ) = $authority =~ m/^(.*):(.*)$/;
$self->connect(
host => $host,
view release on metacpan or search on metacpan
lib/Net/Async/WebService/lxd.pm view on Meta::CPAN
description: IP address
example: fd42:4c81:5770:1eaf:216:3eff:fe0c:eedd
type: string
x-go-name: Address
family:
description: Network family (inet or inet6)
example: inet6
type: string
x-go-name: Family
netmask:
description: Network mask
example: "64"
view release on metacpan or search on metacpan
my $oneday = 86400; # WARNING, set in XS also
my $unique = $$ -1; # dns sequence number
my($match,$nomatch,$payoff);
my $af_inet6 = eval { AF_INET6() };
$af_inet6 = 0 if $@;
#################################################
##### global vars reset by HUP
my ($purge,$nxpurge);
my @ifs = interfaces Net::Interface ();
IF:
foreach my $if (@ifs) {
my @addrs = $if->address(AF_INET());
my @netms = $if->netmask(AF_INET());
if ($af_inet6) {
push @addrs, $if->address($af_inet6);
push @netms, $if->netmask($af_inet6);
}
foreach (0..$#addrs) {
my $iddr = ipanyto6($addrs[$_]);
my $name = $if->name();
if ($naddr eq $iddr) {
view release on metacpan or search on metacpan
lib/Net/DNS/Lite.pm view on Meta::CPAN
} elsif (/^attempts:(\d+)$/) {
$attempts = $1;
} elsif (/^ndots:(\d+)$/) {
$self->{ndots} = $1;
} else {
# debug, rotate, no-check-names, inet6
}
}
}
}
view release on metacpan or search on metacpan
lib/Net/DNS/Resolver.pm view on Meta::CPAN
The default domain.
=head2 RES_OPTIONS
# Bourne Shell
RES_OPTIONS="retrans:3 retry:2 inet6"
export RES_OPTIONS
# C Shell
setenv RES_OPTIONS "retrans:3 retry:2 inet6"
A space-separated list of resolver options to set. Options that
take values are specified as C<option:value>.
view release on metacpan or search on metacpan
# $Id: TODO 904 2011-10-17 18:10:43Z pro $ $URL: svn://svn.setun.net/dcppp/trunk/TODO $
debian: libio-socket-inet6-perl libio-socket-ssl-perl
dont add to share downloaded filelists
better nick-port-ip-lists
udp UPSR
view release on metacpan or search on metacpan
bin/nfd-print-routes6.pl view on Meta::CPAN
($ip6 && lc($ip6)) || '::1';
}
sub _getRoutesLinux {
my %ifRoutes;
my $buf = `netstat -rnA inet6`;
my %devIps;
if ($buf) {
my @lines = split('\n', $buf);
for (@lines) {
my @elts = split(/\s+/);
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/CDP/Address.pm view on Meta::CPAN
$raw .= $self->SUPER::pack('a4',
inetAton($self->address)
) or return;
} elsif ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IPv6) {
$raw .= $self->SUPER::pack('a16',
inet6Aton($self->address)
) or return;
} else {
$raw .= $self->SUPER::pack("a$addressLength",
$self->address
) or return;
lib/Net/Frame/Layer/CDP/Address.pm view on Meta::CPAN
$self->address(inetNtoa($address));
} elsif ($self->protocol eq NF_CDP_ADDRESS_PROTOCOL_IPv6) {
($address, $payload) =
$self->SUPER::unpack('a16 a*', $tail)
or return;
$self->address(inet6Ntoa($address));
} else {
($address, $payload) =
$self->SUPER::unpack("a$addressLength a*", $tail)
or return;
$self->address($address);
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/DNS/RR/AAAA.pm view on Meta::CPAN
sub pack {
my $self = shift;
$self->raw($self->SUPER::pack('a*',
inet6Aton($self->address)
)) or return;
return $self->raw;
}
sub unpack {
my $self = shift;
$self->address(inet6Ntoa(substr $self->raw, 0, 16));
$self->payload(substr $self->raw, 16);
return $self;
}
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/ICMPv6/MLD.pm view on Meta::CPAN
my $self = shift;
my $raw = $self->SUPER::pack('nna*',
$self->maxResp,
$self->reserved,
inet6Aton($self->groupAddress)
) or return;
return $self->raw($raw);
}
lib/Net/Frame/Layer/ICMPv6/MLD.pm view on Meta::CPAN
$self->SUPER::unpack('nna16 a*', $self->raw)
or return;
$self->maxResp($maxResp);
$self->reserved($reserved);
$self->groupAddress(inet6Ntoa($group));
$self->payload($payload);
return $self;
}
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/ICMPv6.pm view on Meta::CPAN
my $zero = Bit::Vector->new_Dec(24, 0);
my $nextHeader = Bit::Vector->new_Dec( 8, $lastNextHeader);
my $v32 = $zero->Concat_List($nextHeader);
my $packed = $self->SUPER::pack('a*a*NNCCn',
inet6Aton($ip->src), inet6Aton($lastIpDst), $ipPayloadLength,
$v32->to_Dec, $self->type, $self->code, 0
) or return;
if (defined($last->payload) && length($last->payload)) {
$payload .= $last->payload;
view release on metacpan or search on metacpan
examples/hopbyhop.pl view on Meta::CPAN
type => 128,
);
my $mld = Net::Frame::Layer::ICMPv6::Echo->new(
identifier => 16,
sequenceNumber => 0,
payload => inet6Aton('::'),
);
# Create packet
my $packet = Net::Frame::Simple->new(
layers => [ $ether, $ipv6, $hop, $icmpv6, $mld, ],
view release on metacpan or search on metacpan
examples/lltd-discover.pl view on Meta::CPAN
}
elsif ($_->type == NF_LLTD_TLV_TYPE_IPv4ADDRESS) {
$ip = inetNtoa($_->value);
}
elsif ($_->type == NF_LLTD_TLV_TYPE_IPv6ADDRESS) {
$ip6 = inet6Ntoa($_->value);
}
#elsif ($_->type == NF_LLTD_TLV_TYPE_PERFCOUNTER) {
#$perfCounter = unpack('N', $_->value << 32);
#}
elsif ($_->type == NF_LLTD_TLV_TYPE_MACHINENAME) {
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/RIPng/v1.pm view on Meta::CPAN
sub pack {
my $self = shift;
$self->raw($self->SUPER::pack('a16nCC',
inet6Aton($self->prefix),
$self->routeTag,
$self->prefixLength,
$self->metric
)) or return;
lib/Net/Frame/Layer/RIPng/v1.pm view on Meta::CPAN
my ($prefix, $routeTag, $prefixLength, $metric, $payload) =
$self->SUPER::unpack('a16nCC a*', $self->raw)
or return;
$self->prefix(inet6Ntoa($prefix));
$self->routeTag($routeTag);
$self->prefixLength($prefixLength);
$self->metric($metric);
$self->payload($payload);
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/SNMP.pm view on Meta::CPAN
return
}
} elsif ($self->pdu_type == NF_SNMP_PDUTYPE_TRAP) {
my $agent_addr;
if ($self->agentAddr =~ /:/) {
$agent_addr = inet6Aton($self->agentAddr)
} else {
$agent_addr = inetAton($self->agentAddr)
}
$raw = $snmpasn->encode(
version => $self->version,
lib/Net/Frame/Layer/SNMP.pm view on Meta::CPAN
sub _inetNtoa {
my ($addr) = @_;
if (length($addr) == 4) {
return inet_ntoa($addr)
} else {
return inet6Ntoa($addr)
}
}
1;
view release on metacpan or search on metacpan
lib/Net/Frame/Layer/UDPLite.pm view on Meta::CPAN
inetAton($h->{src}), inetAton($h->{dst}), 0, 17, $self->getLength,
) or return;
}
elsif ($h->{type} eq 'IPv6') {
$phpkt = $self->SUPER::pack('a*a*NnCC',
inet6Aton($h->{src}),
inet6Aton($h->{dst}), $self->getLength, 0, 0, 17,
) or return
}
$phpkt .= $self->SUPER::pack('nnnn',
$self->src, $self->dst, $self->getLength, 0,
view release on metacpan or search on metacpan
lib/Net/Frame/Layer.pm view on Meta::CPAN
getHostIpv4Addr
getHostIpv4Addrs
getHostIpv6Addr
inetAton
inetNtoa
inet6Aton
inet6Ntoa
getRandomHighPort
getRandom32bitsInt
getRandom16bitsInt
convertMac
inetChecksum
lib/Net/Frame/Layer.pm view on Meta::CPAN
return $ipv6;
}
sub inetAton { Socket::inet_aton(shift()) }
sub inetNtoa { Socket::inet_ntoa(shift()) }
sub inet6Aton { _inet_pton(AF_INET6, shift()) }
sub inet6Ntoa { _inet_ntop(AF_INET6, shift()) }
sub getRandomHighPort {
my $highPort = int rand 0xffff;
$highPort += 1024 if $highPort < 1025;
$highPort;
lib/Net/Frame/Layer.pm view on Meta::CPAN
=item B<getHostIpv6Addr> (hostname)
Resolves IPv6 address of specified hostname.
=item B<inet6Aton> (IPv6 address)
Takes IPv6 address and returns the network form.
=item B<inet6Ntoa> (IPv6 network form)
Takes IPv6 address in network format, and returns the IPv6 human form.
=item B<inetAton> (IPv4 address)
view release on metacpan or search on metacpan
0.604 2021/02/26
- change bugtracker in Makefile.PL to github
0.603 2014/09/07
- mark Net::FTP 2.79 as a valid base too, based on patch from
kimmo[AT]suominen[DOT]com, https://github.com/noxxi/p5-net-inet6glue/pull/3
0.602 2014/01/17
- fix t/01_inet_is_inet6.t
0.601 2014/01/14
- add support for IO::Socket::IP instead of IO::Socket::INET6 and prefer it
0.600_1 2013/05/31
- set AUTHOR in Makefile.PL back from array to string, because array is
only supported in newer ExtUtils::MakeMaker versions
view release on metacpan or search on metacpan
lib/Net/IP/Identifier/WhoisParser.pm view on Meta::CPAN
qr[^route([s6])?:]i,
qr[^mnt-routes:]i,
);
my @whois_range_regexs = ( # lines which might contain the range
qr[^inet6?num:\s*(.+)]i,
qr[^NetRange:\s*(.+)]i,
qr[^CIDR:\s*(\S+)]i,
qr[^Network:IP-Network(?:-Block)?:\s*(.+)]i,
qr/^a\.\s*\[Network Number\]\s*(.*)/i,
);
view release on metacpan or search on metacpan
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
$self->{INTERFACE} = defined($opts{interface}) ? $opts{interface} : undef;
$self->{leases_path} = $opts{leases_path};
# Internal storage:
$self->{leases_af_inet} = undef;
$self->{leases_af_inet6} = undef;
bless ($self, $class);
return $self;
}
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
sub is_dhcp($$;$)
{
my ($self, $af, $inteface_to_query) = @_;
die "Address family is: inet or inet6!" if (!($af eq 'inet' || $af eq 'inet6'));
if (defined($inteface_to_query) &&
defined($self->{INTERFACE}) &&
$self->{INTERFACE} ne $inteface_to_query) {
die sprintf("Cannot query interface %s, has %s.", $inteface_to_query, $self->{INTERFACE});
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
if (defined($self->{INTERFACE})) {
if ($af eq 'inet') {
$self->leases_af_inet();
return scalar(@{$self->{leases_af_inet}}) > 0;
}
if ($af eq 'inet6') {
$self->leases_af_inet6();
return scalar(@{$self->{leases_af_inet6}}) > 0;
}
return 0;
}
die "Need interface!" if (!defined($inteface_to_query));
# Iterate all found leases and look for given interface
my $leases_to_check;
$leases_to_check = $self->{leases_af_inet} if ($af eq 'inet');
$leases_to_check = $self->{leases_af_inet6} if ($af eq 'inet6');
for my $lease (@$leases_to_check) {
return 1 if ($lease->{INTERFACE} eq $inteface_to_query);
}
return 0;
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
'inet');
return $self->{leases_af_inet};
}
sub leases_af_inet6($)
{
my ($self) = @_;
return $self->{leases_af_inet6} if ($self->{leases_af_inet6});
$self->{leases_af_inet6} = $self->_read_lease_file($self->{leases_path},
$self->{INTERFACE},
'inet6');
return $self->{leases_af_inet6};
}
sub _read_lease_file($$$$)
{
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
} else {
$leasefile_re1 = qr/^dhclient-(.*)?-(.+)\.lease$/;
$leasefile_re2 = qr/^dhclient\.(.+)\.leases$/;
$leasefile_re3 = qr/^internal-(.*)?-($interface)\.lease$/;
}
} elsif ($af eq 'inet6') {
if ($interface) {
$leasefile_re1 = qr/^dhclient6-(.*)?-($interface)\.lease$/;
$leasefile_re2 = qr/^dhclient6\.($interface)\.leases$/;
} else {
$leasefile_re1 = qr/^dhclient6-(.*)?-(.+)\.lease$/;
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
next;
}
s/^\s+//; # Eat starting whitespace
$self->_isc_af_inet_lease_parser($currentLease, $_) if ($af eq 'inet');
$self->_isc_af_inet6_lease_parser($currentLease, $ia_type, $_) if ($af eq 'inet6');
} # end while (<LEASEFILE>)
close (LEASEFILE);
}
for my $leaseFile (@netplan_lease_files) {
lib/Net/ISC/DHCPClient.pm view on Meta::CPAN
last SWITCH;
};
}
}
sub _isc_af_inet6_lease_parser($$$$)
{
my ($self, $currentLease, $ia_type, $line) = @_;
my $context = '';
my $addr = '';