class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
|
class= de
># " de l'id= " codeSnippet712574 de connect (« dbi : mysql : $DATABASE : localhost : 3306 », « $USERNAME », « $PASSWORD ») ;
# si l'identification est un international, ceci devrait être « identification = 0 » mais s'il est un char ou varchar, lui est correct
mon $settings1 = $dbh->prepare (« choisir * à partir des arrangements OÙ identification = « 0 » ") ;
$settings1->execute () ;
# puisque vous choisissez * qui doit inclure l'identification, mais vous ne pas avoir l'identification dans cette liste.
# l'assumer est le premier champ dans la rangée, je l'ont ajoutée
tandis que (mon ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {
# passer si nous ne faisons rien
après à moins que == 1 de $Email_Reminders ou == 1 de $Monthly_Email ;
# quotidiennement rappels
si (== de $Email_Reminders 1) {
# nous ajouterons le début et l'extrémité du corps seulement s'il y avait des anniversaires aujourd'hui
mon ($dailycount, $body) ;
$sth->execute () ;
tandis que (mon ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {
# additionner un au $dailycount
$dailycount++ ;
# obtenir juste l'année de $B_Date en se débarassant de tout après le premier tiret
(mon $B_Year = $B_Date) =~ s/-.*//;
mon $age = $yy - $B_Year ;
$body. = « $Name (tours $age !)\ n » ;
}
$sth->finish ;
$body. = « \ n » ;
# ne pas en envoyer s'il n'y en a aucun
si ($dailycount > 0) {
$body = <new (
De =>$From_Email,
À =>$To_Email,
Sujet =>$Subject,
Données =>$body
) ;
Le ### introduisent la manière de « meilleur » (le défaut est d'employer le « sendmail ») :
$msg->send ;
}
}
# rappels quotidiens de fin
# faire les rappels mensuels si c'est la première du mois
si (== de $dd 1) {
################
# MONTHLYEMAIL #
################
# préparer la question
mon $sthMonthly = $dbh->prepare (« choisir * à partir des teamdates OÙ le `de B_Date de `AIMENT « %-$mm-% » ") ;
# exécuter la question
$sthMonthly->execute () ;
# nous ajouterons le début et l'extrémité du corps seulement s'il y avait des anniversaires aujourd'hui
mon ($monthcount, $body) ;
tandis que (mon ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
$monthcount++ ;
# obtiennent juste l'année de $B_Date en se débarassant de tout après le premier tiret
(mon $B_Year = $B_Date) =~ s/-.*//;
mon $age = $yy - $B_Year ;
$body. = « $Name (tours $age2 !) $B_Date \ n » ;
} ;
si ($monthcount) {
Corps de courrier de ##
mon $body = <new (
De =>$From_Email,
À =>$Ops_Email,
Sujet =>$Subject,
Données =>$body
) ;
Le ### introduisent la manière de « meilleur » (le défaut est d'employer le « sendmail ») :
$msg->send ;
}
}
}
|
