Sorry,
forgot the error message:
Use of uninitialized value in join or string at (eval 9) line 16.
[ = my $type = $table->{'Content-type'}; ]
On Thu, 13 Jun 2002, Arnold van Kampen wrote:
>
>
>
> Hi
>
>
> Why do I have have so much trouble doing some header parsing?
> I am doing header parsing because I wanted to check out cookie behaviour
> on relocation/redirection by browser.
> I get stuck when I cannot get with the basic stuff. Clues appreciated..
>
>
> I tried to go back to basics with a small script but that also seems to
> refuse to work as I would expect.
>
> package Alfass::Reloc;
>
> use strict;
> use Apache::Constants;
> use Apache::Reload;
> use CGI qw(:standard :html3 :netscape);
> use Apache::Table;
>
> sub handler {
> my $r = shift;
> my $reason = $r->subprocess_env("AuthCookieReason");
> my $cookie = $r->header_in('Cookie');
> my $table = $r->headers_in;
> my $bla ="sdadsadadadasdadadadadadaaaaaaaaaaaaaaaaaaaaaaaa";
> my $type = $table->{'Content-type'};
>
> print header,start_html,
> h2($bla),
> h2($type),
> end_html;
>
> }
>
> 1;
> __END__
>
>
>
> Arnold van Kampen
>
>