Oi Marcelo,
Obrigado pelo retorno! Quanto ao Perl estou usando a mesma versão que é
a 5.8.8
Aí vai o trecho:
my $nome_servidor= $ENV{'HOST'};
my $local_addr = ((gethostbyname($nome_servidor))[4]);
my $local_socket = pack('S n a4 x8', AF_INET, 0, $local_addr);
my $server_addr = (gethostbyname($SMTP_server))[4]; # SMTP info
my $server_socket = pack('S n a4 x8', AF_INET, $SMTP_port, $server_addr);
my $protocol = (getprotobyname('tcp'))[2];
my $erro = '';
if (!socket($SMTP, AF_INET, SOCK_STREAM, $protocol)) { # Create SOCKET
unless u
$erro = 'Erro criado socket em "abre_smtp": '.$!;
print $erro;
shutdown($SMTP, 2);
return $erro;
}
if (!(connect($SMTP, $server_socket))) {
$erro = 'Erro conectando ao SMTP em "abre_smtp": '.$!;
print $erro;
shutdown($SMTP, 2);
return $erro;
}
O erro ocorre neste último IF, ou seja, ele consegue criar mas não consegue
se conectar ao socket.
Na versão 6 do FreeBSD com o mesmo PERL 5.8.8 ele roda perfeitamente.
Obrigado
----- Original Message -----
From: "Marcelo Vilela" <[EMAIL PROTECTED]>
To: "Lista Brasileira de Discussão sobre FreeBSD (FUG-BR)"
<freebsd@fug.com.br>
Sent: Monday, August 18, 2008 9:13 PM
Subject: Re: [FUG-BR] Socket no FreeBSD 7
Olá,
Pode postar a parte do script que ele chama e configura o socket?
Outra dica é dar uma olhada no perl, provavelmente a versão dele
mudou.
Abraço,
2008/8/18 Aurélio de Souza Ribeiro Neto <[EMAIL PROTECTED]>:
> Tenho uma rotina em Perl que abre um socket com um servidor de e-mails
> para enviar as mensagens de saída da minha CGI.
>
> Depois que atualizei o FreeBSD para a versão 7, começei a encontrar o
> seguinte erro ao abrir o socket com o servidor SMTP:
>
> "Address family not supported by protocol family"
>
> Na versão 6, ele roda sem nenhum problema.
>
> Alguma dica? Já está desabilitado o IPV6.
>
> Abraços
> -------------------------
> Histórico: http://www.fug.com.br/historico/html/freebsd/
> Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd
>
-------------------------
Histórico: http://www.fug.com.br/historico/html/freebsd/
Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd
-------------------------
Histórico: http://www.fug.com.br/historico/html/freebsd/
Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd
