[SPIP Zone] [Spip-zone-commit] r23673 - in /_plugins_/_stable_/caseacocher_ml: fonds/ fonds/cfg_caseacocher_ml.html formulaires/ formulaires/inscription.html formulaires/inscription.php lang/ lang/caseacocher_ml_fr.php plugin.xml

Archives Zone
1

J'ai une question : que fait ce plugin "caseacocher_ml" ?

-----Message d'origine-----
De : spip-zone-commit-bounces@rezo.net
[mailto:spip-zone-commit-bounces@rezo.net] De la part de yaquoi@yaquoi.com
Envoyé : dimanche 26 octobre 2008 19:09
À : spip-zone-commit@rezo.net
Objet : [Spip-zone-commit] r23673 - in /_plugins_/_stable_/caseacocher_ml:
fonds/ fonds/cfg_caseacocher_ml.html formulaires/
formulaires/inscription.html formulaires/inscription.php lang/
lang/caseacocher_ml_fr.php plugin.xml

Author: yaquoi@yaquoi.com
Date: Sun Oct 26 19:08:50 2008
New Revision: 23673

Log:
case a cocher newsletter

Added:
    _plugins_/_stable_/caseacocher_ml/fonds/
    _plugins_/_stable_/caseacocher_ml/fonds/cfg_caseacocher_ml.html
    _plugins_/_stable_/caseacocher_ml/formulaires/
    _plugins_/_stable_/caseacocher_ml/formulaires/inscription.html
    _plugins_/_stable_/caseacocher_ml/formulaires/inscription.php
    _plugins_/_stable_/caseacocher_ml/lang/
    _plugins_/_stable_/caseacocher_ml/lang/caseacocher_ml_fr.php
    _plugins_/_stable_/caseacocher_ml/plugin.xml

Added: _plugins_/_stable_/caseacocher_ml/fonds/cfg_caseacocher_ml.html

==
--- _plugins_/_stable_/caseacocher_ml/fonds/cfg_caseacocher_ml.html (added)
+++ _plugins_/_stable_/caseacocher_ml/fonds/cfg_caseacocher_ml.html Sun Oct
26 19:08:50 2008
@@ -0,0 +1,35 @@
+[(#REM) descriptif=
+<h4>Configuration du plugin Case &agrave; cocher ML (mailing list)</h4>
+Ici vous pouvez configurer le sujet et le mail recevant des requetes la
liste.<br /><br />
+<a href="Ajouter une case mailing list au formulaire d'inscription des visiteurs - SPIP-Contrib;
class="spip_out">Documentation sur contrib</a>
+]
+
+[(#REM) titre=Case &agrave; cocher ML (mailing list)]
+#CACHE{0}
+
+<form method="post" action="#SELF">
+<div>[(#ENV{_cfg_}|form_hidden)]
+<fieldset>
+<legend><strong>Configuration Mailing list</strong></legend>
+
+<label
for="sujet_inscription_mailinglist"><strong><:sujet_inscription_mailinglist:

</strong></label><br/>

+<:sujet_inscription_mailinglist_explication:><br/>
+<input type="text" name="inscri_ml_sujet" id="inscri_ml_sujet"
value="#ENV{inscri_ml_sujet,subscribe address=}" />
+</label>
+
+<br />
+<label
for="mail_inscription_mailinglist"><strong><:mail_inscription_mailinglist:><
/strong></label><br/>
+<:mail_inscription_mailinglist_explication:><br/>
+<input type="text" name="inscri_ml_mail" id="inscri_ml_mail"
value="#ENV{inscri_ml_mail,nomdelaliste-request@domaine.com}" />
+</label>
+
+</fieldset>
+</div>
+
+
+<div>
+<input type="submit" name="_cfg_ok" value="<:ok:>" class="fondo" />
+<input type="submit" name="_cfg_delete" value="<:supprimer:>" class="fondo"
/>
+</div>
+</form>
+

Added: _plugins_/_stable_/caseacocher_ml/formulaires/inscription.html

==
--- _plugins_/_stable_/caseacocher_ml/formulaires/inscription.html (added)
+++ _plugins_/_stable_/caseacocher_ml/formulaires/inscription.html Sun Oct
26 19:08:50 2008
@@ -0,0 +1,53 @@
+<div class="formulaire_spip formulaire_inscription ajax"
id="formulaire_inscription">
+[<p class="reponse_formulaire
reponse_formulaire_ok">(#ENV*{message_ok})</p>]
+[<p class="reponse_formulaire
reponse_formulaire_erreur">(#ENV*{message_erreur})</p>]
+[(#ENV{editable})
+<form method="post" action="#ENV{action}">
+ #ACTION_FORMULAIRE{#ENV{action}}
+ <fieldset>
+ [(#REM) on affiche plus ce message en cas d'erreur pour
eviter d'allonger trop le formulaire]
+ [(#ENV*{message_erreur}|non)
+ [<legend><:pass_vousinscrire:></legend>
+ <p class='explication'>(#ENV*{_commentaire})</p>]
+ ]<legend><:form_forum_identifiants:></legend>
+ <p class='explication'><:form_forum_indiquer_nom_email:></p>
+ <ul>
+ <li class='saisie_nom_inscription obligatoire[
(#ENV*{erreurs}|table_valeur{nom_inscription}|oui)erreur]'>
+ <label
for="nom_inscription"><:form_pet_votre_nom:></label>
+ [<span
class="erreur_message">(#ENV*{erreurs}|table_valeur{nom_inscription})</span>
]
+ <input type="text" class="text"
name="nom_inscription" id="nom_inscription" value="#ENV{nom_inscription}"
size="30" />
+ </li>
+ <li class='saisie_mail_inscription obligatoire[
(#ENV*{erreurs}|table_valeur{mail_inscription}|oui)erreur]'>
+ <label
for="mail_inscription"><:form_pet_votre_email:></label>
+ [<span
class="erreur_message">(#ENV*{erreurs}|table_valeur{mail_inscription})</span

]

+ <input type="text" class="text"
name="mail_inscription" id="mail_inscription" value="#ENV{mail_inscription}"
size="30" />
+ </li>
+ <li class='saisie_mailing_list'>
+ <label
for="inscription_mailing_list"><:inscription_mailing_list:></label><br>
+ <input type="checkbox" name="inscri_ml_ok"
value="oui" checked /><:inscription_mailing_list:>
+ </li>
+ </ul>
+ </fieldset>
+ [(#REM) Piege a robots spammeurs ]
+ <p style="display: none;">
+ <label for="nobot"><:antispam_champ_vide:></label>
+ <input type="text" class="text" name="nobot" id="nobot"
value="#ENV{nobot}" size="10" />
+ </p>
+ <p class="boutons"><input type="submit" class="submit"
value="<:bouton_valider:>" /></p>
+ </form>
+[<script type="text/javascript"><!--
+document.getElementById('(#ENV{focus})').focus();
+--></script>]
+]
+</div>
+[(#ENV{focus,''}|?{' '})
+<div style="text-align: #LANG_RIGHT;">
+<script type="text/javascript">/*<!#EVAL{chr(91)}CDATA#EVAL{chr(91)}*/
+document.write("<a style='color: #e86519' href='")
+document.write((window.opener) ? "javascript:close()" : "./")
+document.write("'><:pass_quitter_fenetre:><" + "/a>");
+/*#EVAL{chr(93)}[(#EVAL{chr(93)})]>*/</script>
+<noscript>
+ &#91;<a href='./'><:pass_retour_public:></a>&#93;
+</noscript>
+</div>]
\ No newline at end of file

Added: _plugins_/_stable_/caseacocher_ml/formulaires/inscription.php

==
--- _plugins_/_stable_/caseacocher_ml/formulaires/inscription.php (added)
+++ _plugins_/_stable_/caseacocher_ml/formulaires/inscription.php Sun Oct 26
19:08:50 2008
@@ -0,0 +1,236 @@
+<?php
+
+/**************************************************************************
*\
+ * SPIP, Systeme de publication pour l'internet
*
+ *
*
+ * Copyright (c) 2001-2008
*
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James
*
+ *
*
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL.
*
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.
*
+\**************************************************************************
*/
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+if (!defined('_LOGIN_TROP_COURT')) define('_LOGIN_TROP_COURT', 4);
+
+function formulaires_inscription_charger_dist($mode, $focus, $id=0) {
+ $valeurs = array('nom_inscription'=>'','mail_inscription'=>'',
'id'=>$id);
+ if ($mode=='1comite')
+ $valeurs['_commentaire'] = _T('pass_espace_prive_bla');
+ else
+ $valeurs['_commentaire'] = _T('pass_forum_bla');
+
+ if (!tester_config($id, $mode))
+ $valeurs['editable'] = false;
+
+ return $valeurs;
+}
+
+// Si inscriptions pas autorisees, retourner une chaine d'avertissement
+function formulaires_inscription_verifier_dist($mode, $focus, $id=0) {
+
+ $erreurs = array();
+ include_spip('inc/filtres');
+ if (!tester_config($id, $mode))
+ $erreurs['message_erreur'] = _T('rien_a_faire_ici');
+
+ if (!$nom = _request('nom_inscription'))
+ $erreurs['nom_inscription'] = _T("info_obligatoire");
+ else {
+ $nom = trim(corriger_caracteres($nom));
+ if((strlen ($nom) < _LOGIN_TROP_COURT) OR (strlen($nom) >
64) OR (strlen(_request('nobot'))>0))
+ $erreurs['nom_inscription'] =
_T('info_login_trop_court');
+ }
+
+ if (!$mail = _request('mail_inscription'))
+ $erreurs['mail_inscription'] = _T("info_obligatoire");
+ elseif(!email_valide($mail)){
+ $erreurs['mail_inscription'] =
_T("form_prop_indiquer_email");
+ }
+
+ // compatibilite avec anciennes fonction surchargeables
+ // plus de definition par defaut
+ if (!count($erreurs)){
+ if (function_exists('test_inscription'))
+ $f = 'test_inscription';
+ else
+ $f = 'test_inscription_dist';
+ $declaration = $f($mode, $mail, $nom, $id);
+ if (is_string($declaration))
+ $erreurs['mail_inscription'] = $declaration;
+ else {
+ include_spip('base/abstract_sql');
+
+ if ($row = sql_fetsel("statut, id_auteur, login,
email", "spip_auteurs", "email=" . sql_quote($declaration['email']))){
+ if (($row['statut'] == '5poubelle') AND
!$declaration['pass'])
+ // irrecuperable
+ $erreurs['message_erreur'] =
_T('form_forum_access_refuse');
+ if (($row['statut'] != 'nouveau') AND
!$declaration['pass'])
+ // deja inscrit
+ $erreurs['message_erreur'] =
_T('form_forum_email_deja_enregistre');
+ spip_log($row['id_auteur'] . " veut se
resinscrire");
+ }
+ }
+ }
+ return $erreurs;
+}
+
+function formulaires_inscription_traiter_dist($mode, $focus, $id=0) {
+
+ $nom = _request('nom_inscription');
+ $mail = _request('mail_inscription');
+ $inscri_ml_ok = _request('inscri_ml_ok');
+
+ if (function_exists('test_inscription'))
+ $f = 'test_inscription';
+ else $f = 'test_inscription_dist';
+ $desc = $f($mode, $mail, $nom, $id);
+
+ if (is_array($desc)) {
+ $mail = $desc['email'];
+ include_spip('base/abstract_sql');
+ $row = sql_fetsel("statut, id_auteur, login, email",
"spip_auteurs", "email=" . sql_quote($mail));
+ // s'il n'existe pas deja, creer les identifiants
+ $desc = $row ? $row : inscription_nouveau($desc);
+ }
+ if (is_array($desc)) {
+ // generer le mot de passe (ou le refaire si compte inutilise)
+ $desc['pass'] = creer_pass_pour_auteur($desc['id_auteur']);
+ // charger de suite cette fonction, pour ses utilitaires
+ $envoyer_mail = charger_fonction('envoyer_mail','inc');
+ if (function_exists('envoyer_inscription'))
+ $f = 'envoyer_inscription';
+ else $f = 'envoyer_inscription_dist';
+ list($sujet,$msg,$from,$head) = $f($desc, $nom, $mode, $id);
+ if (!$envoyer_mail($mail, $sujet, $msg, $from, $head))
+ $desc = _T('form_forum_probleme_mail');
+ }
+
+ //envoi inscription mailinglist

[... 160 lines stripped ...]
_______________________________________________
Spip-zone-commit@rezo.net -
http://listes.rezo.net/mailman/listinfo/spip-zone-commit