Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

how do I set a cookie and redirect

by psmail (Initiate)
on Jun 29, 2001 at 19:22 UTC ( #92671=categorized question: print w/replies, xml ) Need Help??
Contributed by psmail on Jun 29, 2001 at 19:22 UTC
Q&A  > CGI programming


I am using CGI_Lite and I want to set a cookie and redirect to a url. I don't want to use which has a redirect method. Is there a way to redirect with setting a cookie and without using Thanks

Answer: how do I set a cookie and redirect
contributed by kwaping

Here's an example of how to do it using CGI's OO interface.

use CGI (); my $cgi = CGI->new(); my $cookie = $cgi->cookie(-name => 'test', -value => '1'); print $cgi->redirect(-uri => '', -cookie => $ +cookie);
Answer: how do I set a cookie and redirect
contributed by epoptai

Just print the headers like so:

print "Set-Cookie: name=value; path=path; domain=domain; expires=expir +es;\n"; print "Location:\n\n";
Answer: how do I set a cookie and redirect
contributed by SmokeyB

After you set your cookie, print out the following meta tag in the header of the file. It'll use the browser's refresh to direct you to a new page.

print qq~<meta http-equiv="refresh" content="0;URL=url.html">\n~;

Please (register and) log in if you wish to add an answer

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    [shmem]: but the results of both operations are different.
    [shmem]: result := the discarded result (what's leftmost of the statement)
    [shmem]: push returns the number of elements in @foo, the assignment returns all the elements in the (renewed) @foo
    [Lady_Aleena]: Sanity check please? push @line, ref($list_addition ) eq 'ARRAY' ? @$list_addition : $list_addiction; # so I don't have the change existing uses of the sub.
    [shmem]: $list_addiction should be $list_addition
    Discipulus loose the tozzetto party!
    [shmem]: .oO( addition of cookies for addiction to cookies )
    [Lady_Aleena]: Other than my typos shmem. 8)
    [shmem]: otherwise fine

    How do I use this? | Other CB clients
    Other Users?
    Others exploiting the Monastery: (7)
    As of 2017-04-27 11:40 GMT
    Find Nodes?
      Voting Booth?
      I'm a fool:

      Results (503 votes). Check out past polls.