Good morning monks:
I am having problems setting a cookie Can anyone look at my code and help me out?
#one.pl
#!/usr/bin/perl

use strict;

use CGI;


my $cgi = new CGI;

print
        $cgi->header;

print $cgi->start_html('A Simple Example'),
        $cgi->h1('A Simple Example'),
        $cgi->start_form(-action=>"test.pl"),
        "What's your name? ",$cgi->textfield('name'),
        $cgi->p,
        $cgi->submit,
        $cgi->end_form,


        $cgi->end_html;

[download]


#test.pl
#!/usr/bin/perl

use strict;
use CGI::Cookie;
use CGI;

my $cgi = new CGI;




print
        $cgi->header( -cookie => new CGI::Cookie(-name => 'name',
                                                 -value=> $cgi->param(
+'name'),
                                                 -expires => 'Thu, 26-
+Sep-2002 00:00:00 GMT',
                                                 -domain => 'students.
+cs.byu.edu'
                                                                     )
                ).
        $cgi->start_html(-title => 'A Simple Example',
                        -bgcolor => $cgi->param('color'));


if ($cgi->param())
{
print
        $cgi->center(
        $cgi->h3("Hello: ".
        $cgi->param('name')));

}
print
        $cgi->start_form(-action => "results.pl"),
        "What's your name? ",$cgi->textfield('name'),
        $cgi->p,
        "What's the combination?",
        $cgi->p,
        $cgi->checkbox_group(-name=>'words',
                  -values=>['eenie','meenie','minie','moe'],
                  -defaults=>['eenie','minie']),
        $cgi->p,
        "What's your favorite color? ",
        $cgi->popup_menu(-name=>'color',
              -values=>['red','green','blue','chartreuse']),
        $cgi->p,
        $cgi->submit('SUBMIT'),
        $cgi->end_form,
        
        


        $cgi->end_html();
exit(0);

[download]

#!/usr/bin/perl
# results.pl
use strict;
use CGI::Cookie;
use CGI;

my $cgi = new CGI;

print
        $cgi->start_html(-title => 'Results',
                        -bgcolor => $cgi->param('color'));



if ($cgi->param())
{
print
        $cgi->center(
        $cgi->h3("Hello: ".
        $cgi->param('name')),
        $cgi->p,
        "The keywords are: ",join(", ",$cgi->param('words')),
        $cgi->p,
        "Your favorite color is: ",$cgi->param('color'));



}
print
        $cgi->end_html();

exit(0);

[download]

-thanks

In reply to I am having problems setting a Cookie by chuleto1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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, details, 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, summary, 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.