in reply to Re: searching for small Cookies example but found does not work
in thread searching for small Cookies example but found does not work

Hello,

I will post the examples here. Please be not angry, if I miss some rule. If I did not post it right, then plkease feel free to remove it.

cookie-set.pl

#-------------------EXAMPLE OF SETTING A COOKIE-----------------------
+----
#!/usr/bin/perl
require "/usr/local/apache/cgi-bin/cookie.pl";
   $cookie=&set_cookie("login","testuser",0,"/","www.domain.com");
print "$cookie\n";
print "Content-type: text/html\n\n";
print "Have we a cookie?????\n";

[download]

cookie-get.pl

#-------------------EXAMPLE OF GETTING A VALUE FROM A COOKIE----------
+----
#!/usr/bin/perl
require "/usr/local/apache/cgi-bin/cookie.pl";
   print "Content-type: text/html\n\n";
   $cookie=&get_cookie("login");
   if ($cookie ne "")
    {
     print "you have been authenticated as $cookie\n";
    }
   else
    {
     print "Somebody toss me a freakin' cookie....";
    }

[download]

cookie-del.pl

#-------------------EXAMPLE OF REMOVING A COOKIE----------------------
+----
#!/usr/bin/perl
require "/usr/local/apache/cgi-bin/cookie.pl";
   $cookie=&remove_cookie("login","/","www.domain.com");
print "$cookie\n";
print "Content-type: text/html\n\n";
print "Have we removed a cookie?????\n";

[download]

cookie.pl

#-------------------ROUTINE FILE STARTS HERE--------------------------
+----
#
# This routine takes (name,value,minutes_to_live,path,domain) as argum
+ents
# to set a cookie.
#
# 0 minutes means a current browser session cookie life
#
sub set_cookie() {
  my ($name,$value,$expires,$path,$domain) = @_;
  $name=&cookie_scrub($name);
  $value=&cookie_scrub($value);
  $expires=$expires * 60;
  my $expire_at=&cookie_date($expires);
  my $namevalue="$name=$value";
  my $COOKIE="";
  if ($expires != 0) {
     $COOKIE= "Set-Cookie: $namevalue; expires=$expire_at; ";
  }
   else {
     $COOKIE= "Set-Cookie: $namevalue; ";   #current session cookie if
+ 0
   }
  if ($path ne ""){
     $COOKIE .= "path=$path; ";
  }
  if ($domain ne ""){
     $COOKIE .= "domain=$domain; ";
  }
   
  return $COOKIE;
}
#
# This routine removes cookie of (name) by setting the expiration
# to a date/time GMT of (now - 24hours)
#
sub remove_cookie() {
  my ($name,$path,$domain) = @_;
  $name=&cookie_scrub($name);
  my $value="";
  my $expire_at=&cookie_date(-86400);
  my $namevalue="$name=$value";
  my $COOKIE= "Set-Cookie: $namevalue; expires=$expire_at; ";
  if ($path ne ""){
     $COOKIE .= "path=$path; ";
  }
  if ($domain ne ""){
     $COOKIE .= "domain=$domain; ";
  }
  return $COOKIE;
}
#
# given a cookie name, this routine returns the value component
# of the name=value pair
#
sub get_cookie() {
  my ($name) = @_;
  $name=&cookie_scrub($name);
  my $temp=$ENV{'HTTP_COOKIE'};
  @pairs=split(/\; /,$temp);
  foreach my $sets (@pairs) {
    my ($key,$value)=split(/=/,$sets);
    $clist{$key} = $value;
  }
  my $retval=$clist{$name};
  return $retval;
}
#
# this routine accepts the number of seconds to add to the server
# time to calculate the expiration string for the cookie. Cookie
# time is ALWAYS GMT!
#
sub cookie_date() {
  my ($seconds) = @_;
  my %mn = ('Jan','01', 'Feb','02', 'Mar','03', 'Apr','04',
            'May','05', 'Jun','06', 'Jul','07', 'Aug','08',
            'Sep','09', 'Oct','10', 'Nov','11', 'Dec','12' );
  my $sydate=gmtime(time+$seconds);
  my ($day, $month, $num, $time, $year) = split(/\s+/,$sydate);
  my    $zl=length($num);
  if ($zl == 1) { 
    $num = "0$num";
  }
  my $retdate="$day $num-$month-$year $time GMT";
  return $retdate;
}
#
# don't allow = or ; as valid elements of name or data
#
sub cookie_scrub() {
  my($retval) = @_;
  $retval=~s/\;//;
  $retval=~s/\=//;
  return $retval;
}
# usual kluge so require does not fail....
     my $XyZ=1;
#-------------------ROUTINE FILE ENDS HERE----------------------------
+----

[download]

I put these scripts in the (existing-project)/cgi-bin directory. The other scripts in the project run successfully. If I run cookie-set.pl I get: Have we a cookie????? ... and nothing else.

Replies are listed 'Best First'.
Re^3: searching for small Cookies example but found does not work
by haukex (Archbishop) on Aug 01, 2018 at 08:42 UTC

    The code you've showed works for me. The only significant change I had to make was to remove the "www.domain.com" argument from the calls to set_cookie. Perhaps you left it at its default value instead of setting it to your real domain name?

    However, I very much second the comments made by the other monks! That is, use a library instead of hand-written code, and use the right line endings (CRLF). I'd add to that: Use strict and warnings. (Also, as an aside, don't use empty prototypes like sub set_cookie() and then call via &set_cookie, which avoids the prototypes. Instead, get rid of the prototype, as in sub set_cookie {..., and then call via the more modern calling style without the &.)

[reply]
[d/l]
[select]
Re^3: searching for small Cookies example but found does not work
by bliako (Abbot) on Jul 31, 2018 at 09:33 UTC 
    print "$cookie\n";
print "Content-type: text/html\n\n";
print "Have we a cookie?????\n";

    [download]

    If you mean you can't see the actual cookie printed it is because you print it before sending content-type headers... Try moving all print statements you want to appear on your browser after printing content-type headers. And btw that \n\n should have been \r\n or more accurately:

    ... For example, most networking protocols expect and prefer a CR+LF ("\015\012" or "\cM\cJ" )

    It is for these trivial mistakes that CGI can save you a lot of trouble if not time. Here is how to set a cookie on client's browser:

    use CGI;
my $cgi = CGI->new;
my $cookie = $cgi->cookie(-name  => 'CookieName', -value => 'CookieVal
+ue' ...);

print $cgi->header( -cookie => $cookie,
                    -type    => 'text/html');
#print "just set a cookie on you<br>"
print $cgi->start_html("just set a cookie on you<br>");

    [download]
[reply]
[d/l]
[select]

      Looks like OP is just getting started. CGI states:

      "The rationale for this decision is that CGI.pm is no longer considered good practice for developing web applications, including quick prototyping and small web scripts. There are far better, cleaner, quicker, easier, safer, more scalable, more extensible, more modern alternatives available at this point in time. These will be documented with CGI::Alternatives.

      Mojolicious would be my recommendation, even with Mojolicious::Lite Signed cookie based sessions (with a cryptographic signature to prevent messing around) just work out of the box.

      Update: fixed typo.

[reply]
        Molicious: Contraction of moustache and delicious. Generally sarcastic, and particularly applies to porno moustaches and their wearer.

        One's tongue can't make that big a slip with the word "CGI(.pm)"! or can it?

        I have never written anything with Mojolicious, that's why I did not cite. My first and mainly negative impression with that (from their hello world app, which is the very first thing you see on their website) was that one had to deploy a Mojo-supplied webserver. That always makes me run away, am I wrong in that impression?

[reply]
[d/l]

In Section Seekers of Perl Wisdom