Result:
found 146 distributions and 338 files matching your query !
( run in 0.668 )
Dpkg
view release on metacpan or search on metacpan
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
00066c00 g DF .text 00000021 GLIBC_2.0 __default_morecore
000c6000 g DF .text 0000002a (GLIBC_2.0) pthread_cond_broadcast
000891a0 w DF .text 0000007c GLIBC_2.0 waitpid
00000000 g DO *ABS* 00000000 GCC_3.0 GCC_3.0
001157a0 g DO .data.rel.ro 00000100 (GLIBC_2.1) sys_sigabbrev
000d76d0 g DF .text 000000e1 GLIBC_2.3.3 inet6_option_alloc
000e1210 g DF .text 00000195 GLIBC_2.0 xdrrec_create
00000000 g DO *ABS* 00000000 GLIBC_2.2.6 GLIBC_2.2.6
000e9700 g DF .text 00000015 GLIBC_2.1 fdetach
000dda40 g DF .text 000000f7 GLIBC_2.0 xprt_register
000ac030 g DF .text 00000032 (GLIBC_2.1) __lxstat64
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
000e6ec0 g DF .text 00000069 GLIBC_2.1 xdr_int16_t
0006adb0 w DF .text 00000122 GLIBC_2.0 argz_insert
0008a430 w DF .text 00000008 GLIBC_2.0 getpid
000b3760 w DF .text 00000026 GLIBC_2.0 getpagesize
00000000 w D *UND* 00000000 __pthread_rwlock_wrlock
000d74b0 g DF .text 00000033 GLIBC_2.3.3 inet6_option_init
0002bfe0 w DF .text 00000099 GLIBC_2.0 erand48_r
000ba070 g DF .text 0000003a GLIBC_2.3 lremovexattr
000ebda0 g DF .text 0000002a GLIBC_2.1 updwtmpx
00035000 w DF .text 00000027 GLIBC_2.1 __strtold_l
000dfdb0 g DF .text 000000bd GLIBC_2.1.1 xdr_u_hyper
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
000ba280 g DF .text 0000003a GLIBC_2.3.4 vm86
000bd140 w DF .text 000000d5 GLIBC_2.0 iswxdigit
0005a4f0 g DF .text 0000014c GLIBC_2.2 _IO_wdo_write
000b3af0 g DF .text 000000a2 GLIBC_PRIVATE __libc_pselect
0006e350 g DF .text 000000ac GLIBC_2.3.4 __xpg_strerror_r
000d7590 g DF .text 000000c1 GLIBC_2.3.3 inet6_option_find
00055380 w DF .text 0000024e GLIBC_2.0 __getdelim
0006d650 g DF .text 0000003f GLIBC_2.1.1 __strcmp_gg
000aca20 w DF .text 0000007c GLIBC_2.0 __read
000b9380 w DF .text 00000185 GLIBC_2.0 error_at_line
0006b620 g DF .text 000000fb GLIBC_2.0 envz_add
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
00079660 w DF .text 000008f6 GLIBC_2.3 wcsxfrm_l
00053230 w DF .text 00000032 GLIBC_2.0 ftrylockfile
0002b9d0 w DF .text 0000010e GLIBC_2.0 srandom_r
00021fd0 g DF .text 0000007d GLIBC_2.0 isxdigit
000b8600 w DF .text 000003eb GLIBC_2.0 tdelete
000d77c0 g DF .text 00000075 GLIBC_2.3.3 inet6_option_append
00054b50 g DF .text 00000146 GLIBC_2.0 _IO_fputs
0008a5d0 g DF .text 00000036 GLIBC_2.0 __getpgid
000abbd0 g DF .text 0000003a GLIBC_2.2 posix_spawnattr_getschedparam
0011a6c8 g DO .bss 00000004 GLIBC_2.0 error_print_progname
000dffb0 g DF .text 0000004e GLIBC_2.0 xdr_char
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
000abe00 g DF .text 0000008d GLIBC_2.0 __fxstat
000d1200 g DF .text 0000002d GLIBC_2.0 ether_ntoa
0002cfa0 w DF .text 0000002e GLIBC_2.1 __strtoul_l
0002b2c0 g DF .text 00000031 GLIBC_2.0 llabs
00043d60 g DF .text 00000034 GLIBC_2.0 _IO_sprintf
000d74f0 g DF .text 0000009d GLIBC_2.3.3 inet6_option_next
000be320 w DF .text 0000007d GLIBC_2.3 iswgraph_l
00022e50 w DF .text 00000015 GLIBC_2.0 bindtextdomain
0007d9e0 g DF .text 00000036 GLIBC_2.0 stime
000b9e80 g DF .text 0000003c GLIBC_2.3 flistxattr
000baac0 g DF .text 0000003c GLIBC_2.0 klogctl
t/Dpkg_Shlibs/objdump.libc6-2.3 view on Meta::CPAN
000f40b0 g DF .text 00000041 (GLIBC_2.0) getnetent_r
0005c500 g DF .text 000000e3 GLIBC_2.1 fseeko64
000b98e0 w DF .text 00000210 GLIBC_2.0 get_nprocs_conf
000ad360 g DF .text 00000074 GLIBC_2.0 getwd
000a29c0 w DF .text 00000047 GLIBC_2.0 re_exec
000d7490 g DF .text 00000011 GLIBC_2.3.3 inet6_option_space
000da9c0 g DF .text 00000340 GLIBC_2.0 clntudp_bufcreate
00060490 g DF .text 00000142 GLIBC_2.0 _IO_default_pbackfail
000b24f0 g DF .text 0000020c GLIBC_2.0 tcsetattr
00119b50 w DO .bss 00000004 (GLIBC_2.0) _h_errno
0006d4c0 g DF .text 00000040 GLIBC_2.1.1 __mempcpy_by2
EV-ADNS
view release on metacpan or search on metacpan
static SV *
addr_to_sv (adns_rr_addr *addr)
{
return ip_to_sv (addr->addr.sa.sa_family,
addr->addr.sa.sa_family == AF_INET6
? (void *)&addr->addr.inet6.sin6_addr
: (void *)&addr->addr.inet.sin_addr);
}
static SV *
ha2sv (adns_rr_hostaddr *rr)
Erlang-Parser
view release on metacpan or search on metacpan
N;
ensure_int(S) when is_list(S) ->
list_to_integer(S).
ipv6_supported() ->
case (catch inet:getaddr("localhost", inet6)) of
{ok, _Addr} ->
true;
{error, _} ->
false
end.
{active, false},
{nodelay, NoDelay}],
Opts = case Ip of
any ->
case ipv6_supported() of % IPv4, and IPv6 if supported
true -> [inet, inet6 | BaseOpts];
_ -> BaseOpts
end;
{_, _, _, _} -> % IPv4
[inet, {ip, Ip} | BaseOpts];
{_, _, _, _, _, _, _, _} -> % IPv6
[inet6, {ip, Ip} | BaseOpts]
end,
listen(Port, Opts, State).
new_acceptor_pool(Listen,
State=#mochiweb_socket_server{acceptor_pool=Pool,
File-RsyncP
view release on metacpan or search on metacpan
FileList/configure view on Meta::CPAN
if test "x$enable_ipv6" != xno
then
echo "$as_me:$LINENO: checking ipv6 stack type" >&5
echo $ECHO_N "checking ipv6 stack type... $ECHO_C" >&6
for i in inria kame linux-glibc linux-inet6 toshiba v6d zeta; do
case $i in
inria)
# http://www.kame.net/
cat >conftest.$ac_ext <<_ACEOF
FileList/configure view on Meta::CPAN
fi
rm -f conftest*
;;
linux-inet6)
# http://www.v6.linux.or.jp/
if test -d /usr/inet6 -o -f /usr/inet6/lib/libinet6.a; then
ipv6type=$i
ipv6lib=inet6
ipv6libdir=/usr/inet6/lib
ipv6trylibc=yes;
cat >>confdefs.h <<\_ACEOF
#define INET6 1
_ACEOF
CFLAGS="-I/usr/inet6/include $CFLAGS"
fi
;;
toshiba)
cat >conftest.$ac_ext <<_ACEOF
/* confdefs.h. */
FileList/configure view on Meta::CPAN
#endif
_ACEOF
if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
$EGREP "yes" >/dev/null 2>&1; then
ipv6type=$i;
ipv6lib=inet6;
ipv6libdir=/usr/local/v6/lib;
cat >>confdefs.h <<\_ACEOF
#define INET6 1
_ACEOF
FileList/configure view on Meta::CPAN
#endif
_ACEOF
if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
$EGREP "yes" >/dev/null 2>&1; then
ipv6type=$i;
ipv6lib=inet6;
ipv6libdir=/usr/local/v6/lib;
cat >>confdefs.h <<\_ACEOF
#define INET6 1
_ACEOF
FileList/configure view on Meta::CPAN
fi
rm -f conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test "$ac_cv_search_getaddrinfo" = no; then
for ac_lib in inet6; do
LIBS="-l$ac_lib $ac_func_search_save_LIBS"
cat >conftest.$ac_ext <<_ACEOF
/* confdefs.h. */
_ACEOF
cat confdefs.h >>conftest.$ac_ext
Filesys-Fuse3
view release on metacpan or search on metacpan
If you are using Perfuse on NetBSD, you should do the following (as root):
cat >> /etc/sysctl.conf <<_EOT_
kern.sbmax=2621440
net.inet.tcp.sendbuf_max=2621440
net.inet6.tcp6.sendbuf_max=2621440
_EOT_
sysctl -f /etc/sysctl.conf
Perfuse uses TCP sockets, and needs large send buffers.
Fuse
view release on metacpan or search on metacpan
If you are using Perfuse on NetBSD, you should do the following (as root):
cat >> /etc/sysctl.conf <<_EOT_
kern.sbmax=2621440
net.inet.tcp.sendbuf_max=2621440
net.inet6.tcp6.sendbuf_max=2621440
_EOT_
sysctl -f /etc/sysctl.conf
Perfuse uses TCP sockets, and needs large send buffers.
FusionInventory-Agent
view release on metacpan or search on metacpan
lib/FusionInventory/Agent/Task/Inventory/MacOS/Networks.pm view on Meta::CPAN
}
if ($line =~ /inet ($ip_address_pattern)/) {
$interface->{IPADDRESS} = $1;
}
if ($line =~ /inet6 (\S+)/) {
$interface->{IPADDRESS6} = $1;
# Drop the interface from the address. e.g:
# fe80::1%lo0
# fe80::214:51ff:fe1a:c8e2%fw0
$interface->{IPADDRESS6} =~ s/%.*$//;
Future-Uring
view release on metacpan or search on metacpan
lib/Future/Uring.pm view on Meta::CPAN
return $future;
}
my %family_for = (
inet => AF_INET,
inet6 => AF_INET6,
unix => AF_UNIX,
);
my %type_for = (
stream => SOCK_STREAM,
Games-Axmud
view release on metacpan or search on metacpan
lib/Games/Axmud/Obj/Telnet.pm view on Meta::CPAN
use vars qw(@ISA);
@ISA = qw(Exporter);
if (&_io_socket_include) { # successfully required module IO::Socket
push @ISA, "IO::Socket::INET";
}
my $AF_INET6 = &_import_af_inet6();
my $AF_UNSPEC = &_import_af_unspec() || 0;
my $AI_ADDRCONFIG = &_import_ai_addrconfig() || 0;
my $EAI_BADFLAGS = &_import_eai_badflags() || -1;
my $EINTR = &_import_eintr();
lib/Games/Axmud/Obj/Telnet.pm view on Meta::CPAN
! $@;
} # end sub _have_alarm
sub _import_af_inet6 {
local $@;
eval {
local $SIG{"__DIE__"} = "DEFAULT";
Socket::AF_INET6();
};
} # end sub _import_af_inet6
sub _import_af_unspec {
local $@;
Gerrit-Client
view release on metacpan or search on metacpan
lib/Gerrit/Client.pm view on Meta::CPAN
The ssh command and initial arguments used when Gerrit::Client invokes
ssh.
# force IPv6 for this connection
local @Gerrit::Client::SSH = ('ssh', '-oAddressFamily=inet6');
my $stream = Gerrit::Client::stream_events ...
The default value is C<('ssh')>.
=item B<@Gerrit::Client::GIT>
IO-Async-SSL
view release on metacpan or search on metacpan
examples/delayed_sclient.pl view on Meta::CPAN
my $FAMILY;
GetOptions(
'd|dumpcert' => \$DUMPCERT,
'nv|no-verify' => \$NO_VERIFY,
'4|ipv4' => sub { $FAMILY = "inet" },
'6|ipv6' => sub { $FAMILY = "inet6" },
) or exit 1;
my $HOST = shift @ARGV or die "Need HOST";
my $PORT = shift @ARGV or die "Need PORT";
IO-Async
view release on metacpan or search on metacpan
examples/echo-server.pl view on Meta::CPAN
my $V6ONLY;
GetOptions(
'port|p=i' => \$PORT,
'4' => sub { $FAMILY = "inet" },
'6' => sub { $FAMILY = "inet6" },
'v6only=i' => \$V6ONLY,
) or exit 1;
my $loop = IO::Async::Loop->new;
IO-Handle-Record
view release on metacpan or search on metacpan
lib/IO/Handle/Record.pm view on Meta::CPAN
read_buffer expected expect_fds received_fds
end_of_input _received_fds
write_buffer fds_to_send written/;
use Errno qw/EAGAIN EINTR/;
use Carp;
my $have_inet6;
BEGIN {
eval {
require Socket6;
$have_inet6=1;
};
};
use Socket;
require XSLoader;
lib/IO/Handle/Record.pm view on Meta::CPAN
if( ref($obj)=~/Socket/ ) {
${*$obj}{io_socket_domain}=socket_family($fd);
${*$obj}{io_socket_type}=socket_type($fd);
if($obj->sockdomain==AF_INET or
($have_inet6 and $obj->sockdomain==&Socket6::AF_INET6) ) {
if($obj->socktype==SOCK_STREAM) {
${*$obj}{io_socket_proto}=&Socket::IPPROTO_TCP;
} elsif($obj->socktype==SOCK_DGRAM) {
${*$obj}{io_socket_proto}=&Socket::IPPROTO_UDP;
} elsif($obj->socktype==SOCK_RAW) {
IO-Socket-INET6
view release on metacpan or search on metacpan
},
'license' => "perl",
create_makefile_pl => 'traditional',
meta_merge => {
resources => {
repository => "https://github.com/shlomif/perl-io-socket-inet6",
},
keywords => [
"deprecated", "inet6", "input", "internet",
"ipv6", "network", "networking", "output",
"socket", "sockets",
],
},
);
IO-Socket-SSL
view release on metacpan or search on metacpan
lib/IO/Socket/SSL.pm view on Meta::CPAN
}
}
# Export some stuff
# inet4|inet6|debug will be handled by myself, everything
# else will be handled the Exporter way
sub import {
my $class = shift;
my @export;
foreach (@_) {
if ( /^inet4$/i ) {
# explicitly fall back to inet4
@ISA = 'IO::Socket::INET';
@caller_force_inet4 = caller(); # save for warnings for 'inet6' case
} elsif ( /^inet6$/i ) {
# check if we have already ipv6 as base
if ( ! UNIVERSAL::isa( $class, 'IO::Socket::INET6')
and ! UNIVERSAL::isa( $class, 'IO::Socket::IP' )) {
# either we don't support it or we disabled it by explicitly
# loading it with 'inet4'. In this case re-enable but warn
IO-SocketAlarm
view release on metacpan or search on metacpan
SocketAlarm_util.c view on Meta::CPAN
#ifdef AF_INET6
else if (addr->sa_family == AF_INET6) {
if (!inet_ntop(addr->sa_family, &((struct sockaddr_in6*)addr)->sin6_addr, tmp, sizeof(tmp)))
snprintf(tmp, sizeof(tmp), "(invalid?)");
port= ntohs(((struct sockaddr_in6*)addr)->sin6_port);
return snprintf(buffer, buflen, "inet6 [%s]:%d", tmp, port);
}
#endif
#ifdef AF_UNIX
else if (addr->sa_family == AF_UNIX) {
return snprintf(buffer, buflen, "unix %s", ((struct sockaddr_un*)addr)->sun_path);
IP-Country-DB_File
view release on metacpan or search on metacpan
lib/IP/Country/DB_File.pm view on Meta::CPAN
my $cc = substr($data, 4, 2);
return $addr ge $start ? $cc : undef;
}
sub inet6_ntocc {
my ($this, $addr) = @_;
$addr = substr($addr, 0, 8);
my ($key, $data);
lib/IP/Country/DB_File.pm view on Meta::CPAN
my $cc = substr($data, 4, 2);
return $addr ge $start ? $cc : undef;
}
sub inet6_atocc {
my ($this, $host) = @_;
my ($err, $result) = Socket::getaddrinfo($host, undef, {
family => Socket::AF_INET6,
socktype => Socket::SOCK_STREAM,
lib/IP/Country/DB_File.pm view on Meta::CPAN
use IP::Country::DB_File;
my $ipcc = IP::Country::DB_File->new();
my $cc = $ipcc->inet_atocc('1.2.3.4');
my $cc = $ipcc->inet_atocc('host.example.com');
my $cc = $ipcc->inet6_atocc('1a00:300::');
my $cc = $ipcc->inet6_atocc('ipv6.example.com');
=head1 DESCRIPTION
IP::Country::DB_File is a light-weight module for fast IP address to country
translation based on L<DB_File>. The country code database is stored in a
lib/IP/Country/DB_File.pm view on Meta::CPAN
my $cc = $ipcc->inet_ntocc($packed_address);
Like I<inet_atocc> but works with a packed IPv4 address.
=head2 inet6_atocc
my $cc = $ipcc->inet6_atocc($host);
Like I<inet_atocc> but works with IPv6 addresses or hosts.
=head2 inet6_ntocc
my $cc = $ipcc->inet6_ntocc($packed_address);
Like I<inet_ntocc> but works with a packed IPv6 address.
=head2 db_time
IPTables-Rule
view release on metacpan or search on metacpan
lib/IPTables/Rule.pm view on Meta::CPAN
}
}
} elsif ( $self->{ipver} eq '6' ) {
if ( $self->{src} ) {
# make sure it's ipv6
unless ( __is_valid_inet6($self->{src}) ) {
__errstr($self, 'IP Version is 6 but source is not valid IPv6');
return;
}
}
if ( $self->{dst} ) {
# make sure it's ipv6
unless ( __is_valid_inet6($self->{dst}) ) {
__errstr($self, 'IP Version is 6 but destination is not valid IPv6');
return;
}
}
} else {
lib/IPTables/Rule.pm view on Meta::CPAN
# fail by default
return;
}
sub __is_valid_inet6 {
my ( $arg ) = @_;
chomp($arg);
return unless ( $arg );
# ipv6 address?
return 1 if ( __is_inet6_host($arg) );
# ipv4 cidr?
return 1 if ( __is_inet6_cidr($arg) );
# ipv4 range?
return 1 if ( __is_inet6_range($arg) );
# fqdn?
return 1 if ( $arg =~ m/\A$qr_fqdn\z/ );
# fail by default
lib/IPTables/Rule.pm view on Meta::CPAN
# ipv4 address?
return 1 if ( __is_inet4_host($arg) );
# ipv6 address?
return 1 if ( __is_inet6_host($arg) );
# fqdn?
return 1 if ( $arg =~ m/\A$qr_fqdn\z/ );
# fail by default
lib/IPTables/Rule.pm view on Meta::CPAN
# fail by default
return;
}
sub __is_inet6_host {
my ( $arg ) = @_;
chomp($arg);
return unless ( $arg );
lib/IPTables/Rule.pm view on Meta::CPAN
# ipv4 cidr?
return 1 if ( __is_inet4_cidr($arg) );
# ipv6 cidr?
return 1 if ( __is_inet6_cidr($arg) );
# fail by default
return;
}
lib/IPTables/Rule.pm view on Meta::CPAN
# fail by default
return;
}
sub __is_inet6_cidr {
my ( $arg ) = @_;
chomp($arg);
return unless ( $arg );
lib/IPTables/Rule.pm view on Meta::CPAN
# ipv4 address range?
return 1 if ( __is_inet4_range($arg) );
# ipv6 address range?
return 1 if ( __is_inet6_range($arg) );
# fail by default
return;
}
lib/IPTables/Rule.pm view on Meta::CPAN
# fail by default
return;
}
sub __is_inet6_range {
my ( $arg ) = @_;
chomp($arg);
return unless ( $arg );
Internals-DumpArenas
view release on metacpan or search on metacpan
File ../nss/getXXbyYY_r.c:
int __getaliasbyname_r(const char *, struct aliasent *, char *, size_t, struct aliasent **);
int __old_getaliasbyname_r(const char *, struct aliasent *, char *, size_t, struct aliasent **);
File inet6_option.c:
uint8_t *inet6_option_alloc(struct cmsghdr *, int, int, int);
int inet6_option_append(struct cmsghdr *, const uint8_t *, int, int);
int inet6_option_find(const struct cmsghdr *, uint8_t **, int);
int inet6_option_init(void *, struct cmsghdr **, int);
int inet6_option_next(const struct cmsghdr *, uint8_t **);
int inet6_option_space(int);
static void add_pad(struct cmsghdr *, int);
static uint8_t *option_alloc(struct cmsghdr *, int, int, int);
File inet6_opt.c:
int inet6_opt_append(void *, socklen_t, int, uint8_t, socklen_t, uint8_t, void **);
int inet6_opt_find(void *, socklen_t, int, uint8_t, socklen_t *, void **);
int inet6_opt_finish(void *, socklen_t, int);
int inet6_opt_get_val(void *, int, void *, socklen_t);
int inet6_opt_init(void *, socklen_t);
int inet6_opt_next(void *, socklen_t, int, uint8_t *, socklen_t *, void **);
int inet6_opt_set_val(void *, int, void *, socklen_t);
File inet6_rth.c:
int inet6_rth_add(void *, const struct in6_addr *);
struct in6_addr *inet6_rth_getaddr(const void *, int);
void *inet6_rth_init(void *, socklen_t, int, int);
int inet6_rth_reverse(const void *, void *);
int inet6_rth_segments(const void *);
socklen_t inet6_rth_space(int, int);
File ../sysdeps/unix/sysv/linux/check_pf.c:
void __check_pf(_Bool *, _Bool *, struct in6addrinfo **, size_t *);
static int make_request(int, pid_t, _Bool *, _Bool *, struct in6addrinfo **, size_t *);
JCM-Net-Patricia
view release on metacpan or search on metacpan
libpatricia/patricia.c view on Meta::CPAN
#ifdef HAVE_IPV6
else if (family == AF_INET6) {
// Get rid of this with next IPv6 upgrade
#if defined(NT) && !defined(HAVE_INET_NTOP)
inet6_addr(string, &sin6);
return (New_Prefix (AF_INET6, &sin6, bitlen));
#else
if ((result = inet_pton (AF_INET6, string, &sin6)) <= 0)
return (NULL);
#endif /* NT */
Linux-Event-Listen
view release on metacpan or search on metacpan
lib/Linux/Event/Listen.pm view on Meta::CPAN
my ($port6, $addr6, $scope, $flow) = eval { unpack_sockaddr_in6($packed) };
if (defined $port6) {
my $host6 = inet_ntop(AF_INET6, $addr6);
return {
family => 'inet6',
host => $host6,
port => $port6,
scope_id => $scope,
};
}
Linux-WireGuard
view release on metacpan or search on metacpan
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
cmd route -q -n delete -inet "$destination" >/dev/null || true
done
todelete=( )
while read -r destination gateway _ netif; do
[[ $netif == "$REAL_INTERFACE" || ( $netif == lo* && $gateway == "$REAL_INTERFACE" ) ]] && todelete+=( "$destination" )
done < <(netstat -nr -f inet6)
for destination in "${todelete[@]}"; do
cmd route -q -n delete -inet6 "$destination" >/dev/null || true
done
for destination in "${ENDPOINTS[@]}"; do
if [[ $destination == *:* ]]; then
cmd route -q -n delete -inet6 "$destination" >/dev/null || true
else
cmd route -q -n delete -inet "$destination" >/dev/null || true
fi
done
}
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
cmd ifconfig "$REAL_INTERFACE" up
}
add_addr() {
if [[ $1 == *:* ]]; then
cmd ifconfig "$REAL_INTERFACE" inet6 "$1" alias
else
cmd ifconfig "$REAL_INTERFACE" inet "$1" "${1%%/*}" alias
fi
}
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
GATEWAY6=""
while read -r destination gateway _; do
[[ $destination == default && $gateway != "link#"* ]] || continue
GATEWAY6="$gateway"
break
done < <(netstat -nr -f inet6)
}
collect_endpoints() {
ENDPOINTS=( )
while read -r _ endpoint; do
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
fi
for endpoint in "${old_endpoints[@]}"; do
[[ $remove_all_old -eq 0 && " ${ENDPOINTS[*]} " == *" $endpoint "* ]] && continue
if [[ $endpoint == *:* && $AUTO_ROUTE6 -eq 1 ]]; then
cmd route -q -n delete -inet6 "$endpoint" >/dev/null 2>&1 || true
elif [[ $AUTO_ROUTE4 -eq 1 ]]; then
cmd route -q -n delete -inet "$endpoint" >/dev/null 2>&1 || true
fi
done
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
added+=( "$endpoint" )
continue
fi
if [[ $endpoint == *:* && $AUTO_ROUTE6 -eq 1 ]]; then
if [[ -n $GATEWAY6 ]]; then
cmd route -q -n add -inet6 "$endpoint" -gateway "$GATEWAY6" >/dev/null || true
else
# Prevent routing loop
cmd route -q -n add -inet6 "$endpoint" ::1 -blackhole >/dev/null || true
fi
added+=( "$endpoint" )
elif [[ $AUTO_ROUTE4 -eq 1 ]]; then
if [[ -n $GATEWAY4 ]]; then
cmd route -q -n add -inet "$endpoint" -gateway "$GATEWAY4" >/dev/null || true
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
add_route() {
[[ $TABLE != off ]] || return 0
local family=inet
[[ $1 == *:* ]] && family=inet6
if [[ $1 == */0 && ( -z $TABLE || $TABLE == auto ) ]]; then
if [[ $1 == *:* ]]; then
AUTO_ROUTE6=1
cmd route -q -n add -inet6 ::/1 -interface "$REAL_INTERFACE" >/dev/null
cmd route -q -n add -inet6 8000::/1 -interface "$REAL_INTERFACE" >/dev/null
else
AUTO_ROUTE4=1
cmd route -q -n add -inet 0.0.0.0/1 -interface "$REAL_INTERFACE" >/dev/null
cmd route -q -n add -inet 128.0.0.0/1 -interface "$REAL_INTERFACE" >/dev/null
fi
wireguard-tools/src/wg-quick/darwin.bash view on Meta::CPAN
save_config() {
local old_umask new_config current_config address cmd
new_config=$'[Interface]\n'
while read -r address; do
[[ $address =~ inet6?\ ([^ ]+) ]] && new_config+="Address = ${BASH_REMATCH[1]}"$'\n'
done < <(ifconfig "$REAL_INTERFACE")
# TODO: actually determine current DNS for interface
for address in "${DNS[@]}"; do
new_config+="DNS = $address"$'\n'
done
Mail-SPF-Query
view release on metacpan or search on metacpan
examples/sendmail-milter-INSTALL.txt view on Meta::CPAN
Filters are specified with a key letter ``X'' (for ``eXternal'').
For example:
Xfilter1, S=local:/var/run/f1.sock, F=R
Xfilter2, S=inet6:999@localhost, F=T, T=C:10m;S:1s;R:1s;E:5m
Xfilter3, S=inet:3333@localhost
specifies three filters. Filters can be specified in your .mc file using
the following:
INPUT_MAIL_FILTER(`filter1', `S=local:/var/run/f1.sock, F=R')
INPUT_MAIL_FILTER(`filter2', `S=inet6:999@localhost, F=T')
INPUT_MAIL_FILTER(`filter3', `S=inet:3333@localhost')
Which filters are invoked and their sequencing is handled by the
InputMailFilters option:
Mail-SpamAssassin-Contrib-Plugin-IPFilter
view release on metacpan or search on metacpan
lib/Mail/SpamAssassin/Contrib/Plugin/IPFilter.pm view on Meta::CPAN
param => sub { my $r = '^(?:(?:'.join(')|(?:',keys %{get_config()}).'))$'; $r=~s/\_/\\_/g; return qr/$r/sm; }->(),
martian_ip => sub {
my ($r, @buffer);
$r = find_bin('route');
map{ $_=~/^[ ]*([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)[ ]+([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)[ ]+(?:[0-9]+\.[0-9]+\.[0-9]+\.([0-9]+))[ ]/ && ((0<length($2) && ($2 ne '0.0.0.0') && push @buffer, $2) xor (0<length($1) && ($1 ne '0.0.0.0') && push @buffer, su...
map{ $_=~/^[ ]*([0-9a-f\:]+)[^0-9a-f\:]/i && sub { $_[1] =~ /[0-9a-f]\:[0-9a-f]/i && $_[1] !~ /^(?:(?:0000\:)|(?:fc00\:)|(?:fe80\:)|(?:ff00\:)|(?:2001\:0db8\:)|(?:2001\:0010\:)|(?:3ffe\:))/i && (push @{$_[0]}, lc($_[1]).'[a-f0-9]{2}') }->(\@buffe...
$r = '(?:'.join (')|(?:', @buffer).')';
$r =~ s/\Q.\E/\\./g;
$r =~ s/([0-9])\:/$1\\:/g;
use re 'eval';
#ipv6 needs *some* work
Mail-SpamAssassin
view release on metacpan or search on metacpan
lib/Mail/SpamAssassin/GeoDB.pm view on Meta::CPAN
my $res = {};
my $country;
if ($_[1] =~ IS_IPV4_ADDRESS) {
$country = $_[0]->{db}->{country}->inet_atocc($_[1]);
} else {
$country = $_[0]->{db}->{country}->inet6_atocc($_[1]);
}
if (!defined $country) {
dbg("geodb: IP::Country::DB_File country query failed for $_[1]");
return $res;
};
( run in 0.668 second using v1.01-cache-2.11-cpan-71847e10f99 )