Error occured "accept() on closed socket SERVER at proxy.pl line"

[vasu1308]

Hi all

I am working on a socket program in Perl. Main goal is to develop a proxy server. Here is the code attached. An error is encountered. Anyone Please help me out.

#!/usr/bin/perl -w
# server1.pl - a simple server
 
use strict;
use Socket;
use HTTP::Response;
use LWP::UserAgent;
use LWP::Simple;
use LWP 5.64;
 
# use port 6555 as default
my $port = shift || 6555;
my $proto = getprotobyname('tcp');
 
# create a socket, make it reusable
socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
 
# grab a port on this machine
my $paddr = sockaddr_in($port, INADDR_ANY);
 
# bind to a port, then listen
bind(SERVER, $paddr) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";
 
print "SERVER started on port $port\n";
 
my $client_addr;
while (1) {
    # find out who connected
    $client_addr = accept(CLIENT,SERVER);
    my ($client_port, $client_ip) = sockaddr_in($client_addr);
    my $client_ipnum = inet_ntoa($client_ip);
    my $client_host = gethostbyaddr($client_ip, AF_INET);
 
    my $pid = fork();
    if ($pid == 0) {
        &connection;
    }
    close SERVER or die "close: $!";
}
 
sub connection() {
    my $url = 'http://www.cs.memphis.edu/';
    my $browser = LWP::UserAgent->new;
    my $response = $browser->get( $url );
    my $result= $response->content;
    print CLIENT $result;
}
 

Thanks in advance
Vasudha

[miller]

Hi Vasu,

When debugging code and an error occurs, It is often helpful to actually share what the error is. Also, please start including your code within CODE tags. I've had to fix this in your posts multiple times now.

- Miller

[vasu1308]

Hi Miller,

Sorry about that. The following are the errors encountered....

accept() on closed socket SERVER at proxyn.pl line 31.
Use of uninitialized value in subroutine entry at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/Socket.pm line 370.
Bad arg length for Socket::unpack_ sockaddr_in, length is 0, should be 16 at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/Socket.pm line 370.


Thanks
Vasu