Naviguation dans :  Perl  JavaScript  Détail  - par cas d'appel / par traitements
 présentée :  par cas d'appel   par traitements 
Retour à l'accueil
  
 
 Requêtes 

 wsCaD_log 

 submit 

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


 getLog  Appel de la requête — Lecture de la log

Exemple :
Sur le poste client : 
<script type="text/javascript" src="wsCaD_log.cgi"></script>
Sur le serveur :
Retourne la valeur de la log
Syntaxe submit_log()
Paramètres 
nom  type  Description 
–  IN Données issues du client
retourne  OUT  Code JavaScript
Fonctions util. 
 getLog Lecture de la log


Code Perl 


sub submit_log { 
 local($n); 
 $n = &getLog("");
 local $x=''; 
 $x.= ('var IE4 = document.all')."\n";
 $x.= ('var NS6 = !IE4&&document.getElementById')."\n";
 $x.= ('var PC = navigator.userAgent.match(/Windows/i)')."\n";
 $x.= ('')."\n";
 $x.= ('if ((IE4||NS6)&&PC) {')."\n";
 $x.= ('')."\n";
 $x.= ('function wsDiv1(nom) {')."\n";
 $x.= (' return window.document.getElementById(nom)')."\n";
 $x.= ('}')."\n";
 $x.= ('')."\n";
 $x.= (' var x=\'\'')."\n";
 $x.= (' var c = IE4?0:2')."\n";
 $x.= (' var n,i')."\n";
 $x.= (' x+= (\'<div id="roul" style="position:absolute; left:10; top:101; visibility:hidden">\')')."\n";
 $x.= ('n=1; x+= (\'<div style="position:absolute; left:538; top:-300; height:\'+(229-c*n)+\'; width:\'+(161-c*n)+\'; border:\'+n+\'px solid #C0C0C0; color:#FFFFFF"><br><p style="font-size:8pt; text-align:center">&nbsp;Depuis le 1/1/2004</p></div>\')')."\n";
 $x.= ('n=4; x+= (\'<div style="position:absolute; left:539; top:-299; height:\'+(227-c*n)+\'; width:\'+(159-c*n)+\'; border:\'+n+\'px solid #000040">&nbsp;</div>\')')."\n";
 $x.= ('n=1; x+= (\'<div style="position:absolute; left:542; top:-296; height:\'+(221-c*n)+\'; width:\'+(153-c*n)+\'; border:\'+n+\'px solid #C0C0C0">&nbsp;</div>\')')."\n";
 $x.= (' x+= (\'<div style="position:absolute; left:550; top:-90">\')')."\n";
 $x.= (' x+= (\'<table border="0" cellpadding="0" cellspacing="0"><tr>\')')."\n";
 $x.= (' x+= (\'<td><img border="0" src="dircad/images/chifL.gif" width="10" height="33"></td>\')')."\n";
 $x.= ('for(i=0;i<6;i++) {')."\n";
 $x.= (' if (i!=0) {x+= (\'<td><img border="0" src="dircad/images/chifC.gif" width="3" height="33"></td>\')}')."\n";
 $x.= (' x+= (\'<td><img id="imgH\'+i+\'" border="0" src="dircad/images/chif0.gif" width="17" height="0"><br><img id="imgB\'+i+\'" border="0" src="dircad/images/chif0.gif" width="17" height="31"></td>\')')."\n";
 $x.= ('}')."\n";
 $x.= (' x+=\'\'')."\n";
 $x.= (' + (\'<td><img border="0" src="dircad/images/chifR.gif" width="10" height="33"></td>\')')."\n";
 $x.= (' + (\'</tr></table>\')')."\n";
 $x.= (' + (\'</div></div>\')')."\n";
 $x.= ("window.document.write(x)")."\n";
 $x.= ('')."\n";
 $x.= ('var Timg = new Array()')."\n";
 $x.= ('')."\n";
 $x.= (' Timg[0] = new Image(); Timg[0].src = "dircad/images/chifL.gif"')."\n";
 $x.= (' Timg[1] = new Image(); Timg[1].src = "dircad/images/chifC.gif"')."\n";
 $x.= (' Timg[2] = new Image(); Timg[2].src = "dircad/images/chifR.gif"')."\n";
 $x.= (' for(var i=0;i<=9;i++) {Timg[3+i] = new Image(); Timg[3+i].src = "dircad/images/chif"+i+".gif"}')."\n";
 $x.= ('')."\n";
 $x.= ('function shiftStart() {')."\n";
 $x.= ('if (!flagAnime) {return}')."\n";
 $x.= ('if (IE4) {')."\n";
 $x.= ('Fin: {')."\n";
 $x.= (' for(var i=0;i<=3;i++) {if (!Timg[i].complete) {break Fin}}')."\n";
 $x.= (' wsDiv1("roul").style.visibility = "visible"')."\n";
 $x.= ('}')."\n";
 $x.= (' for(var i=0;i<=9;i++) {if (!Timg[3+i].complete) {setTimeout(\'shiftStart()\',100); return}}')."\n";
 $x.= ('} else {')."\n";
 $x.= (' wsDiv1("roul").style.visibility = "visible"')."\n";
 $x.= ('}')."\n";
 $x.= (' shiftDo(0,true)')."\n";
 $x.= (' shiftRoll('.$n.''.',1,0,0,1)')."\n";
 $x.= ('}')."\n";
 $x.= ('')."\n";
 $x.= ('function shiftEnd() {')."\n";
 $x.= (' setTimeout(\'shiftDo(0,false)\',1000)')."\n";
 $x.= ('}')."\n";
 $x.= ('')."\n";
 $x.= ('function shiftRoll(x,i,n,sz,sens) {')."\n";
 $x.= (' var pow,n0,k,i1')."\n";
 $x.= (' pow = Math.pow(10,5-sz+1); n0 = Math.floor(x%pow/pow*10)')."\n";
 $x.= (' i += 6')."\n";
 $x.= ('for(k=sz;k<=5;k++) {')."\n";
 $x.= (' i1 = ((k!=sz)||(sens!=3)?i:i-6*2); i1 = ((i1-1)%30)+1')."\n";
 $x.= (' wsDiv1("imgH"+k).height = i1; wsDiv1("imgB"+k).height = 31-i1')."\n";
 $x.= ('}')."\n";
 $x.= ('if (sens==2) {if (i==1+6*2) {')."\n";
 $x.= (' sens = 3')."\n";
 $x.= ('}}')."\n";
 $x.= ('if (sens==3) {if (i==1+6*4) {')."\n";
 $x.= (' wsDiv1("imgH"+sz).height = 0; wsDiv1("imgB"+sz).height = 31')."\n";
 $x.= (' sens = 1')."\n";
 $x.= (' sz++')."\n";
 $x.= (' if (sz>5) {shiftEnd(); return}')."\n";
 $x.= (' wsDiv1("roul").childNodes[0].style.color = ((sz>=2)?"#000000":"#FFFFFF")')."\n";
 $x.= ('}}')."\n";
 $x.= ('if (i==31) {')."\n";
 $x.= (' n = ((n+1)%10)')."\n";
 $x.= ('for(k=sz;k<=5;k++) {')."\n";
 $x.= (' wsDiv1("imgH"+k).src = "dircad/images/chif"+((n+1)%10)+".gif"')."\n";
 $x.= (' wsDiv1("imgB"+k).src = "dircad/images/chif"+n+".gif"')."\n";
 $x.= ('}')."\n";
 $x.= (' i = 1; if (n==n0) {sens = 2}')."\n";
 $x.= ('}')."\n";
 $x.= (' setTimeout(\'shiftRoll(\'+x+\',\'+i+\',\'+n+\',\'+sz+\',\'+sens+\')\',50)')."\n";
 $x.= ('}')."\n";
 $x.= ('')."\n";
 $x.= ('function shiftDo(val,flag) {')."\n";
 $x.= (' var x = val*1.8')."\n";
 $x.= (' if (val>=99) {val = 100} else {val = Math.sin(Math.asin(val/100)+0.2*3.1416/2)*100}')."\n";
 $x.= (' x = Math.round(val*1.8-x)')."\n";
 $x.= (' with(wsDiv1("roul").childNodes[0].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')."\n";
 $x.= (' with(wsDiv1("roul").childNodes[1].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')."\n";
 $x.= (' with(wsDiv1("roul").childNodes[2].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')."\n";
 $x.= (' with(wsDiv1("roul").childNodes[3].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')."\n";
 $x.= (' if (val<100) {shiftTimeout = setTimeout(\'shiftDo(\'+val+\',\'+flag+\')\',50)}')."\n";
 $x.= ('}')."\n";
 $x.= ('')."\n";
 $x.= ('}')."\n";
 print "Content-type: text/javascript\n\n";
 print $x.'shiftStart();';
}
Code JavaScript 


function submit_log() { 
 var n; 
 n = getLog("");
 var x=''; 
 x+= ('var IE4 = document.all')+"\n";
 x+= ('var NS6 = !IE4&&document.getElementById')+"\n";
 x+= ('var PC = navigator.userAgent.match(/Windows/i)')+"\n";
 x+= ('')+"\n";
 x+= ('if ((IE4||NS6)&&PC) {')+"\n";
 x+= ('')+"\n";
 x+= ('function wsDiv1(nom) {')+"\n";
 x+= (' return window.document.getElementById(nom)')+"\n";
 x+= ('}')+"\n";
 x+= ('')+"\n";
 x+= (' var x=\'\'')+"\n";
 x+= (' var c = IE4?0:2')+"\n";
 x+= (' var n,i')+"\n";
 x+= (' x+= (\'<div id="roul" style="position:absolute; left:10; top:101; visibility:hidden">\')')+"\n";
 x+= ('n=1; x+= (\'<div style="position:absolute; left:538; top:-300; height:\'+(229-c*n)+\'; width:\'+(161-c*n)+\'; border:\'+n+\'px solid #C0C0C0; color:#FFFFFF"><br><p style="font-size:8pt; text-align:center">&nbsp;Depuis le 1/1/2004</p></div>\')')+"\n";
 x+= ('n=4; x+= (\'<div style="position:absolute; left:539; top:-299; height:\'+(227-c*n)+\'; width:\'+(159-c*n)+\'; border:\'+n+\'px solid #000040">&nbsp;</div>\')')+"\n";
 x+= ('n=1; x+= (\'<div style="position:absolute; left:542; top:-296; height:\'+(221-c*n)+\'; width:\'+(153-c*n)+\'; border:\'+n+\'px solid #C0C0C0">&nbsp;</div>\')')+"\n";
 x+= (' x+= (\'<div style="position:absolute; left:550; top:-90">\')')+"\n";
 x+= (' x+= (\'<table border="0" cellpadding="0" cellspacing="0"><tr>\')')+"\n";
 x+= (' x+= (\'<td><img border="0" src="dircad/images/chifL.gif" width="10" height="33"></td>\')')+"\n";
 x+= ('for(i=0;i<6;i++) {')+"\n";
 x+= (' if (i!=0) {x+= (\'<td><img border="0" src="dircad/images/chifC.gif" width="3" height="33"></td>\')}')+"\n";
 x+= (' x+= (\'<td><img id="imgH\'+i+\'" border="0" src="dircad/images/chif0.gif" width="17" height="0"><br><img id="imgB\'+i+\'" border="0" src="dircad/images/chif0.gif" width="17" height="31"></td>\')')+"\n";
 x+= ('}')+"\n";
 x+= (' x+=\'\'')+"\n";
 x+= (' + (\'<td><img border="0" src="dircad/images/chifR.gif" width="10" height="33"></td>\')')+"\n";
 x+= (' + (\'</tr></table>\')')+"\n";
 x+= (' + (\'</div></div>\')')+"\n";
 x+= ('wsDiv1("client").innerHTML = x')+"\n"; 
 x+= ('')+"\n";
 x+= ('var Timg = new Array()')+"\n";
 x+= ('')+"\n";
 x+= (' Timg[0] = new Image(); Timg[0].src = "dircad/images/chifL.gif"')+"\n";
 x+= (' Timg[1] = new Image(); Timg[1].src = "dircad/images/chifC.gif"')+"\n";
 x+= (' Timg[2] = new Image(); Timg[2].src = "dircad/images/chifR.gif"')+"\n";
 x+= (' for(var i=0;i<=9;i++) {Timg[3+i] = new Image(); Timg[3+i].src = "dircad/images/chif"+i+".gif"}')+"\n";
 x+= ('')+"\n";
 x+= ('function shiftStart() {')+"\n";
 x+= ('if (!flagAnime) {return}')+"\n";
 x+= ('if (IE4) {')+"\n";
 x+= ('Fin: {')+"\n";
 x+= (' for(var i=0;i<=3;i++) {if (!Timg[i].complete) {break Fin}}')+"\n";
 x+= (' wsDiv1("roul").style.visibility = "visible"')+"\n";
 x+= ('}')+"\n";
 x+= (' for(var i=0;i<=9;i++) {if (!Timg[3+i].complete) {setTimeout(\'shiftStart()\',100); return}}')+"\n";
 x+= ('} else {')+"\n";
 x+= (' wsDiv1("roul").style.visibility = "visible"')+"\n";
 x+= ('}')+"\n";
 x+= (' shiftDo(0,true)')+"\n";
 x+= (' shiftRoll('+n.toString()+',1,0,0,1)')+"\n";
 x+= ('}')+"\n";
 x+= ('')+"\n";
 x+= ('function shiftEnd() {')+"\n";
 x+= (' setTimeout(\'shiftDo(0,false)\',1000)')+"\n";
 x+= ('}')+"\n";
 x+= ('')+"\n";
 x+= ('function shiftRoll(x,i,n,sz,sens) {')+"\n";
 x+= (' var pow,n0,k,i1')+"\n";
 x+= (' pow = Math.pow(10,5-sz+1); n0 = Math.floor(x%pow/pow*10)')+"\n";
 x+= (' i += 6')+"\n";
 x+= ('for(k=sz;k<=5;k++) {')+"\n";
 x+= (' i1 = ((k!=sz)||(sens!=3)?i:i-6*2); i1 = ((i1-1)%30)+1')+"\n";
 x+= (' wsDiv1("imgH"+k).height = i1; wsDiv1("imgB"+k).height = 31-i1')+"\n";
 x+= ('}')+"\n";
 x+= ('if (sens==2) {if (i==1+6*2) {')+"\n";
 x+= (' sens = 3')+"\n";
 x+= ('}}')+"\n";
 x+= ('if (sens==3) {if (i==1+6*4) {')+"\n";
 x+= (' wsDiv1("imgH"+sz).height = 0; wsDiv1("imgB"+sz).height = 31')+"\n";
 x+= (' sens = 1')+"\n";
 x+= (' sz++')+"\n";
 x+= (' if (sz>5) {shiftEnd(); return}')+"\n";
 x+= (' wsDiv1("roul").childNodes[0].style.color = ((sz>=2)?"#000000":"#FFFFFF")')+"\n";
 x+= ('}}')+"\n";
 x+= ('if (i==31) {')+"\n";
 x+= (' n = ((n+1)%10)')+"\n";
 x+= ('for(k=sz;k<=5;k++) {')+"\n";
 x+= (' wsDiv1("imgH"+k).src = "dircad/images/chif"+((n+1)%10)+".gif"')+"\n";
 x+= (' wsDiv1("imgB"+k).src = "dircad/images/chif"+n+".gif"')+"\n";
 x+= ('}')+"\n";
 x+= (' i = 1; if (n==n0) {sens = 2}')+"\n";
 x+= ('}')+"\n";
 x+= (' setTimeout(\'shiftRoll(\'+x+\',\'+i+\',\'+n+\',\'+sz+\',\'+sens+\')\',50)')+"\n";
 x+= ('}')+"\n";
 x+= ('')+"\n";
 x+= ('function shiftDo(val,flag) {')+"\n";
 x+= (' var x = val*1.8')+"\n";
 x+= (' if (val>=99) {val = 100} else {val = Math.sin(Math.asin(val/100)+0.2*3.1416/2)*100}')+"\n";
 x+= (' x = Math.round(val*1.8-x)')+"\n";
 x+= (' with(wsDiv1("roul").childNodes[0].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')+"\n";
 x+= (' with(wsDiv1("roul").childNodes[1].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')+"\n";
 x+= (' with(wsDiv1("roul").childNodes[2].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')+"\n";
 x+= (' with(wsDiv1("roul").childNodes[3].style) {top = (parseInt(top)+(flag?x:-x))+"px"}')+"\n";
 x+= (' if (val<100) {shiftTimeout = setTimeout(\'shiftDo(\'+val+\',\'+flag+\')\',50)}')+"\n";
 x+= ('}')+"\n";
 x+= ('')+"\n";
 x+= ('}')+"\n";
 write("Content-type: text/javascript\n\n");
 write(x+'shiftStart();');
}

</script>