modules/poison/poison.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2013 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
  22 function 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
  50 function 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 ?>