Perl-JavaScript - Bibliothèque CaD > Base > Ident. contrôlée

Naviguation dans :	Perl	JavaScript	Détail	- load.cgi?Appel=baseAdmin
présentée :	par cas d'appel par traitements

Requêtes de Ça-déménage.com
Accès professionnel
Chargement de la base

Bibliothèque CaD

Base

Ident. contrôlée

Bibliothèque de Ça-déménage.com
Accès aux bases
Gestion de l'expiration de l'identification

id2Ecrire | id2Lire

id2Ecrire

Ecrit un délai d'expiration

Syntaxe

id2Ecrire(To,IDENT,AUTH)

Paramètres

nom	type	Description
To	IN	Cas d'appel
IDENT	IN	Identifiant Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
AUTH	OUT	Mot de passe Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
retourne	N/A	Néant

Fonctions util.

crpEcrire	Encrypter un texte
getDate	Permet d'obtenir la date du jour (date+heure)

Code Perl


sub id2Ecrire {local($To,$IDENT,$AUTH) = @_; 
 local $Date = ''; local $Jour = ''; &getDate(\$Date,\$Jour); 
 local $texte = $Date.$$IDENT; while(length($texte)<19) {$texte .= " "}; 
 local @T = &crpEcrire($texte,-1); $$AUTH = $T[0]; 
}

Code JavaScript


function id2Ecrire(To,IDENT,AUTH) { 
 var Date = Array(''); var Jour = Array(''); getDate(Date,Jour); 
 var texte = Date[0]+IDENT[0]; while(texte.length<19) {texte += " "}; 
 var T = crpEcrire(texte,-1); AUTH[0] = T[0]; 
}