From bb4d099ea17bf5ac4b4035d4858259badde1026d Mon Sep 17 00:00:00 2001
From: Dirk Astrath <dirk@cacert.org>
Date: Tue, 1 Oct 2024 10:56:43 +0200
Subject: [PATCH] Add policy/CCA mail script for 2024-09-25 mailing

Signed-off-by: Jan Dittberner <jandd@cacert.org>
---
 scripts/send_policy_cca_20240925.php | 201 +++++++++++++++++++++++++++
 1 file changed, 201 insertions(+)
 create mode 100644 scripts/send_policy_cca_20240925.php

diff --git a/scripts/send_policy_cca_20240925.php b/scripts/send_policy_cca_20240925.php
new file mode 100644
index 0000000..0b8f4bc
--- /dev/null
+++ b/scripts/send_policy_cca_20240925.php
@@ -0,0 +1,201 @@
+#!/usr/bin/php -q
+<?php
+/*
+    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");
+
+// read texts
+
+$lines_EN = <<<EOF
+
+[German translation below / Deutsche Uebersetzung weiter unten]
+
+We are writing to you as a member of CAcert. When you became a member of the CAcert community, you accepted the CCA (CAcert Community Agreement) as a basis for your membership. The Policy Group, as the legislative body of our community, has removed the reference to the location of the head office of CAcert Inc. (the association who operates the infrastructure on behalf of the community) from the CCA and a few Policies (RDL, Privacy Policy) as part of the relocation of the association from Australia (New South Wales) to Europe (Switzerland).
+
+This does not change the meaning of the CCA, the policies or the relationship between you, the community and the association. The policies are still based on Common Law. You do not need to take any further action. However, if you do not agree with this change, you must cancel your agreement with the CCA, and, therefore, your membership in the CAcert community, by initiating the appropriate procedure as described in the policies and in the wiki.
+
+While we are it, we would like to take this opportunity to briefly introduce you to some innovations:
+
+The advantage of CAcert's certificates is the personal verification of those certificates by members of the Web of Trust. They can be used for identification, for signing documents or e-mails, for encryption, login, OpenID Connect, etc. In addition, we see good application possibilities in enterprises by means of Organisation Assurance (OrgA), which can also generate income and stabilise our finances.
+
+Do you share our view that CAcert is still useful today? If so, then read on!
+
+We have outlined above some areas where we see the future of CAcert. If you have any other ideas, please write to us. Your ideas are important to CAcert's teams. You may reach them directly using https://wiki.cacert.org/engagement
+
+Apart from the new focus, a lot has happened in the operational area in recent months:
+    - renewed  critical, acess admin and software team
+    - CAcert Inc. moved from Australia to Europe where most of its members live
+    - faster and more energy efficient hardware with recent software
+    - fail over
+    - OpenID Connect login with certificate [see below for details]
+
+We all know the buttons with which we can log on to any website with our account with a large American Internet company. OpenID Connect is an extremely secure alternative for identity management. Websites and other Internet services can register with CAcert and then CAcert members can use one of their certificates, backed by our Web of Trust, to identify that member without needing to use a password. Password theft is impossible.
+
+Of course, all this always takes time to be done, time required of our group of volunteers. And time is money, because day and night our servers continue to run, needing electric power... The cost for this, three thousand Euros per year, is actually very little.
+
+    - If you would like to support CAcert today: A donation of 5, 10, 20 or 50 Euro (francs, dollars) (if possible on a regular basis) already helps CAcert. We accept both cards and bank transfers. See https://wiki.cacert.org/engagement for more information.
+    - In addition, when you book your business trips and holidays please use our partner Booking.com https://www.booking.com/index.html?aid=346253
+    - Become a member of the CAcert Inc. association. Applications with postal address to: secretary@cacert.org (annual fee 10 Euro)
+
+If you feel better at providing your skills than your money, read at https://wiki.cacert.org/engagement what you can do. You are more than welcome too! There are technical and non-technical areas, where even small contributions are a great help for running our operations, if they are made regularly and with a long term commitment in mind.
+
+We would like to thank you very much for your participation, help and cooperation. If each of the thousands of CAcert members lifts only a little finger, we will be able to achieve great things!
+
+Best regards
+
+    Brian McCullough            Etienne Ruedin
+    President CAcert Inc.      Secretary CAcert Inc.
+
+
+PS: Answers to the most frequently asked questions about CAcert can be found at https://wiki.cacert.org/engagement
+
+----
+CAcert Inc.
+Clos Belmont 2
+1208 Geneva
+Switzerland
+
+Donations IBAN CH02 0077 4010 3947 4420 0
+
+----
+
+Wir schreiben Dir als Mitglied von CAcert. Als Du Mitglied der CAcert-Gemeinschaft wurdest, hast Du das CCA (CAcert Community Agreement) als Grundlage fuer Deine Mitgliedschaft akzeptiert. Die Policy Group als gesetzgebendes Organ unserer Gemeinschaft hat im Zuge des Umzugs des Vereins von Australien (Neusuedwales) nach Europa (Schweiz) den Hinweis auf den Sitz von CAcert Inc. (dem Verein, der die Infrastruktur im Auftrag der Gemeinschaft betreibt) aus dem CCA und einigen Policies (RDL, Privacy Policy) entfernt.
+
+Dies aendert nichts an der Bedeutung des CCA, den Richtlinien (Policies) oder der Beziehung zwischen Dir, der Gemeinschaft und dem Verein. Die Richtlinien basieren nach wie vor auf dem Common Law. Du musst keine weiteren Schritte unternehmen. Wenn Du jedoch mit dieser Aenderung nicht einverstanden bist, musst Du Deine Zustimmung zur CCA und damit Deine Mitgliedschaft in der CAcert-Gemeinschaft kuendigen, indem Du das entsprechende Verfahren einleitest, wie in den Richtlinien und im Wiki beschrieben.
+
+Bei dieser Gelegenheit moechten wir Dich kurz auf einige Neuerungen hinweisen:
+
+Der Vorteil von CAcert-Zertifikaten ist die persoenliche Ueberpruefung dieser Zertifikate durch Mitglieder des Web of Trust. Sie koennen zur Identifikation, zum Signieren von Dokumenten oder E-Mails, zur Verschluesselung, zum Login, fuer OpenID Connect, etc. verwendet werden. Darueber hinaus sehen wir gute Anwendungsmoeglichkeiten in Unternehmen durch die Organisation Assurance (OrgA), die auch Einnahmen generieren und unsere Finanzen stabilisieren koennte.
+
+Teilst Du unsere Ansicht, dass CAcert auch heute noch sinnvoll ist? Wenn ja, dann lies weiter! 
+
+Wir haben oben einige Bereiche skizziert, in denen wir die Zukunft von CAcert sehen. Wenn Du weitere Ideen hast, schreibe uns bitte. Deine Ideen sind den Teams von CAcert wichtig. Du kannst sie direkt ueber https://wiki.cacert.org/engagement erreichen.
+
+Neben der neuen Ausrichtung hat sich in den letzten Monaten auch im operativen Bereich einiges getan:
+
+    - Erneuertes kritisches, Access-Admin- und Software-Team
+
+    - CAcert Inc. ist von Australien nach Europa umgezogen, wo die meisten seiner Mitglieder leben
+
+    - schnellere und energieeffizientere Hardware mit aktuellerer Software
+
+    - Failover
+
+    - OpenID Connect Anmeldung mit Zertifikat [Details siehe unten]
+
+Wir alle kennen die Knoepfe, mit denen wir uns mit unserem Konto bei einer grossen amerikanischen Internetfirma auf jeder beliebigen Website anmelden koennen. OpenID Connect ist eine extrem sichere Alternative fuer das Identitaetsmanagement. Websites und andere Internetdienste koennen sich bei CAcert registrieren und dann koennen CAcert-Mitglieder eines ihrer Zertifikate, das durch unser Web of Trust gesichert ist, verwenden, um dieses Mitglied zu identifizieren, ohne ein Passwort verwenden zu muessen. Passwort-Diebstahl ist unmoeglich.
+
+
+Natuerlich braucht all dies immer Zeit, Zeit, die unsere Gruppe von Freiwilligen benoetigt. Und Zeit ist Geld, denn unsere Server laufen Tag und Nacht weiter und brauchen Strom... Die Kosten dafuer, dreitausend Euro pro Jahr, sind eigentlich sehr gering.
+
+    - Wenn Du CAcert heute unterstuetzen moechtest: Eine Spende von 5, 10, 20 oder 50 Euro (Franken, Dollar) (moeglichst regelmaessig) hilft CAcert bereits. Wir akzeptieren sowohl Karten als auch Bankueberweisungen. Siehe https://wiki.cacert.org/engagement fuer weitere Informationen.
+
+    - Wenn Du Deine Geschaeftsreisen und Ferien buchst, nutze bitte auch unseren Partner Booking.com https://www.booking.com/index.html?aid=346253
+
+    - Werde Mitglied im Verein CAcert Inc. Anmeldungen mit Postanschrift an: secretary@cacert.org (Jahresbeitrag 10 Euro)
+
+Wenn Du lieber Deine Faehigkeiten als Dein Geld zur Verfuegung stellen willst, lies unter https://wiki.cacert.org/engagement, was Du tun kannst. Auch da bist Du mehr als willkommen! Es gibt technische und nicht-technische Bereiche, in denen auch kleine Beitraege eine grosse Hilfe fuer den Betrieb sind, wenn sie regelmaessig und mit langfristigem Engagement geleistet werden. 
+
+Wir moechten Dir herzlich fuer Deine Teilnahme, Hilfe und Mitarbeit danken. Wenn jedes der Tausenden von CAcert-Mitgliedern nur einen kleinen Finger ruehrt, werden wir Grosses erreichen koennen! 
+
+Mit freundlichen Gruessen 
+
+Brian McCullough 		Etienne Ruedin 
+
+Praesident CAcert Inc.      Sekretaer CAcert Inc. 
+
+
+PS: Antworten auf die am haeufigsten gestellten Fragen zu CAcert findest Du unter https://wiki.cacert.org/engagement 
+
+----
+CAcert Inc.
+Clos Belmont 2
+1208 Geneva
+Switzerland
+
+Spendenkonto IBAN CH02 0077 4010 3947 4420 0
+
+EOF;
+
+$lines_EN = wordwrap($lines_EN, 75, "\n");
+$lines_EN = mb_convert_encoding($lines_EN, "HTML-ENTITIES", "UTF-8");
+
+
+// read last used id
+$lastid = 0;
+if (file_exists("send_policy_cca20240925_lastid.txt"))
+{
+	$fp = fopen("send_policy_cca20240925_lastid.txt", "r");
+	$lastid = trim(fgets($fp, 4096));
+	fclose($fp);
+}
+
+echo "ID now: $lastid\n";
+
+
+$count = 0;
+
+$query = "
+
+	SELECT `id`, `fname`, `lname`, `email`
+	FROM `users`
+	WHERE `deleted` = '0000-00-00 00:00:00'
+	AND `modified` != '0000-00-00 00:00:00'
+	AND `verified` = '1'
+	AND `id` >= '$lastid'
+        AND email not like 'a20%cacert.org'
+	ORDER BY `id`";
+
+/*
+$query = "
+
+	SELECT `id`, `fname`, `lname`, `email`
+	FROM `users`
+	WHERE `deleted` = '0000-00-00 00:00:00'
+	AND `modified` != '0000-00-00 00:00:00'
+	AND `verified` = '1'
+	AND (`id` = '87908' or `id` = '12438')
+
+	ORDER BY `id`";
+ */
+
+$res = mysql_query($query);
+
+while($row = mysql_fetch_assoc($res))
+{
+	$mailtxt = "Dear ${row["fname"]} ${row["lname"]},\n".$lines_EN."\n\n";
+
+	sendmail($row['email'], "[CAcert.org] CAcert Inc. moved to Europe (legal information)", $mailtxt, "support@cacert.org", "", "", "CAcert", "returns@cacert.org", "");
+
+	$fp = fopen("send_policy_cca20240925_lastid.txt", "w");
+	fputs($fp, $row["id"]."\n");
+	fclose($fp);
+
+	$count++;
+	echo "Sent ${count}th mail. User ID: ${row["id"]}\n";
+
+//	if(0 == $count % 16) {
+//		sleep (1);
+//	}
+	if ($count >= 3000) {
+		// avoid memory exhaustion -- this script has a memory leak
+		echo "Continue\n";
+		exit(0);
+	}
+}
+echo "Stop\n";