J
Joe
Hello -
I wrote some Perl for a Web based e-mail client. The code worked fine
for quite a while until recently when I get my error message show up
all the time.
Here is a snipped of the code:
# Connect to the POP server using port 110
$SocketHandle = IO::Socket::INET->new (Proto=>"tcp",
PeerAddr=>$ServerName, PeerPort=>$Port);
if (!$SocketHandle)
{
# Customized Error Function
Error("cannot connect to port <B>$Port</B> on <B>$ServerName</B>",
"Back");
exit(0);
}
The web hosting company keeps telling me that they didn't change
anything and that they can connect fine via telnet ServerName 110.
Was this code correct to begin with? Maybe I used some functionality
that has been deprecated since? Is there a way to better debug and
find out why !$SocketHandle is returned?
Thanks,
Joe
I wrote some Perl for a Web based e-mail client. The code worked fine
for quite a while until recently when I get my error message show up
all the time.
Here is a snipped of the code:
# Connect to the POP server using port 110
$SocketHandle = IO::Socket::INET->new (Proto=>"tcp",
PeerAddr=>$ServerName, PeerPort=>$Port);
if (!$SocketHandle)
{
# Customized Error Function
Error("cannot connect to port <B>$Port</B> on <B>$ServerName</B>",
"Back");
exit(0);
}
The web hosting company keeps telling me that they didn't change
anything and that they can connect fine via telnet ServerName 110.
Was this code correct to begin with? Maybe I used some functionality
that has been deprecated since? Is there a way to better debug and
find out why !$SocketHandle is returned?
Thanks,
Joe