Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

38 lines
2.0 KiB

  1. ###############################################################################
  2. # webck17.per
  3. #
  4. # Perl script for creating webcheck download test CDF for Top17 workload
  5. #
  6. # History:
  7. # 07/24/97 vincentr Created.
  8. #
  9. # Copyright(C) 1996. Microsoft Corporation. All rights reserved.
  10. ###############################################################################
  11. $Server = "http://vincentr-iis";
  12. if( $ARGV[0] ne "" )
  13. {
  14. $Server = $ARGV[0];
  15. }
  16. print STDOUT "<CHANNEL HREF=\"" . $Server . "/\">\n";
  17. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/dummy1/default.htm\"></ITEM>\n";
  18. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/b5/default.htm\"></ITEM>\n";
  19. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Cnet/default.htm\"></ITEM>\n";
  20. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Cnn/default.htm\"></ITEM>\n";
  21. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Dilbert/default.htm\"></ITEM>\n";
  22. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Disney/default.htm\"></ITEM>\n";
  23. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Espnet/default.htm\"></ITEM>\n";
  24. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Infoseek/default.htm\"></ITEM>\n";
  25. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Mindspring/default.htm\"></ITEM>\n";
  26. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/MrShowBiz/default.htm\"></ITEM>\n";
  27. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/MsTravel/default.htm\"></ITEM>\n";
  28. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/NBA/default.htm\"></ITEM>\n";
  29. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/NFL/default.htm\"></ITEM>\n";
  30. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Pathfinder/default.htm\"></ITEM>\n";
  31. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/W3C/default.htm\"></ITEM>\n";
  32. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Web21/default.htm\"></ITEM>\n";
  33. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Holodeck/default.htm\"></ITEM>\n";
  34. print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Microsoft/default.htm\"></ITEM>\n";
  35. print STDOUT "</CHANNEL>\n";