#!perl -wT

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


$query = CGI->new();
my %cookie = CGI::Cookie->fetch;

@decodareCookie = ('\%3A','\%20');
%decodareCookie = ('\%3A',':','\%20','##');
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 Steel) && ($nxRegCode eq 01)) {
my $cookieList = join(":",Steel,$nxRegCode,$nxIdProdus);
my $list = join(":",$nxDenumireP,$canditate);
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list,-expires=>'-1h');
print header(-cookie=>$cookie);
print "<center><h2>Produs adaugat pentru plata</h2></center><br>";
print "<br>$ENV{'HTTP_COOKIE'}";
}
}