Hello,
I am working on a web project that will be using the srand function
both in the creation of html pages (some of the elements get randomly
selected from lists) and in the selection of pages to be called when
the user clicks certain links.
So far, I can get what I need when I'm compiling a page dynamically, so
it's not the srand function that's the trouble, but the way I'm trying
to get the links to call randomly-accessed pages isn't working very
well.
I've put the links in a cgi-compiled page in a "left" frame, to call
pages into the right, "main" frame of a page. The random link works
once and then the page needs to be refreshed before it will work again.
I can see that this is because I've created a $RandomPage variable from
the srand function which, once created, doesn't change until the cgi
script is run again from top to bottom, so I've tried various ways with
javascript to get the "left" page to refresh whenever the link is
clicked or whenever a new page is opened in the "main" window. None of
my javascript workarounds are working, and I wonder if there's a perl
way to get this script to re-run itself every time a user clicks a
link?
Here's roughly the code:
#################################
#!/usr/local/bin/perl5
use CGI qw(:standard);
#make array of pages available:
@Pages=("../page1.htm", "../page2.htm", "../page3.htm");
# pick one of the pages at random for This Link
srand;
$RandomPage = $Pages[int(rand(@Pages))];
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head>
<title>Title Here</title>
</head>
<BODY>
<TABLE height = 100%><TR>
<TD height = 33% align=center VAlign=center><a href="$RandomPage"
Target="main">This Link</a></TD>
</TR><TR><TD>...</TD></TR><TR><TD>...</TD></TR>
</table>
EndOfHTML
print "</body></html>";
#########################################
Many thanks for all and any help in advance!
Rohesia
=====
Rohesia Hamilton Metcalfe
__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
