home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Pavilions / randomLink.cgi < prev   
Text File  |  2017-09-21  |  518b  |  32 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $prefix = "/Pavilions/";
  4. $nr_of_links = "18";
  5.  
  6. @links = (
  7.    "AnimalPavilion/",
  8.    "TheCities/",
  9.    "TheArt/",
  10.    "TheEarth/",
  11.    "FoodAndMarkets/",
  12.    "GlobalInterest/",
  13.    "GlobalSchoolHouse/",
  14.    "Medical/",
  15.    "Media/",
  16.    "Music/",
  17.    "ScienceAndTechnology/",
  18.    "People/",
  19.    "SmallBusiness/",
  20.    "Sport/",
  21.    "WorldCultures/",
  22.    "WorldExpositions/",
  23.    "Medal/",
  24.    "WorldFestivals/",
  25. );
  26.  
  27. srand;
  28. $nr = int( rand($nr_of_links) );
  29. $link = @links[$nr];
  30.  
  31. print "Location: $prefix$link\n\n";
  32.