Sockets and HTTP

[lones]

Hi there,

I have written a small programme that simulates a web server. It reads the first line of incoming requests, which is generally "GET / HTTP1.1" and delivers the requested file if it exists. I wish to modify my programme so that it can read the entire HTTP header and any POST data that may be present, but
have been running into problems.

Can anyone give me a little help to help me with my project?
Thanks in advance.

 

[PaulTEG]

Without seeing it, the answer would be no ;-)

If you post what you're having a problem with we might be able to help

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[133tcamel]

if you're toy around with writing a web server then its a different thing but if this HTTP server is a part of a bigger project then you should try using HTTP:aemon, a standard perl Module distributed with lib

http://www-perl

(LWP). Plus you'll have the same amount of control as writing your own.

hth,
san

---
cheers!
san

print length "The answer to life, universe & everything!

 

[lones]

Hi there,

Here is the code. I will comment it to clarify what I want to accomplish:

sub service::_handleclienten($$$$) {
my $self = shift();
my $client = shift();
my $server = shift();
my $clientip = shift();

# I want $request to contain the entire HTTP header
# GET / HTTP/1.1
# Content-Type: html/gif
# Host:

http://www.somesite.com

# ...and so on....
# The following line only grabs the first line
# I thought about doing a:
# while (header) { add to hash...; }
my $request = <$client>;
my @request = split(/ /, $request);
my $file = $self->{_ROOT}.$request[1];

if (!(-e $file)) {
$file = $self->{_ROOT}.$self->{_DEFAULTDOCUMENT};
} elsif ($request[1] eq "/") {
$file = $self->{_ROOT}.$self->{_DEFAULTDOCUMENT};
}

open(F_OUT, "<", $file);
while(<F_OUT>) { print($client $_); }
close(F_OUT);

shutdown($client, 2);
}


I really appreciate your help!

 

[Kirsle]

You're reading from $client as a filehandle. In my experience, unless you flag another Perl global variable, returning a filehandle into a $scalar returns only the first line. Put it into an @array

my @message = <$client>;
chomp @message; # remove newline characters \n

 

[lones]

Hi,

When I do this, my browser just hangs, as my programme doesn't know when to stop reading from the handle (I presume)

 

[lones]

The ideal situation would be to read from the file handle <$client> until we reach a blank line. Then we are finished the header. If on the next line we find more data, then it is the POST payload.

Thnx.