| Line 78... |
Line 78... |
| 78 |
* @global ins_url Un pointeur vers un objet PEAR::Net_URL
|
78 |
* @global ins_url Un pointeur vers un objet PEAR::Net_URL
|
| 79 |
* @return string Le contenu de l'application inscription
|
79 |
* @return string Le contenu de l'application inscription
|
| 80 |
*/
|
80 |
*/
|
| 81 |
function afficherContenuCorps() {
|
81 |
function afficherContenuCorps() {
|
| Line -... |
Line 82... |
| - |
|
82 |
|
| - |
|
83 |
// Operation de maintenance sur la table inscription_demande
|
| - |
|
84 |
// On supprime les vieilles demandes qui ont expire
|
| - |
|
85 |
|
| - |
|
86 |
$requete_maintenance = 'delete from inscription_demande where id_date < DATE_SUB(NOW(), interval 1 week)';
|
| - |
|
87 |
$resultat_maintenance = $GLOBALS['ins_db']->query ($requete_maintenance);
|
| - |
|
88 |
if (DB::isError($resultat_maintenance)) {
|
| - |
|
89 |
return ('Echec de la requete : '.$requete_maintenance.'<br />'.$resultat_maintenance->getMessage());
|
| - |
|
90 |
}
|
| 82 |
|
91 |
|
| 83 |
$url = preg_replace ('/&/', '&', $GLOBALS['ins_url']->getURL()) ;
|
92 |
$url = preg_replace ('/&/', '&', $GLOBALS['ins_url']->getURL()) ;
|
| 84 |
// Attibution de l'action par défaut à effectuer.
|
93 |
// Attibution de l'action par défaut à effectuer.
|
| 85 |
if (!isset ($_REQUEST['action'])) {
|
94 |
if (!isset ($_REQUEST['action'])) {
|
| 86 |
$_REQUEST['action'] = 'inscription';
|
95 |
$_REQUEST['action'] = 'inscription';
|
| Line 102... |
Line 111... |
| 102 |
$id_utilisateur = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
|
111 |
$id_utilisateur = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
|
| 103 |
$bool_inscription_lettre = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_LETTRE);
|
112 |
$bool_inscription_lettre = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_LETTRE);
|
| 104 |
$resultat = $GLOBALS['AUTH']->removeUser($mail_utilisateur) ;
|
113 |
$resultat = $GLOBALS['AUTH']->removeUser($mail_utilisateur) ;
|
| Line 105... |
Line 114... |
| 105 |
|
114 |
|
| 106 |
if (PEAR::isError($resultat)) {
|
115 |
if (PEAR::isError($resultat)) {
|
| 107 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
|
116 |
return ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
|
| Line 108... |
Line 117... |
| 108 |
}
|
117 |
}
|
| 109 |
|
118 |
|
| 110 |
// Suppression dans SPIP
|
119 |
// Suppression dans SPIP
|
| Line 116... |
Line 125... |
| 116 |
if (INS_UTILISE_LISTE) {
|
125 |
if (INS_UTILISE_LISTE) {
|
| 117 |
if ($bool_inscription_lettre == 1) {
|
126 |
if ($bool_inscription_lettre == 1) {
|
| 118 |
inscription_lettre(INS_MAIL_DESINSCRIPTION_LISTE) ;
|
127 |
inscription_lettre(INS_MAIL_DESINSCRIPTION_LISTE) ;
|
| 119 |
}
|
128 |
}
|
| 120 |
}
|
129 |
}
|
| - |
|
130 |
// Appel des actions desinscriptions des applications clientes
|
| - |
|
131 |
$msg = '';
|
| - |
|
132 |
$d = dir(GEN_CHEMIN_CLIENT);
|
| - |
|
133 |
while (false !== ($repertoire = $d->read())) {
|
| - |
|
134 |
if ($repertoire != '.' || $repertoire != '..') {
|
| - |
|
135 |
if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php'))
|
| - |
|
136 |
include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php' ;
|
| - |
|
137 |
}
|
| - |
|
138 |
if ($msg != '') $res .= $msg;
|
| - |
|
139 |
}
|
| - |
|
140 |
$d->close();
|
| - |
|
141 |
|
| - |
|
142 |
// Deconnexion
|
| 121 |
$GLOBALS['AUTH']->logout() ;
|
143 |
$GLOBALS['AUTH']->logout() ;
|
| Line 122... |
Line 144... |
| 122 |
|
144 |
|
| 123 |
// Ajout d'une ligne dans les statistiques
|
145 |
// Ajout d'une ligne dans les statistiques
|
| 124 |
if (INS_UTILISE_STAT) {
|
146 |
if (INS_UTILISE_STAT) {
|
| Line 146... |
Line 168... |
| 146 |
$requete = 'SELECT id_donnees '.
|
168 |
$requete = 'SELECT id_donnees '.
|
| 147 |
'FROM inscription_demande '.
|
169 |
'FROM inscription_demande '.
|
| 148 |
'WHERE id_identifiant_session = "'.$_GET['id'].'" ';
|
170 |
'WHERE id_identifiant_session = "'.$_GET['id'].'" ';
|
| 149 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
171 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
| 150 |
if (DB::isError ($resultat)) {
|
172 |
if (DB::isError ($resultat)) {
|
| 151 |
die ("Echec de la requete : $requete<br />".$resultat->getMessage());
|
173 |
return ("Echec de la requete : $requete<br />".$resultat->getMessage());
|
| 152 |
}
|
174 |
}
|
| 153 |
if ($resultat->numRows() == 0) {
|
175 |
if ($resultat->numRows() == 0) {
|
| 154 |
return INS_MESSAGE_EXPIRATION;
|
176 |
return INS_MESSAGE_EXPIRATION;
|
| 155 |
}
|
177 |
}
|
| 156 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
|
178 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
|