class= " lineNumbers "
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=
># " class= " id= " codeSnippet712574 connect («dbi: mysql: $DATABASE: localhost: 3306», «$USERNAME», «$PASSWORD»);
# если удостоверением личности будет int, то, это должно быть «удостоверение личности = 0» но если оно чарсом или varchar, то оно правильно
мо $settings1 = $dbh->prepare («выберите * от установок ГДЕ удостоверение личности = «0» ");
$settings1->execute ();
# в виду того что вы выбираете * должны включить удостоверение личности, только вы не имейте удостоверение личности в этом списке.
# принимать его будет первым полем в рядке, я добавлял его
пока (мо ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {
# движение дальше если мы не делаем что-нибыдь
затем если == 1 $Email_Reminders или == 1 $Monthly_Email;
# ежедневно памятки
если (== $Email_Reminders 1) {, то
# мы добавим старт и конец тела только если были любые дни рождения сегодня
мо ($dailycount, $body);
$sth->execute ();
пока (мо ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {
# добавьте одно к $dailycount
$dailycount++;
# получите как раз год $B_Date путем получать освобождан всего после первой черточки
(мо $B_Year = $B_Date) =~ s/-.*//;
мо $age = $yy - $B_Year;
$body. = «$Name (повороты $age!)\ n»;
}
$sth->finish;
$body. = «\ n»;
# не пошлите любые если никакие
если ($dailycount > 0) {, то
$body = <new (
От =>$From_Email,
К =>$To_Email,
Вопрос =>$Subject,
Данные =>$body
);
### посылает в дороге «самое лучшее» (невыполнение обязательства должно использовать «sendmail»):
$msg->send;
}
}
# памятки конца ежедневные
# сделайте ежемесячные памятки если он первый из месяца
если (== $dd 1) {, то
################
# MONTHLYEMAIL #
################
# подготовьте вопрос
мо $sthMonthly = $dbh->prepare («выберите * от teamdates ГДЕ `B_Date `ЛЮБИТ «%-$mm-%» ");
# исполните вопрос
$sthMonthly->execute ();
# мы добавим старт и конец тела только если были любые дни рождения сегодня
мо ($monthcount, $body);
пока (мо ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
$monthcount++;
# получите как раз год $B_Date путем получать освобождан всего после первой черточки
(мо $B_Year = $B_Date) =~ s/-.*//;
мо $age = $yy - $B_Year;
$body. = «$Name (повороты $age2!) $B_Date \ n»;
};
если ($monthcount) {, то
Тело почты ##
мо $body = <new (
От =>$From_Email,
К =>$Ops_Email,
Вопрос =>$Subject,
Данные =>$body
);
### посылает в дороге «самое лучшее» (невыполнение обязательства должно использовать «sendmail»):
$msg->send;
}
}
}
|
