#(from HTTP::Daemon line 563)

sub send_basic_header
{
    my $self = shift;
    return if $self->antique_client;
    $self->send_status_line(@_);
#taken out    print $self "Date: ", time2str(time), $CRLF;
    my $product = $self->daemon->product_tokens;
#taken out    print $self "Server: $product$CRLF" if $product;
}