summaryrefslogtreecommitdiff
path: root/scripts/assurer.php
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/assurer.php')
-rw-r--r--scripts/assurer.php53
1 files changed, 53 insertions, 0 deletions
diff --git a/scripts/assurer.php b/scripts/assurer.php
new file mode 100644
index 0000000..c649fbf
--- /dev/null
+++ b/scripts/assurer.php
@@ -0,0 +1,53 @@
+#!/usr/bin/php -q
+<? /*
+ LibreSSL - CAcert web application
+ Copyright (C) 2004-2009 CAcert Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; version 2 of the License.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+ include_once("../includes/mysql.php");
+
+ $lines = "";
+ $fp = fopen("assurer.txt", "r");
+ while(!feof($fp))
+ {
+ $line = trim(fgets($fp, 4096));
+ $lines .= wordwrap($line, 75, "\n")."\n";
+ }
+ fclose($fp);
+
+ $query = "
+select u.email, fname, lname, sum(n.points) from users u, notary n
+ where n.to=u.id
+ and not exists(select 1 from cats_passed cp where cp.user_id=u.id)
+ and exists(select 1 from notary n2 where n2.from=u.id and year(n2.`when`)>2007)
+ and (select count(*) from notary n3 where n3.from=u.id) > 1
+ group by email, fname, lname
+ having sum(points)>99;
+ ";
+// echo $query;
+// comment next line when starting to send mail not only to me
+ $res = mysql_query($query);
+ $xrows = mysql_num_rows($res);
+ while($row = mysql_fetch_assoc($res))
+ {
+ echo $row['pts']."..".$row['email']."...\n";
+ // uncomment next line to send mails ...
+ sendmail($row['email'], "[CAcert.org] Assurer Test", $lines, "teus@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
+ }
+ // 1x cc to events.cacert.org
+ sendmail("philipp@cacert.org", "[CAcert.org] Assurer Test", $lines, "teus@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
+ // 1x mailing report to events.cacert.org
+ sendmail("philipp@cacert.org", "[CAcert.org] Assurer Report", "assurer information sent to $xrows recipients.", "support@cacert.org", "", "", "CAcert Assurer Organisation", "returns@cacert.org", 1);
+?>