Update core
[platal.git] / modules / poison / poison.inc.php
... / ...
CommitLineData
1<?php
2/***************************************************************************
3 * Copyright (C) 2003-2009 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22function get_poison_emails($seed, $count)
23{
24 global $globals;
25
26 $fd = fopen($globals->poison->file, 'r');
27 $size = fstat($fd);
28 $size = $size['size'];
29 $seed = crc32($seed . date('m-Y')) % $size;
30 if ($seed < 0) {
31 $seed = $size + $seed;
32 }
33
34 fseek($fd, $seed);
35 fgets($fd);
36 $emails = array();
37 $i = 0;
38 while (!feof($fd) && $i < $count) {
39 $line = trim(fgets($fd));
40 if (strlen($line) > 0) {
41 $emails[] = $line;
42 ++$seed;
43 }
44 ++$i;
45 }
46 fclose($fd);
47 return $emails;
48}
49
50function randomize_poison_file()
51{
52 global $globals;
53
54 $fd = fopen($globals->poison->file, 'r');
55 $entries = array();
56 while (!feof($fd)) {
57 $line = trim(fgets($fd));
58 if (strlen($line) > 0) {
59 $m1 = $line . '@' . $globals->mail->domain;
60 $entries[$m1] = md5($m1);
61 $m2 = $line . '@' . $globals->mail->domain2;
62 $entries[$m2] = md5($m2);
63 }
64 }
65 fclose($fd);
66
67 asort($entries);
68 $fd = fopen($globals->poison->file . '.rand', 'w');
69 foreach ($entries as $key => $value) {
70 fwrite($fd, "$key\n");
71 }
72 fclose($fd);
73}
74
75// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
76?>