modules/poison/poison.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 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) % $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             if ($seed % 27 > 13) {
  42                 $line .= '@' . $globals->mail->domain;
  43             } else {
  44                 $line .= '@' . $globals->mail->domain2;
  45             }
  46             $emails[] = $line;
  47             ++$seed;
  48         }
  49         ++$i;
  50     }
  51     fclose($fd);
  52     return $emails;
  53 }
  54
  55 function randomize_poison_file()
  56 {
  57     global $globals;
  58
  59     $fd = fopen($globals->poison->file, 'r');
  60     $entries = array();
  61     while (!feof($fd)) {
  62         $line = trim(fgets($fd));
  63         if (strlen($line) > 0) {
  64             $entries[$line] = md5($line);
  65         }
  66     }
  67     fclose($fd);
  68
  69     asort($entries);
  70     $fd = fopen($globals->poison->file . '.rand', 'w');
  71     foreach ($entries as $key => $value) {
  72         fwrite($fd, "$key\n");
  73     }
  74     fclose($fd);
  75 }
  76
  77 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
  78 ?>