On Mon, Mar 04, 2002 at 06:27:34AM -0800, Randal L. Schwartz wrote:
> >>>>> "Torbj�rn" == Torbj�rn lindahl <[EMAIL PROTECTED]> writes:
>
> Torbj�rn> All the headers are represented on a line each with a colon, but how do i
> Torbj�rn> reach the info on the first line, ie HTTP/1.0 200 OK
> Torbj�rn> are they represented by some key or do i have to parse the string and
> Torbj�rn> extract them with regexp?
[snip]
> Maybe Gisle could add $self->status_line that factors this out.
There is a $self->status_line:
sub status_line
{
my $self = shift;
my $code = $self->{'_rc'} || "000";
my $mess = $self->{'_msg'} || HTTP::Status::status_message($code) || "?";
return "$code $mess";
}
Maurice
