home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / jordan / wot-redirect.inc-2006-06-12 < prev    next >
Text File  |  2006-06-12  |  2KB  |  55 lines
  1. <?
  2.     // Keep leigh.butler@gmail.com leighdb@pacbell.net CELL: 818-357-9193
  3.     // in the loop on changes.
  4.     //    seed with microseconds
  5.     function make_seed()
  6.     {
  7.         list($usec, $sec) = explode(' ', microtime());
  8.         return (float) $sec + ((float) $usec * 100000);
  9.     }
  10.     srand(make_seed());
  11.     // Pick a number from 0 to 20.  Mirror is selected later based on value.
  12.     $randval = rand(0, 20);
  13.     
  14.     // Is the number between 0 and 4?
  15.     if ($randval < 4)
  16.     {
  17.         // Alistair Young's <avatar@arkane.demon.co.uk> 1st mirror 
  18.         $address = "http://www.arkane.demon.co.uk/WOTFAQ/";
  19.         header("Location: $address");
  20.     }
  21.     // Is the number between 4 and 8?
  22.     if ($randval < 8)
  23.     {
  24.         // Alistair Young's <avatar@arkane.demon.co.uk> 2nd mirror 
  25.         $address = "http://www.arkane-systems.net/faqs/WOTFAQ/";
  26.         header("Location: $address");
  27.     }
  28.     // Is the number between 8 and 12?
  29.     else if ($randval < 12)
  30.     {
  31.         // David Scotton's <dscotton@bantha.org> and Maggie Brazeau's
  32.         // <maggie_sedai@darkfriends.net> mirror
  33.         $address = "http://www.darkfriends.net/wheel/";
  34.         header("Location: $address");
  35.     }
  36.     // Is the number between 12 and 16?
  37.     else if ($randval < 16)
  38.     {
  39.         // Kate Nepveu's <knepveu@steelypips.org> mirror
  40.         $address = " http://www.steelypips.org/wotfaq/";
  41.         header("Location: $address");
  42.     }
  43. // If number is between 16 and 20, stay at http://linuxmafia.com/jordan/.
  44. //
  45. // Discontinued mirrors -- don't use!
  46. //        // Jeff S. Dougan's <jffdougan@usawide.net> uneditable mirror, 
  47. //        $address = "http://www.sit.wisc.edu/~jsdougan/wotfaq/";
  48. //         // Pam Korda's <kor2@midway.uchicago.edu> going-away mirror
  49. //        $$address = "http://home.uchicago.edu/~kor2/WH_FAQ/";
  50. //
  51. // Unofficial mirror:
  52. //              // Nils Amlehn's <admin@amlehn.ch> mirror
  53. //              $address = "http://www.amlehn.ch/WoT/";
  54. ?>
  55.