zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-07-24 11:08:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.836

Browse source
This commit is contained in:
Nick Bebout 2017-09-23 16:54:48 -05:00
parent 3afeea4a16
commit 8d76e44c5e
243 changed files with 57452 additions and 10330 deletions
Download patch file Download diff file Expand all files Collapse all files

53
W/learn/resolvme Executable file
View file

@ -0,0 +1,53 @@
#!/usr/bin/perl
use strict ;
use warnings ;
use English ;
use Socket qw( SOCK_STREAM AI_CANONNAME NI_NUMERICHOST NIx_NOSERV getaddrinfo getnameinfo );
#use Socket::GetAddrInfo qw( getaddrinfo getnameinfo );
use IO::Socket;
check_name_and_service( @ARGV ) ;
sub check_name_and_service {
my ( $name, $service ) = @ARG ;
my %hints = ( socktype => SOCK_STREAM, flags => AI_CANONNAME );
my ( $err, @res ) = getaddrinfo( $name, $service, \%hints );
print "Cannot resolve name - $err\n" if $err;
my $sock;
foreach my $ai ( @res ) {
my $candidate = IO::Socket->new();
$candidate->timeout( 2 ) ;
print "family: ", $ai->{family},
"\nsocktype: ", $ai->{socktype},
"\nprotocol: ", $ai->{protocol},
"\ncanonname: ", $ai->{canonname},
"\ntimeout: ", $candidate->timeout,
"\n" ;
$candidate->socket( $ai->{family}, $ai->{socktype}, $ai->{protocol} )
or next ;
$candidate->connect( $ai->{addr} ) or next ;
$sock = $candidate;
if( $sock ) {
my ( $err, $host, $service ) = getnameinfo( $sock->peername );
print "Connected to $host:$service\n" if !$err;
my ($err, $ipaddr) = getnameinfo($ai->{addr}, NI_NUMERICHOST, NIx_NOSERV);
print "ipaddr: $ipaddr\n";
$sock->close ;
#last ;
}
}
}