[Cascavel-pm] Re: Usando Perl e samba, ssh, smtp, etc ....

[Ednardo Lobo]

On Wed, Jan 08, 2003 at 12:10:52PM -0200, Marcia Henke wrote:
> Olá Pessoal !!
>
> Sou nova na lista,  e gostaria de saber se alguem  tem algum script ou
> conhece a biblioteca para criar um  script, onde posso testar se porta
> 139 (Samba) esta respondendo, bem como ssh, smtp.
>
> No aguardo aciosamente
> Márcia
>

    Use a lib `IO::Socket::INE', é um lib padrão!

    -----------------
    use strict;
    use IO::Socket::INET;

    my $sock;

    $sock = IO::Socket::INET->new(
                                   PeerAddr => 'localhost',
                                   PeerPort => '139',
                                   Proto    => 'tcp'
                                 );

    if (not undef $sock) {
        print "Serviço UP";
    }
    else {
        print "Serviço DOW\n"
    }
    -----------------

    Não testei, mas isso deve funcionar !!!

-- 
    Ednardo Lobo - www.elobo.cjb.net

--
	As esplendidas fortunas - como os ventos impetuosos - 
	provocam grandes naufragios.
		-- Plutarco