#!perl -wT

use CGI::Carp('fatalsToBrowser');
use warnings;
use CGI qw(:standard);
use CGI::Cookie;
use CGI;

@decodareCookie = ('\%3A','\%20');
%decodareCookie = ('\%3A',':');
$regCode = 01;
$nameCookie = "Test";
$query = CGI->new();
print header(-cookie=>$cookie);

# Make cookie 1

my $cookieListA = join(":",$nameCookie,$regCode,10);
my $listA = join(":",Product1,5);
my %cookie = CGI::Cookie->fetch;
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list);

# Make cookie 2

my $cookieListB = join(":",$nameCookie,$regCode,11);
my $listB = join(":",Product2,1);
my %cookie = CGI::Cookie->fetch;
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list);

# Make cookie 3

my $cookieListC = join(":",$nameCookie,$regCode,12);
my $listC = join(":",Product3,2);
my %cookie = CGI::Cookie->fetch;
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list);

print "$ENV{'HTTP_COOKIE'}<br><br>";

# Read each cookie and decode

foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
($cookie,$value) = split(/=/);
foreach $caracter (@decodareCookie) {
$cookie =~ s/$caracter/$decodareCookie{$caracter}/g;
$value =~ s/$caracter/$decodareCookie{$caracter}/g;
($idProgram, $nxRegCode, $nxIdProdus) = split (/:/, $cookie);
($nxDenumireP, $canditate) = split (/:/, $value);
}
if (($idProgram eq $nameCookie) && ($nxRegCode eq $regCode)) {

# Delete all cookies

my $cookieList = join(":",$idProgram,$nxRegCode,$nxIdProdus);
my $list = $canditate;
my %cookie = CGI::Cookie->fetch;
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list,-expires=>'-1h');
print "Delete cookies : $regCode $nxIdProdus $canditate $nxPretP | ";
}
}