Re: Re: Not able to set and retrieve cookie

b10m, thanks. That was it. Basically my cookie code was fine, it was just using the print statements for testing that was throwing me off. As soon as I moved the print "Content-type..."; below the cookie handling, everything was fine.

#!/usr/bin/perl
use strict;
use CGI;
my $query = new CGI;
my $username = int(rand 1000000);
my $result;

   my $cookie = $query->cookie('xmsessionID');  #check for cookie
   if (!$cookie) { 
      $result = "No cookie<br>"; 
   #goto &login;
   } else { 
      $result = "Cookie found: $cookie<br>"; 
   }
        
      #-------- write new cookie -----------
   my $newcookie = 
               $query->cookie(-name=>'xmsessionID',
                           -value=> $username,
                           -expires=>'+1m');
                                         
   print $query->header(-cookie=>$newcookie);
        
   print "Content-type: text/html\n\n";
   print $result,"<br>";
[download]

—Brad
"A little yeast leavens the whole dough."

Comment on Re: Re: Not able to set and retrieve cookie Select or Download Code

Replies are listed 'Best First'.
Re^3: Not able to set and retrieve cookie by Anonymous Monk on Apr 28, 2004 at 23:35 UTC
If you are using CGI (which you rightly should be as you are), you shouldn't manually output your headers. Calling `$query->header();` will do it for you, and `$query->header( -cookie => $newcookie );` will print out the Set-cookie header, as well as the Content-type header.	[reply] [d/l] [select]
Re: Re^3: Not able to set and retrieve cookie by bradcathey (Prior) on Apr 29, 2004 at 02:16 UTC
Sorry, I didn't quite follow you, but I wish I did. If you, whoever you are, get a chance, can you expound a bit? I can't tell if I was doing it right or if you were suggesting another way. Thanks. —Brad "A little yeast leavens the whole dough."	[reply]
Re: Re: Re^3: Not able to set and retrieve cookie by eric256 (Parson) on Apr 29, 2004 at 03:25 UTC
He was telling you that when you do `print $query->header(-cookie=>$newcookie);` Thats already going to print out the content-type so you don't need the following line at all. `print "Content-type: text/html\n\n";` ___________ Eric Hodges	[reply] [d/l] [select]