Subversion Repositories Sites.tela-botanica.org

Rev

Rev 295 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 295 Rev 372
Line 36... Line 36...
36
*/
36
*/
Line 37... Line 37...
37
 
37
 
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
39
// |                                            ENTETE du PROGRAMME                                       |
39
// |                                            ENTETE du PROGRAMME                                       |
-
 
40
// +------------------------------------------------------------------------------------------------------+
-
 
41
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config_avancee.inc.php' ;
Line 40... Line 42...
40
// +------------------------------------------------------------------------------------------------------+
42
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config.inc.php' ;
41
 
43
 
Line 42... Line 44...
42
include_once 'Mail.php';
44
include_once 'Mail.php';
Line 48... Line 50...
48
 
50
 
49
//Test pour vérifier que la lettre ne sera pas vide
51
//Test pour vérifier que la lettre ne sera pas vide
Line 50... Line 52...
50
//Connexion a la base d'actu
52
//Connexion a la base d'actu
51
 
53
 
52
// TODO : pas de données de configuration embarquées dans les programmes !!!!
54
// TODO : pas de données de configuration embarquées dans les programmes !!!!
Line 53... Line 55...
53
mysql_connect ("localhost", "telabotap", "mot_de_passe") ;
55
mysql_connect(PAP_BDD_SERVEUR, PAP_BDD_UTILISATEUR, PAP_BDD_MOT_DE_PASSE, true) or die('Impossible de se connecter à la base de données : '.mysql_error());
54
mysql_select_db ("tela_prod_spip_actu") ;
56
mysql_select_db('tela_prod_spip_actu');
55
 
57
 
56
//Recherche d'articles de moins de 7 jours
58
//Recherche d'articles de moins de 7 jours
57
$requete = "select * from `spip_articles` WHERE `date` >= DATE_SUB(CURRENT_DATE, INTERVAL 7 DAY)" ;
59
$requete = "select * from `spip_articles` WHERE `date` >= DATE_SUB(CURRENT_DATE, INTERVAL 7 DAY)" ;
58
$resultat = mysql_query ($requete) or die ("Echec") ;
60
$resultat = mysql_query ($requete) or die ("Echec") ;
59
//Si c'est vide on interrompt le script
61
//Si c'est vide on interrompt le script
Line 60... Line 62...
60
if (mysql_num_rows ($resultat) == 0) {
62
if (mysql_num_rows ($resultat) == 0) {
61
    exit;
-
 
62
    }
63
	exit;
63
 
64
}
64
//Récupération de la date du jour pour l'ajouter dans le sujet du mail
65
 
65
 
66
//Récupération de la date du jour pour l'ajouter dans le sujet du mail
66
$traduction_mois[1] = 'Janvier';
67
$traduction_mois[1] = 'Janvier';
Line 91... Line 92...
91
 
92
 
92
$mois_francais = traduction ($traduction_mois,$date_mois);
93
$mois_francais = traduction ($traduction_mois,$date_mois);
93
//Préparation de la chaine de caractères a intégrer dans le sujet
94
//Préparation de la chaine de caractères a intégrer dans le sujet
Line 94... Line 95...
94
$date_lettre = 'du '.$date_jour.' '.$mois_francais.' '.$date_annee;
95
$date_lettre = 'du '.$date_jour.' '.$mois_francais.' '.$date_annee;
Line 95... Line 96...
95
 
96
 
96
//---------------------------------
97
// +------------------------------------------------------------------------------------------------------+
97
 
98
 
Line 117... Line 118...
117
 
118
 
118
if (PEAR::isError ($mail)) {
119
if (PEAR::isError ($mail)) {
119
    echo 'erreur d\'envoi' ;
120
    echo 'erreur d\'envoi' ;
Line 120... Line -...
120
}
-
 
121
 
121
}
122
 
122
 
123
// +------------------------------------------------------------------------------------------------------+
123
// +------------------------------------------------------------------------------------------------------+
124
// |                                           LISTE de FONCTIONS                                         |
124
// |                                           LISTE de FONCTIONS                                         |
Line 139... Line 139...
139
* Lettre actu format text + html
139
* Lettre actu format text + html
140
*
140
*
141
*
141
*
142
* +-- Fin du code ----------------------------------------------------------------------------------------+
142
* +-- Fin du code ----------------------------------------------------------------------------------------+
143
*/
143
*/
144
 
-
 
145
 
-
 
146
 
-
 
147
?>
144
?>
148
145