New scripts
This commit is contained in:
Philipp Dunkel
parent
b23f9a8aaa
commit
bcc52b1a79
2 changed files with 100 additions and 0 deletions
53
scripts/assurer.php
Normal file
53
scripts/assurer.php
Normal file
|
|
@ -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);
|
||||||
|
?>
|
||||||
47
scripts/assurer.txt
Normal file
47
scripts/assurer.txt
Normal file
|
|
@ -0,0 +1,47 @@
|
||||||
|
Dear Valued CAcert Member,
|
||||||
|
|
||||||
|
CAcert has implemented a policy for certifying assurers, which was
|
||||||
|
announced on 30th of May 2008. Since the implementation of the
|
||||||
|
CAcert Assurer Challenge Test System (CATS) last year more than
|
||||||
|
1600 Assurers have taken and passed the challenge and are now
|
||||||
|
official CAcert Assurers, fully compliant with the CAcert Assurance
|
||||||
|
Policy. This email is being sent to those of you who have been
|
||||||
|
active in performing assurances in the past year, but who have not
|
||||||
|
taken and passed the Assurer Challenge Test yet.
|
||||||
|
|
||||||
|
It is no longer permissible for anyone to assure for CAcert who
|
||||||
|
has not passed the CATS. Please visit the CAcert Wiki documentation
|
||||||
|
pages for the Assurer-Challenge
|
||||||
|
<http://wiki.cacert.org/wiki/AssurerChallenge> and follow the
|
||||||
|
instructions. Make sure you have installed your CAcert client
|
||||||
|
certificate into your browser as this system only allows you to
|
||||||
|
login with a client certificate. The Assurers Handbook
|
||||||
|
<http://wiki.cacert.org/wiki/AssuranceHandbook2> will provide you
|
||||||
|
with more detailed information about CAcert Assurances and how to
|
||||||
|
make those assurances successful.
|
||||||
|
|
||||||
|
Why is CAcert doing all this? CAcert has been and still is
|
||||||
|
undergoing many changes since early 2008. CAcert has become a
|
||||||
|
Community with policies in place to issue secure, free and highly
|
||||||
|
qualified signed certificates. CAcert has become a recognized and
|
||||||
|
accepted Certificate Authority on the internet. To maintain this
|
||||||
|
status CAcert will be audited, and the audit must validate that
|
||||||
|
assurers have an understanding of the CAcert policies and the
|
||||||
|
assurance process. A successful audit has the potential for our
|
||||||
|
new CAcert Root Key to be included into the Mozilla CA list this
|
||||||
|
year. It is our hope that all our assurers will complete the
|
||||||
|
CATS, the audit will be successful and CAcert will be featured
|
||||||
|
on Mozilla.
|
||||||
|
|
||||||
|
You have been involved with CAcert and have helped to increase
|
||||||
|
the assured member community we have today. Your contribution
|
||||||
|
is greatly appreciated because CAcert success and acceptance
|
||||||
|
depends on you. We will be very happy to give you any support
|
||||||
|
you may need to complete this process, so please let us know if
|
||||||
|
you have any questions (support@cacert.org).
|
||||||
|
|
||||||
|
Thank you,
|
||||||
|
|
||||||
|
CAcert Inc. Committee
|
||||||
|
Teus Hagen
|
||||||
|
President
|
||||||
Loading…
Reference in a new issue