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