Naviguation dans :  Perl  JavaScript  Détail  - wsCaD_run.cgi?Appel=newAdmin
 présentée :  par cas d'appel   par traitements 
Retour à l'accueil
  
 
 Requêtes 

 wsCaD_run 

 newAdmin 

 Requêtes de Ça-déménage.com
Requête d'entrée de site
Nouveau professionnel


 Finer  Nouveau professionnel — Fin correcte de la requête
Syntaxe Finer(appel)
Paramètres 
nom  type  Description 
appel  IN Appel de la requête
retourne  OUT Page HTML
Fonctions util. 
 nomBox Racine des adresses e-mail


Code Perl 


sub Finer {local($appel) = @_; 
 local $x=''; 
 $x.= ('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" >'."\n");
 $x.= ('<html>'."\n");
 $x.= ('<head>'."\n");
 $x.= ('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'."\n");
 $x.= ('<title>&Ccedil;a-d&eacute;m&eacute;nage.com - d&eacute;m&eacute;nagement, d&eacute;m&eacute;nageurs sur toute la France</title>'."\n");
 $x.= ('<meta name="DESCRIPTION" content="Déménagement, mise en relation des particuliers et des déménageurs pour l\'établissement d\'un devis pour déménager.">'."\n");
 $x.= ('<meta name="KEYWORDS" content="déménagement, devis, déménageur, garde-meubles, national, paris, province, option, indépendant, calcul du volume">'."\n");
 $x.= ('<meta http-equiv="Content-Language" content="fr-FR">'."\n");
 $x.= ('<meta name="Robots" content="index,follow">'."\n");
 $x.= ('<meta name="GENERATOR" content="WebSI 1.0">'."\n");
 $x.= ('<script language="JavaScript">'."\n");
 $x.= ('var loadInit0 = true'."\n");
 $x.= ('var loadInit = 5'."\n");
 $x.= ('function toLoad(target) {if (typeof(target)=="undefined") {window.location.replace("../.."); return}; target.submit()}'."\n");
 $x.= ('function toGet(win,req) {win.location.replace(req)}'."\n");
 $x.= ('function toGo(req) {return req}'."\n");
 $x.= ('var Mode = "'.$appel.'"'."\n");
 $x.= ('function Initer() {'."\n");
 $x.= (' if (loadInit0) {if (--loadInit!=0) return; loadInit0 = false}'."\n");
 $x.= (' window.site.Exiter()'."\n");
 $x.= (' toGet(window.site.sponsor,"../../cgi-bin/dircad/wsCaD_sponsor.cgi")'."\n");
 $x.= ('}'."\n");
 $x.= ('var Key = "'.$nomBox.'"'."\n");
 $x.= ('<'.'/script>'."\n");
 $x.= ('</head>'."\n");
 $x.= ('<frameset cols="10,*" frameborder="0" framespacing="0">'."\n");
 $x.= ('  <frameset rows="70%,*,*,*" frameborder="0" framespacing="0">'."\n");
 $x.= ('    <frame name="de" src="../../Ydircad/infos/wsCaD_Ban.htm" scrolling="no">'."\n");
 $x.= ('    <frame name="erreur" src="../../dircad/infos/wsMenu_Empty.htm" scrolling="no">'."\n");
 $x.= ('    <frame name="charge" src="../../dircad/infos/wsMenu_Charge.htm" scrolling="no">'."\n");
 $x.= ('    <frame name="base" src="../../Ydircad/infos/wsCaD_Charge.htm" scrolling="no">'."\n");
 $x.= ('  </frameset>'."\n");
 $x.= ('  <frame name="site" src="../../Ydircad/infos/wsBan.htm">'."\n");
 $x.= ('</frameset>'."\n");
 $x.= ('</html>'."\n");
 print "Content-type: text/html\n\n".$x;
}
Code JavaScript 


function Finer(appel) { 
 var x=''; 
 x+= ('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" >'+"\n");
 x+= ('<html>'+"\n");
 x+= ('<head>'+"\n");
 x+= ('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'+"\n");
 x+= ('<title>&Ccedil;a-d&eacute;m&eacute;nage.com - d&eacute;m&eacute;nagement, d&eacute;m&eacute;nageurs sur toute la France</title>'+"\n");
 x+= ('<meta name="DESCRIPTION" content="Déménagement, mise en relation des particuliers et des déménageurs pour l\'établissement d\'un devis pour déménager.">'+"\n");
 x+= ('<meta name="KEYWORDS" content="déménagement, devis, déménageur, garde-meubles, national, paris, province, option, indépendant, calcul du volume">'+"\n");
 x+= ('<meta http-equiv="Content-Language" content="fr-FR">'+"\n");
 x+= ('<meta name="Robots" content="index,follow">'+"\n");
 x+= ('<meta name="GENERATOR" content="WebSI 1.0">'+"\n");
 x+= ('<script language="JavaScript">'+"\n");
 x+= ('var loadInit0 = true'+"\n");
 x+= ('var loadInit = 5'+"\n");
 x+= ('function toLoad(target) {if (typeof(target)=="undefined") {window.location.replace("../.."); return}; target.submit()}'+"\n");
 x+= ('function toGet(win,req) {win.location.replace(req)}'+"\n");
 x+= ('function toGo(req) {return req}'+"\n");
 x+= ('var Mode = "'+appel+'"'+"\n");
 x+= ('function Initer() {'+"\n");
 x+= (' if (loadInit0) {if (--loadInit!=0) return; loadInit0 = false}'+"\n");
 x+= (' window.site.Exiter()'+"\n");
 x+= (' toGet(window.site.sponsor,"../../cgi-bin/dircad/wsCaD_sponsor.cgi")'+"\n");
 x+= ('}'+"\n");
 x+= ('var Key = "'+nomBox+'"'+"\n");
 x+= ('<'+'/script>'+"\n");
 x+= ('</head>'+"\n");
 x+= ('<frameset cols="10,*" frameborder="0" framespacing="0">'+"\n");
 x+= ('  <frameset rows="70%,*,*,*" frameborder="0" framespacing="0">'+"\n");
 x+= ('    <frame name="de" src="../../Ydircad/infos/wsCaD_Ban.htm" scrolling="no">'+"\n");
 x+= ('    <frame name="erreur" src="../../dircad/infos/wsMenu_Empty.htm" scrolling="no">'+"\n");
 x+= ('    <frame name="charge" src="../../dircad/infos/wsMenu_Charge.htm" scrolling="no">'+"\n");
 x+= ('    <frame name="base" src="../../Ydircad/infos/wsCaD_Charge.htm" scrolling="no">'+"\n");
 x+= ('  </frameset>'+"\n");
 x+= ('  <frame name="site" src="../../Ydircad/infos/wsBan.htm">'+"\n");
 x+= ('</frameset>'+"\n");
 x+= ('</html>'+"\n");
with(window.parent.client.document) {
 open(); write(x); close(); 
}
window.parent.Initer(); 
}