& Cookie setzen funktioniert nicht (habe orginal Script)

[Steffen Wawryniuk]

Hi,

ich habe mir aus dem Archive die BESTEN Dinge rausgesucht und ein Script herausgesucht:

sub register {
   print "Content-type: text/html\n\n";
if(defined ($id=cookie(-name => 'ID'))) { # Cookie gesetzt!
      print header();
   print b("Nummer $id! Was für eine Freude!");
                                      }
else { $id = unpack ('H*', pack('Nc', time, $$ % 0xff));
       $cookie = cookie('-name' => 'ID',
                     '-value' => $id,
      '-expiries' => '+1d',
      '-domain' => '.arenaxtreme.de');
  print header('-cookie' => $cookie);
  print b("Willkommen bei der Cookie-Mafia, Nummer $id!");
  }          
}

Das Script erkennt IMMER das KEIN Cookie da is, und setzt IMMER einen neuen...
DER wird ABER nicht GESPEICHERT ....  und somit durchläuft das Script IMMER die ELSE Routine ohne den Cookie NUN WIRKLICH zu setzen ..

DANKE FÜR EURE Hilfe