archive
/
windows-xp
mirror of https://github.com/tongzx/nt5src
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
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.
6 Commits
1 Branch
0 Tags
2.0 GiB
Tree: daad8a087a
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'daad8a087a'
${ noResults }
windows-xp/Source/XPSP1/NT/shell/ext/webcheck/perf/webckdn/webck17.per

52 lines
3.2 KiB
Raw Normal View History

Add source files
4 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
  1. ###############################################################################
  2. # webck17.per
  3. #
  4. # Perl script for creating webcheck download test page for Top17 workload
  5. #
  6. # History:
  7. # 07/24/97 vincentr Created.
  8. #
  9. # Copyright(C) 1996. Microsoft Corporation. All rights reserved.
  10. ###############################################################################
  12. $Server = "http://vincentr-iis";
  13. if( $ARGV[0] ne "" )
  14. {
  15. $Server = $ARGV[0];
  16. }
  18. print STDOUT "<HTML>\n";
  19. print STDOUT "<HEAD>\n";
  20. print STDOUT "<TITLE>WEBCHECK17</TITLE>\n";
  21. print STDOUT "</HEAD>\n";
  22. print STDOUT "<BODY LINK=\"#0000ff\" VLINK=\"#800080\">\n";
  23. print STDOUT "\n";
  24. print STDOUT "<B><U><FONT SIZE=4><P ALIGN=\"CENTER\">WEBCHECK DOWNLOAD TEST</P></U></FONT>\n";
  25. print STDOUT "<FONT SIZE=2><P ALIGN=\"CENTER\">Webcrawl for Top17 Workload</P></B>\n";
  26. print STDOUT "<P>&nbsp;</P></FONT>\n";
  27. print STDOUT "<P ALIGN=\"CENTER\"><CENTER><TABLE CELLSPACING=0 BORDER=0 CELLPADDING=7 WIDTH=280>\n";
  28. print STDOUT "<TR><TD VALIGN=\"TOP\">\n";
  29. print STDOUT "<P><A HREF=\"" . $Server . "/top17/dummy1/default.htm\">" . $Server . "/dummy1/default.htm</A>\n";
  30. print STDOUT "<P><A HREF=\"" . $Server . "/top17/b5/default.htm\">" . $Server . "/b5/default.htm</A>\n";
  31. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Cnet/default.htm\">" . $Server . "/Cnet/default.htm</A>\n";
  32. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Cnn/default.htm\">" . $Server . "/Cnn/default.htm</A>\n";
  33. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Dilbert/default.htm\">" . $Server . "/Dilbert/default.htm</A>\n";
  34. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Disney/default.htm\">" . $Server . "/Disney/default.htm</A>\n";
  35. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Espnet/default.htm\">" . $Server . "/Espnet/default.htm</A>\n";
  36. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Infoseek/default.htm\">" . $Server . "/Infoseek/default.htm</A>\n";
  37. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Mindspring/default.htm\">" . $Server . "/Mindspring/default.htm</A>\n";
  38. print STDOUT "<P><A HREF=\"" . $Server . "/top17/MrShowBiz/default.htm\">" . $Server . "/MrShowBiz/default.htm</A>\n";
  39. print STDOUT "<P><A HREF=\"" . $Server . "/top17/MsTravel/default.htm\">" . $Server . "/MsTravel/default.htm</A>\n";
  40. print STDOUT "<P><A HREF=\"" . $Server . "/top17/NBA/default.htm\">" . $Server . "/NBA/default.htm</A>\n";
  41. print STDOUT "<P><A HREF=\"" . $Server . "/top17/NFL/default.htm\">" . $Server . "/NFL/default.htm</A>\n";
  42. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Pathfinder/default.htm\">" . $Server . "/Pathfinder/default.htm</A>\n";
  43. print STDOUT "<P><A HREF=\"" . $Server . "/top17/W3C/default.htm\">" . $Server . "/W3C/default.htm</A>\n";
  44. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Web21/default.htm\">" . $Server . "/Web21/default.htm</A>\n";
  45. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Holodeck/default.htm\">" . $Server . "/Holodeck/default.htm</A>\n";
  46. print STDOUT "<P><A HREF=\"" . $Server . "/top17/Microsoft/default.htm\">" . $Server . "/Microsoft/default.htm</A>\n";
  47. print STDOUT "<P></TD></TR></TABLE></CENTER></P>\n";
  48. print STDOUT "\n";
  49. print STDOUT "<FONT SIZE=2><P>&nbsp;</P></FONT>\n";
  50. print STDOUT "</BODY>\n";
  51. print STDOUT "</HTML>\n";