home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / jordan / wot-redirect.inc-2004-01-06 < prev    next >
Text File  |  2004-01-06  |  670b  |  33 lines
  1. <?
  2.     //    seed with microseconds
  3.     function make_seed()
  4.     {
  5.         list($usec, $sec) = explode(' ', microtime());
  6.         return (float) $sec + ((float) $usec * 100000);
  7.     }
  8.     srand(make_seed());
  9.     $randval = rand(0, 20);
  10.     
  11.     if ($randval < 3)
  12.     {
  13.         $address = "http://www.arkane.demon.co.uk/WOTFAQ/";
  14.         header("Location: $address");
  15.     }
  16.     else if ($randval < 6)
  17.     {
  18.         $address = "http://www.sit.wisc.edu/~jsdougan/wotfaq/";
  19.         header("Location: $address");
  20.     }
  21.     else if ($randval < 9)
  22.     {
  23.         $address = "http://www.darkfriends.net/wheel/";
  24.         header("Location: $address");
  25.     }
  26.     else if ($randval < 12)
  27.     {
  28.         $address = "http://home.uchicago.edu/~kor2/WH_FAQ/";
  29.         header("Location: $address");
  30.     }
  31. ?>
  32.  
  33.