[REBOL] script not terminating, continues to replicate
From: norsepower:uswest at: 5-Oct-2000 23:38
Besides the horribly inefficient code, what could be wrong with this script
(below) that would be causing problems?
My hosting service said they suspended my site because "This script has been
running constantly since the site was re-enabled, with 10 plus copies running
on each webserver. Not only does this monopolize system resources, but the
script does not terminate properly and continues to replicate. We cannot
permit scripts with programming errors on our servers as they
impact the behavior of other customer sites."
-Ryan
#!rebol -cs
REBOL [
Title: "Banner Ad Randomizer"
File: %webbanner.cgi
Date: 16-Apr-2000
Author: "Ryan Christiansen"
Purpose: {
Generate HTML code that displays a linked banner advertisement
}
]
urls: [ "http://www.schonder.com"
"http://www.abisoft.com/BePlan/PurchaseBOSJ.html"
"http://www.lebuzz.com/buzzcd_ad.html"
"http://www.bebits.com/app/867"
"http://www.bug.org.yu"
"http://www.goingware.com"
"http://www.gobe.com"
]
imgs: [ "dasbebook.gif"
"BePlan.gif"
"buzzcd_anim.gif"
"ImageProAd.gif"
"yugobug.gif"
"goingware.gif"
"gobe.gif"
]
alts: [ "Das BeBook at Papier-Schonder KG office supply and bookstore"
"BePlan from AbiSoft"
"BuzzCD - Hand-picked best BeOS software"
"ImagePro displays, zooms, and re-sizes images"
"BUG YUgoslavia"
"GoingWare, Inc. - Expert software consulting and development"
"Gobe Software"
]
heights: [ 60
59
59
59
52
60
60
]
widths: [ 468
467
467
467
115
468
468
]
random/seed now
ad: random 7
url: pick urls ad
img: pick imgs ad
alt: pick alts ad
height: pick heights ad
width: pick widths ad
print "Content-Type: text/html^/"
print rejoin [{<a href="} url {"><IMG SRC="/graphics/bannerads/} img {" ALT} alt {
target="_blank" border=0 height="} height {" width="} width {"></a>
}]
