1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| #!/usr/bin/perl -w
use CGI;
use DBI;
#######
# Excécuté par <img src="TestCook.cgi?iaf=12345:548&dr=LeDomaineB">
# ce script doit écrire un cookie pour être lu en <img src appelé depuis un autre site afin de connaître le code partenaire qui l'a généré
# problème: si on appelle un script du domaine A depuis le domaine B, le navigateur considère que le domaine du cookie doit être B pour lire
# DONC: on doit écrire le cookie pour le domaine B et lire lire depuis le domanie B
# problème: il faut forcer l'écriture pour un autre domaine... p3p?
#######
$q = new CGI;
%form=&receiveget;
$tciaf = $form{'tciaf'};
$dr = $form{'dr'}; # domaine du partenaire
($cname, $iaf) = split(/:/, $tciaf);
print $q->header(-p3p => 'policyref="http://mondomaine.com/p3p.xml'); ## si on ne mets pas cette ligne le cookie s'écrit mais dans le domaine ...
### il semble que des paramêtres doivent être envoyé: CP="NON DSP COR CURa PSA PSD OUR BUS NAV STA' ???
$cookiaf = $q->cookie($cname);
if (!$cookiaf ) {
$session_timeout = "+1M";
$cookie = $q->cookie( -name => $cname,
-values => $iaf,
-expires => $session_timeout,
-domain => $dr,
-path => '/',
);
print $q->header( -cookie=>$cookie ); #print header (-cookie => $cookie);
}
print ("Content-type: image/x-xbitmap\n\n"); #x-xbitmap |
Partager