in reply to cookie problem

What is $cg? I don't see it defined anywhere, nor do you have any module names that might provide a clue.

1 Peter 4:10

Replies are listed 'Best First'.
Re^2: cookie problem
by bigup401 (Pilgrim) on Nov 11, 2014 at 21:28 UTC

    cg is defined

    my $cg = new CGI;
[reply]
[d/l]

      You should post short but complete scripts that demonstrate your issue.

      Why do you have that continue statement? Using it as you have shown doesn't make any sense.

[reply]
        home.pl
$cg = new CGI;
my $cookie = $cg->cookie(-name => 'id',
                          -value => $user,
                          -expires => '+2m',
                          -path => '/');
       print $cg->redirect("wel.pl");
       print $cg->header(-cookie => $cookie);


wel.pl
my $cookie = $cg->cookie('id');
if ( ! $cookie )
{
  print $cg->redirect("home.pl");
}
elsif($cookie) {
#continue to the site if cookie exists 
}

        [download]
[reply]
[d/l]

        i have tried other way bt still failed bt i cant understand why its not working, when i put the user and press Submit button it reach at wel.pl and redirect me back to home.pl

        home.pl
$cg = new CGI;
my $cookie = $cg->cookie(-name => 'id',
                          -value => $user,
                          -expires => '+2m',
                          -path => '/');
       print $cg->redirect("wel.pl");
       print $cg->header(-cookie => $cookie);


wel.pl
my $cookie = $cg->cookie('id');
if ( ! $cookie )
{
  print $cg->redirect("home.pl");
}
elsif($cookie) {
#continue to the site if cookie exists 
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom