perl socket doesn't work anymore

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello, This code used to work perfectly:

 sub OpenClient{
    my $self =shift;
    use IO::Socket;

    $client = IO::Socket::INET->new(Proto    =>$ENV{FPPPRO},
                                    LocalPort=>$ENV{FPPORT},
                                    Listen   =>$ENV{FPMAXCON},
                                    Reuse    =>1) || $self->Usage ("Ca
+n't start
client: $!");

    $self->WriteLog ("Client running: Port:$ENV{FPPORT} Maxconnections
+:$ENV{FPMA}ON}");
[download]

But now it is broke. I've tried horcoding in the $ENV vars, but I still get the same result. Heck, even when I try the examples from the book, I still can't open the socket. Have I lost my mind oh great ones?

Comment on perl socket doesn't work anymore Download Code

Replies are listed 'Best First'.
Re: perl socket doesn't work anymore by themage (Friar) on Nov 30, 2006 at 15:56 UTC
Hi, knowing what's on your FPPPRO, FPPORT and FPMAXCON could help us helping you. Note: in the WriteLog param you have `$ENV{FPMA}ON}`. I presume that the first } sould be an X. TheMage Talking Web	[reply] [d/l]
Re^2: perl socket doesn't work anymore by Anonymous Monk on Nov 30, 2006 at 16:05 UTC
Good point, sorry: FPPORT = 5596 FPPPRO = tcp FPMAXCON = 5	[reply]
Re^3: perl socket doesn't work anymore by themage (Friar) on Nov 30, 2006 at 16:14 UTC
Hi, Looks ok for me. On your code replace: `$self->Usage ("Can't start client: $!");` [download] with `$self->Usage ("Can't start client: $@");` [download] And now, when you say it don't work, you mean that, more specificly? The socket is not opening, which error are you getting in $@? TheMage Talking Web	[reply] [d/l] [select]
Re^4: perl socket doesn't work anymore by Anonymous Monk on Nov 30, 2006 at 16:23 UTC
Re^5: perl socket doesn't work anymore by gellyfish (Monsignor) on Nov 30, 2006 at 16:31 UTC
Some notes below your chosen depth have not been shown here
Re: perl socket doesn't work anymore by ikegami (Patriarch) on Nov 30, 2006 at 16:19 UTC
What's the error message? If you're on SELinux and you get the problem when running the code from a CGI script, read Re^3: Can't call method... works locally, but not on webserver..	[reply]
Re^2: perl socket doesn't work anymore by Anonymous Monk on Nov 30, 2006 at 16:29 UTC
ok, this $@ is cool: Program: /var/opt/FirePower/bin/fireclient.pl Version: 2.0.0 Message: Can't start client: IO::Socket::INET: Bad protocol 'tcp' Usage: Why would tcp all of a sudden be a bad protocol? This is on solaris 8	[reply]
Re^3: perl socket doesn't work anymore by ikegami (Patriarch) on Nov 30, 2006 at 16:48 UTC
The protocol name is converted to a protocol number using getprotobyname, which serves as an interface to `/etc/protocols`. Maybe it changed? Maybe you're running under `chroot` and there's no `etc/protocols` under your virtual root?	[reply] [d/l] [select]
Re^4: perl socket doesn't work anymore by Anonymous Monk on Nov 30, 2006 at 16:52 UTC


Clear questions and runnable code get the best and fastest answer
	PerlMonks