Cookie-Problem beim Schreiben

[Steve]

Hallo zusammen,

ich habe folgendes Skript geschrieben, dass ein Cookie auslesen soll. Wenn das Cookie nicht da ist, soll dies angelegt werden. Wenn ich das Skript direkt über http://localhost/cgi-bin/cookie.pl aufrufe, geht alles korrekt. Wenn ich dieses aber über Server Sides Include einbinde, dann geht es nicht
z.B. mit
<!--#exec cgi="/cgi-bin/cookie.pl" -->

Ich habe mal gehört, dass man den Befehl für das Setzen des Cookies ganz "oben einbinden" soll. Ich habe den SSI-Befehl auch schon vor die META-Angaben definiert.

Weiss jemand Rat woran das liegr?

use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $query = new CGI;

my $cookie_read = $query->cookie("adv");

if(!$cookie_read)
{
 my $cookie_set = $query->cookie(-name  => "adv",
                                 -value => "1");
 print $query->header(-cookie=>$cookie_set);
}
else
{
 print $query->header("");
}

[Dieter Friedhelm]

hallo,

vorab: ich kenne mich mit perl nicht aus.

my $cookie_read = $query->cookie("adv");

Bist Du dir an dieser Stelle sicher, dass auch beim Nichtvorhandensein
des Cookies 'false' zurückgeliefert wird, so dass folgender Zweig
überhaupt aufgerufen wird:

if(!$cookie_read) {
my $cookie_set = $query->cookie(-name  => "adv",-value => "1");

?

Dieter