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.

In reply to Re^2: searching for small Cookies example but found does not work by toohoo
in thread searching for small Cookies example but found does not work by toohoo

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.