home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / jordan / wot-redirect.inc-2007-05-02 < prev   
Text File  |  2007-05-01  |  2KB  |  53 lines
  1. <?
  2.     // Keep Leigh_Butler@paramount.com, leighdb@pacbell.net, 
  3.     // leigh.butler@gmail.com 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 5?
  15.     if ($randval < 5)
  16.     {
  17.         // Alistair Young's <avatar@arkane.demon.co.uk> 
  18.         // <silicate@gmail.com> mirror 
  19.         // Replaces http://www.arkane-systems.net/faqs/WOTFAQ/
  20.         $address = " http://www.siliconcerebrate.com/faqs/WOTFAQ/";
  21.         header("Location: $address");
  22.     }
  23.     // Is the number between 5 and 10?
  24.     else if ($randval < 10)
  25.     {
  26.         // David Scotton's <dscotton@bantha.org> and Maggie Brazeau's
  27.         // <maggie_sedai@darkfriends.net> mirror
  28.         $address = "http://www.darkfriends.net/wheel/";
  29.         header("Location: $address");
  30.     }
  31.     // Is the number between 10 and 15?
  32.     else if ($randval < 15)
  33.     {
  34.         // Kate Nepveu's <knepveu@steelypips.org> mirror
  35.         $address = " http://www.steelypips.org/wotfaq/";
  36.         header("Location: $address");
  37.     }
  38. // If number is between 15 and 20, stay at http://linuxmafia.com/jordan/.
  39. //
  40. // Discontinued mirrors -- don't use!
  41. //        // Jeff S. Dougan's <jffdougan@usawide.net> uneditable mirror, 
  42. //        $address = "http://www.sit.wisc.edu/~jsdougan/wotfaq/";
  43. //         // Pam Korda's <kor2@midway.uchicago.edu> going-away mirror
  44. //        $address = "http://home.uchicago.edu/~kor2/WH_FAQ/";
  45. //        // Alistair Young's  <avatar@arkane.demon.co.uk> 
  46. //              // <silicate@gmail.com> original mirror
  47. //        $address = "http://www.arkane.demon.co.uk/WOTFAQ/";
  48. //
  49. // Unofficial mirror:
  50. //              // Nils Amlehn's <admin@amlehn.ch> mirror
  51. //              $address = "http://www.amlehn.ch/WoT/";
  52. ?>
  53.