Source code taken from cacert-20131016.tar.bz2
[cacert-devel.git] / scripts / ate-nl01-mail.php.txt
1 #!/usr/bin/php -q
2 <? /*
3 LibreSSL - CAcert web application
4 Copyright (C) 2004-2008 CAcert Inc.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; version 2 of the License.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
18 */
19 include_once("../includes/mysql.php");
20
21 $lines = "";
22 $fp = fopen("ate-nl01-email.txt", "r");
23 while(!feof($fp))
24 {
25 $line = trim(fgets($fp, 4096));
26 $lines .= wordwrap($line, 75, "\n")."\n";
27 }
28 fclose($fp);
29
30
31 // $locid = intval($_REQUEST['location']);
32 // $maxdist = intval($_REQUEST['maxdist']);
33 $maxdist = 200;
34
35
36 // location location.ID
37 // verified: 29.4.09 u.schroeter
38 // $locid = 7902857; // Paris
39 // $locid = 238568; // Bielefeld
40 // $locid = 715191; // Hamburg
41 // $locid = 1102495; // London
42 // $locid = 520340; // Duesseldorf
43 // $locid = 1260319; // Muenchen
44 // $locid = 606058; // Frankfurt
45 // $locid = 1775784; // Stuttgart
46 // $locid = 228950; // Berlin
47 // $locid = 606058; // Frankfurt
48 // $locid = 599389; // Flensburg
49
50 $locid = 61065; // Amsterdam, Eemnes
51
52 $city = "Amsterdam June 15th, Eemnes June 20th 2009";
53
54 $query = "select * from `locations` where `id`='$locid'";
55 $loc = mysql_fetch_assoc(mysql_query($query));
56
57 $query = "SELECT ROUND(6378.137 * ACOS(0.9999999*((SIN(PI() * $loc[lat] / 180) * SIN(PI() * `locations`.`lat` / 180)) +
58 (COS(PI() * $loc[lat] / 180 ) * COS(PI() * `locations`.`lat` / 180) *
59 COS(PI() * `locations`.`long` / 180 - PI() * $loc[long] / 180)))), -1) AS `distance`, sum(`points`) as pts, `users`.*
60 FROM `locations`
61 inner join `users` on `users`.`locid` = `locations`.`id`
62 inner join `alerts` on `users`.`id`=`alerts`.`memid`
63 inner join `notary` on `users`.`id`=`notary`.`to`
64 WHERE (`alerts`.`general`=1 OR `alerts`.`country`=1 OR `alerts`.`regional`=1 OR `alerts`.`radius`=1)
65 GROUP BY `users`.`id`
66 HAVING `distance` <= '$maxdist'
67 ORDER BY `distance` ";
68 echo $query;
69
70 // comment next line when starting to send mail not only to me
71 // $query = "select * from `users` where `email` like 'cacerttest%'";
72
73 $res = mysql_query($query);
74 $xrows = mysql_num_rows($res);
75
76 while($row = mysql_fetch_assoc($res))
77 {
78 // uncomment next line to send mails ...
79 sendmail($row['email'], "[CAcert.org] ATE-$city", $lines, "events@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
80 }
81 // 1x cc to events.cacert.org
82 sendmail("events@cacert.org", "[CAcert.org] ATE-$city", $lines, "events@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
83 // 1x mailing report to events.cacert.org
84 sendmail("events@cacert.org", "[CAcert.org] ATE-$city Report", "invitation sent to $xrows recipients.", "support@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
85
86 // 1x mailing report to Arbitrator of case http://wiki.cacert.org/wiki/Arbitrations/a20090525.1
87 sendmail("p.dunkel@cacert.org", "[CAcert.org] ATE-$city Report", "invitation sent to $xrows recipients.", "support@cacert.org", "", "", "CAcert Events Organisation", "returns@cacert.org", 1);
88
89 ?>