39 lines
2 KiB
Plaintext
39 lines
2 KiB
Plaintext
###############################################################################
|
|
# webck17.per
|
|
#
|
|
# Perl script for creating webcheck download test CDF for Top17 workload
|
|
#
|
|
# History:
|
|
# 07/24/97 vincentr Created.
|
|
#
|
|
# Copyright(C) 1996. Microsoft Corporation. All rights reserved.
|
|
###############################################################################
|
|
|
|
$Server = "http://vincentr-iis";
|
|
if( $ARGV[0] ne "" )
|
|
{
|
|
$Server = $ARGV[0];
|
|
}
|
|
|
|
print STDOUT "<CHANNEL HREF=\"" . $Server . "/\">\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/dummy1/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/b5/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Cnet/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Cnn/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Dilbert/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Disney/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Espnet/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Infoseek/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Mindspring/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/MrShowBiz/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/MsTravel/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/NBA/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/NFL/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Pathfinder/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/W3C/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Web21/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Holodeck/default.htm\"></ITEM>\n";
|
|
print STDOUT " <ITEM HREF=\"" . $Server . "/top17/Microsoft/default.htm\"></ITEM>\n";
|
|
print STDOUT "</CHANNEL>\n";
|
|
|