X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Fpoison.php;h=552d5968b8b07492b70db3f0ed9f778ab11bb71a;hb=9483a7c7e923556fcafbe5154910dcc53a8e3d5a;hp=02d973e91d45c2cba00a6ba190bc7fb404155416;hpb=30543c79c2fab23f4b37d841b0e33e432660dfe6;p=platal.git

diff --git a/modules/poison.php b/modules/poison.php
index 02d973e..552d596 100644
--- a/modules/poison.php
+++ b/modules/poison.php
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2008 Polytechnique.org                              *
+ *  Copyright (C) 2003-2010 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -28,7 +28,8 @@ class PoisonModule extends PLModule
         return array(
             'pe'          => $this->make_hook('poison', AUTH_PUBLIC, 'user', NO_HTTPS),
             'pem'         => $this->make_hook('mailto', AUTH_PUBLIC, 'user', NO_HTTPS),
-        //    'per'         => $this->make_hook('rand', AUTH_PUBLIC, 'user', NO_HTTPS),
+            'pet'         => $this->make_hook('tags',   AUTH_PUBLIC, 'user', NO_HTTPS),
+            // 'per'         => $this->make_hook('rand', AUTH_PUBLIC, 'user', NO_HTTPS),
         );
     }
 
@@ -46,6 +47,23 @@ class PoisonModule extends PLModule
         exit;
     }
 
+    function handler_tags(&$page, $seed = null, $count = 20)
+    {
+        global $globals;
+
+        $this->load('poison.inc.php');
+        if ($seed == null) {
+            $seed = time();
+        }
+        $emails = get_poison_emails($seed, $count);
+
+        foreach ($emails as $email) {
+            echo "<a href=\"mailto:$email\" >$email</a>". "\n";
+        }
+        echo '<a href="' . $globals->baseurl . '/pem/' . md5($seed) . '">suite</a>';
+        exit;
+    }
+
     function handler_mailto(&$page, $seed = null, $count = 20)
     {
         global $globals;