Part of the Samples Website. 8/16/97.

---

samples.NewIn96.urlMaker

«Generate 300 URLs for a Pounder run against three web servers

local (folder = "NT C Drive:InetPub:wwwroot:docserver:", f)

local (ct = 0, names = {})

fileloop (f in folder)

if (ct % 3) == 0

names = names + file.fileFromPath (f)

msg (sizeof (names))

if sizeof (names) == 100

break

ct++

local (s, i)

for i = 1 to 100 «for the Quadra server

s = s + "http://www.scripting.com/docserver/" + names [i] + cr

for i = 1 to 100 «for the NT server

s = s + "http://ws5.scripting.com/docserver/" + names [i] + cr

for i = 1 to 100 «for the 9500 server

s = s + "http://scripting.com/docserver/" + names [i] + cr

toys.newtextobject (s, @scratchpad.urls)

This page was last built on Sat, Aug 16, 1997 at 6:43:38 PM. You can download the current set of sample scripts from our FTP site. Dave