in reply to Re^5: Cookie->fetch problem
in thread Cookie->fetch problem

There is no cookie named ID, i doubt there is even a cookie named CRESSIDA CGISESSID in there.

Did you ever read Re^9: Cookie->fetch problem? pay attention to the part after "but i just figured out your problem"

Edited to add:

your test should probably look like this 

my $id=0;
if ($cookies{'CGISESSID'}) { 
  $id = $cookies{'CGISESSID'}->value;
  }

[download]
but with the path that is set on that cookie you showed no cookies will be returned if you go to https://www.jala-mi.org/httpsdocs/index.html

Replies are listed 'Best First'.
Re^7: Cookie->fetch problem
by tultalk (Monk) on Mar 12, 2017 at 03:35 UTC

    There is no cookie named ID, i doubt there is even a cookie named CRESSIDA CGISESSID in there.

    Copy and paste: Ugh

[reply]
Re^7: Cookie->fetch problem
by tultalk (Monk) on Mar 12, 2017 at 03:59 UTC

    Hi:

    If I open the file http://www.jala-mi.org/httpsdocs/index.html I see the cookie.

    If I open www.jala-mi.org I don't see the cookie.

    If I open https://www.jala-mi.org/ I don't see the cookie

    If I open https://www.jala-mi.org/httpsdocs/index.html I see the cookie

    This is after I again changed path path=/httpsdocs/cgi-bin; domain=.www.jala-mi.org; Secure

    None of these executions from the directory where the cookie was showing produced a $sid from the cookie in the sub routine using code suggested

    As for posting code, I have repeatedly seen posters admonished for posting too much code.

    I have not seen anyplace to post images/code.

[reply]

      Hi: Changed path to / and cookie now shows everywhere

      Still is not detected in sub Problem has got to be isolated to this block of code. 

      sub GetUserSessionCookie
{
    warn("Entered GetUserSessionCookie Sessionname: '$sessionname'"); 
+   
    my $sid = 0;
    my %cookies;
    my $id=0;
    if ($cookies{'CGISESSID'}) { 
      $id = $cookies{'CGISESSID'}->value;
      $sid = $id;
    }
    
    warn($sid);      

#     $sid = 0;  #for testing the rest of program. If I put in valid S
+ID from #cookie recognizes user as logged on. 
    return $sid;
}

      [download]
[reply]
[d/l]

        what happened to 

        my %cookies = CGI::Cookie->fetch;

        [download]

[reply]
[d/l]

        tultalk, this is ridiculous

[reply]

In Section Seekers of Perl Wisdom