Perl-JavaScript - Requêtes > wsCaD_log > submit

Naviguation dans :	Perl	JavaScript	Détail	- par cas d'appel / par traitements
présentée :	par cas d'appel par traitements

submit

Requêtes de Ça-déménage.com
Requête de log d'accès
Appel de la requête

printLog | getLog

printLog

Appel de la requête — Ecriture de la log

Exemple :
Sur le poste client :

<script type="text/javascript"><!--
 var y=''
 y+= ('<img border="0" width="1" height="1" src="wsCaD_log.cgi?');
 y+= ('Appel='); if ((document.referrer!=null)&&(document.referrer!='')) {y+= escape(document.referrer)}
 y+= ('&Cible='+(Math.random()*100000000)+'>');
document.write(y)
// --></script>
<noscript><img border="0" width="1" height="1" src="wsCaD_log.cgi?Appel=&Cible="></noscript>

Sur le serveur :

Champ 'Appel' = "<HTTP_REFERRER>" – url précédant sur le navigateur du client la page actuellement chargée
Champ 'Cible' = "<nombre aléatoire>" – force l'appel de la requête pour des chargements répétés de la page

Syntaxe

submit_log()

Paramètres

nom	type	Description
–	IN	Données issues du client
retourne	OUT	Image GIF

Fonctions util.

printLog	Ecriture de la log
Parser	Recevoir des données issues du client

Code Perl



sub submit_log { 
 local($n); 
 local(%form,$i); 
 local $appel = ""; 
 %form = ();
if (($i=&Parser(\%form))==0) {if (defined $form{'Appel'}) {$appel = $form{'Appel'};
 $n = &printLog("",'Log',"/#T(Appel):".$appel);
}}
 print "Content-type: image/gif\n\n";
}

Code JavaScript



function submit_log() { 
 var n; 
 var form,i; 
 var appel = ""; 
 form = new Array(Array());
 n = printLog("",'Log',"/#T(Appel):"+appel);
}

</script>