WebStuff -> Random Quotes

Random Quotes, first perl script i wrote

Track this topic | Email this topic | Print this topic

Jerphil

Posted: Apr 8 2004, 02:55 PM

<?php echo "Da Coda"; ?>�
Group Icon

Group: Founder
Posts: 337
Member No.: 1
Joined: 13-March 04

ok this can not be used wiht a forum.
you need a host that supports perl

QUOTE

# Random Quote script by /jerphil

#!/usr/local/perl/bin
print "Content-Type: text/html\n\n";

@quotes = (
"Jerphil Rocks",
"WebStuff Rocks",
"hehehehehehe",
"Cable internet is cool"
);

$x = 0;
while(@quotes[$x] ne "") {
$x++;
}

$random_number = int(rand($x)+0);
print @quotes[$random_number];

change the bold to the quotes you want.

--------------------

indweller	Posted: Apr 8 2004, 04:03 PM
<img src= "the_pimp'n sripter" /*ace m Group: Admin Posts: 240 Member No.: 2 Joined: 13-March 04	cable internet does rule wish i had it great job jerphil! --------------------

alchemist	Posted: Apr 8 2004, 04:04 PM
Unregistered	lol i have cox to be exzact it rulls

Jay	Posted: Apr 24 2004, 01:19 PM
Getting Better/Learning "Ultra Skinning" Group: Graphics Admin Posts: 39 Member No.: 27 Joined: 3-April 04	Thats cool. I have T-1 connection off bellsouth. But still a nice job. --------------------

1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)

0 Members:

« Next Oldest | Gallery | Next Newest »

Close Topic Options

Track this topic
Receive email notification when a reply has been made to this topic and you are not active on the board.

Subscribe to this forum
Receive email notification when a new topic is posted in this forum and you are not active on the board.

Download / Print this Topic
Download this topic in different formats or view a printer friendly version.