#! /usr/local/bin/perl
używać surowy;
używać DBI;
używać CGI;
use MIM:: Lite;
używać POSIX qw (strftime);
mój $mmddyyyy = strftime ("%m/%d/%Y", localtime);
mój $mm = strftime ("%m", localtime);
mój $dd = strftime ("%d", localtime);
mój $yy = strftime ("%Y", localtime);
# Wchodzić Do Baza danych info
mój $USERNAME = "888";
mój $PASSWORD = "888";
mój $DATABASE = "888";
mój $dbh = DBI->connect ("dbi: mysql: $DATABASE: localhost: 3306", "$USERNAME", "$PASSWORD");
# jeżeli ID być int, ono musieć "ID = (0)" ale jeżeli ono być char lub varchar, ono być poprawny
mój $settings1 = $dbh->prepare ("wybiórka * Od położenie DOKĄD ID = "(0)" ");
$settings1->execute ();
# ponieważ ty wybierać * który musieć ID, ale ty mieć ID w ten lista.
# Ono być the pierwszy pole w the rząd, I dodawać ono
podczas gdy (mój ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {
# ruch dalej jeżeli my robić ruch
następnie jeśli $Email_Reminders == (1) lub $Monthly_Email == (1);
# Dziennie Przypomnienie
jeżeli ($Email_Reminders == 1) {
# My dodawać the początek i końcówka the ciało tylko jeżeli tam być jakaś urodziny dzisiaj
mój ($dailycount, $body);
$sth->execute ();
podczas gdy (mój ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {
# Dodawać jeden the $dailycount
$dailycount++;
# Dostawać właśnie the rok $B_Date pozbywać się dostawać po tym jak the pierwszy junakowanie
(mój $B_Year = $B_Date) =~ s/-.*//;
mój $age = $yy - $B_Year;
$body. = "$Name (Zwrot $age!)\ n";
}
$sth->finish;
$body. = "\ n";
# wysyłać wcale jeżeli tam być jeżeli
jeżeli ($dailycount > (0)) {
$body = <new (
Od =>$From_Email,
=>$To_Email,
Podległy =>$Subject,
Dane =>$body
);
### Wysyłać w the "najlepszy" sposób (the brak być "sendmail"):
$msg->send;
}
}
# końcówka Dzienny Przypomnienie
# Robić miesięczny przypomnienie jeżeli ono być the pierwszy the miesiąc
jeżeli ($dd == 1) {
################
# MONTHLYEMAIL #
################
# przygotowywać the zapytanie
mój $sthMonthly = $dbh->prepare ("wybiórka * Od teamdates DOKĄD `B_Date `LUBIĆ "%-$mm-%" ");
# wykonywać the zapytanie
$sthMonthly->execute ();
# My dodawać the początek i końcówka the ciało tylko jeżeli tam być jakaś urodziny dzisiaj
mój ($monthcount, $body);
podczas gdy (mój ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
$monthcount++;
# Dostawać właśnie the rok $B_Date pozbywać się dostawać po tym jak the pierwszy junakowanie
(mój $B_Year = $B_Date) =~ s/-.*//;
mój $age = $yy - $B_Year;
$body. = "$Name (Zwrot $age2!) $B_Date \ n";
};
jeżeli ($monthcount) {
## Poczta Ciało
mój $body = <new (
Od =>$From_Email,
=>$Ops_Email,
Podległy =>$Subject,
Dane =>$body
);
### Wysyłać w the "najlepszy" sposób (the brak być "sendmail"):
$msg->send;
}
}
}
|