in reply to cookies n variables

Hi Lisa,

You can try the code below, which stores a cookie if it's not already present and retrieves it if it is:

#!/usr/local/bin/perl

use CGI qw(:standard);

#get the cookie
my $thiscookie = cookie('cookie');

if ($thiscookie) {
  msg("Cookie found: $thiscookie\n", '');
}
else {
  my $value = 'camel';
  my $cookie = cookie(-name => 'cookie', -value => $value);
  msg("Cookie set: $value", $cookie);
}

sub msg() {
  my ($msg, $cookie) = @_;
  if ($cookie) {
    print header(-cookie => $cookie);
  }
  else {
    print header();
  }
  print "<html>\n";
  print "<head>\n";
  print "<title>Cookie set....</title>\n";
  print "</head>\n";
  print "<body>\n";
  print "$msg<br>";
  print "</body>\n</html>\n";
  exit;
}

[download]
Code may not be perfect but it does give you an idea of what you want to do :)

kiat

In Section Seekers of Perl Wisdom