newmedia
04-23-2003, 03:35 AM
Greetings
I have pearl script. see below
I would like to add a meta refresh tag with out having to do the reload buttm and my imges can cahnge every 15 sec.
Any help would be most apricated. ;)
************************************
<html><body background=white>#!/usr/bin/perl
$basedir = "/~jackie/randompics/";
@files = `ls -1 /home/jackie/html/randompics`;
srand(time ^ $$);
$num = rand(@files); # Pick a Random Number
print "Content-type: text/html\n\n";
open FILE, "<$file";
print <<"EOF";
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
<META HTTP-EQUIV="refresh" content="5;URL=http://www.cs.columbia.edu/~jackie">
</head>
<table border="0" width="660" cellpadding="5" height="445">
<tr>
<td valign="top" width="6">
<table border="0">
<tr>
<td> </td>
</tr>
</table>
</td>
<td valign="top" width="306">
<table cellpadding="5" align="left" width="304">
<tr>
<td align="left"> <img src="$basedir$files[$num]">
<hr>
<p> </p>
<p> </p>
<p> <br>
<tt>
<!-- hhmts start -->
<!-- hhmts ends -->
</tt> </p>
</td>
</tr>
</table></table>
EOF
close FILE;
</html>
I have pearl script. see below
I would like to add a meta refresh tag with out having to do the reload buttm and my imges can cahnge every 15 sec.
Any help would be most apricated. ;)
************************************
<html><body background=white>#!/usr/bin/perl
$basedir = "/~jackie/randompics/";
@files = `ls -1 /home/jackie/html/randompics`;
srand(time ^ $$);
$num = rand(@files); # Pick a Random Number
print "Content-type: text/html\n\n";
open FILE, "<$file";
print <<"EOF";
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
<META HTTP-EQUIV="refresh" content="5;URL=http://www.cs.columbia.edu/~jackie">
</head>
<table border="0" width="660" cellpadding="5" height="445">
<tr>
<td valign="top" width="6">
<table border="0">
<tr>
<td> </td>
</tr>
</table>
</td>
<td valign="top" width="306">
<table cellpadding="5" align="left" width="304">
<tr>
<td align="left"> <img src="$basedir$files[$num]">
<hr>
<p> </p>
<p> </p>
<p> <br>
<tt>
<!-- hhmts start -->
<!-- hhmts ends -->
</tt> </p>
</td>
</tr>
</table></table>
EOF
close FILE;
</html>