[FUG-BR] Socket no FreeBSD 7

[Aurélio de Souza Ribeiro Neto]

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" <marcelo.freebsd em gmail.com>
To: "Lista Brasileira de Discussão sobre FreeBSD (FUG-BR)" 
<freebsd em 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 <listasneto em mpc.com.br>:
> 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