Simple HTTP::Daemon

[Christopher Stanton]

RedHat 9
Perl v5.8.0 built for i386-linux-thread-multi

I am trying to make a basic modification to a simple HTTP daemon which uses 
the HTTP::Daemon class.

I want to pass additional headers to the client prior to sending the body of 
the html message. I am setting the content-type header in the request object 
which is returned by the get_request method of my connection. 

When $c->send_response($r); is run I get this error:
Can't locate object method "code" via package "HTTP::Headers" at (eval 10) 
line 1

The code is below.

thanks for any help,
Christopher


#------------------------------------------------------------------

use HTTP::Daemon;
use HTTP::Status;

my $d = new HTTP::Daemon
        LocalAddr => 'localhost.localdomain',
        LocalPort => 3333;


if ( not defined $d ){
        print "$!\n";
        exit;
}

print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        $r->content_type('multipart/x-mixed-replace; boundary=--myboundary');

        if ($r->method eq 'GET' and $r->url->path eq "/jpeg") {
                $c->send_basic_header($code, $mess );
                $c->send_response($r);
        } else {
            $c->send_error(RC_FORBIDDEN)
        }
    }
    $c->close;
    undef($c);
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]