#/usr/local/bin/perl -w

#___________________________________________________________________________
#
# index.cgi
#
# Revision : 16:06 12/11/01
#
# Author : Wiliam Stephens
# E-Mail : wilstephens@hotmail.com
#
#___________________________________________________________________________


$| = 1;

use CGI;
$query = new CGI;

print $query->header;

@listhtml = (index.apricot.html,
index.butter.html,
index.garden.html,
index.greek.html,
index.maple.html,
index.raspberry.html,
index.strawberry.html,
index.natural.html
);

$htmlrand = $listhtml[int rand @listhtml];

open (FILE, "</home/fba/beta.rachelsorganic.co.uk/$htmlrand");
@html = <FILE>;
close FILE;

print "@html";

exit;

@listhtml = ( index.apricot.html,
index.butter.html,
index.garden.html,
index.greek.html,
... );

@listhtml = ( 'index.apricot.html',
'index.butter.html',
'index.garden.html',
'index.greek.html',
... );

$| = 1;

use CGI;
$query = CGI::new();

print $query->header();

@allhtml = ('index.apricot.html',
'index.butter.html',
'index.garden.html',
'index.greek.html',
'index.maple.html',
'index.raspberry.html',
'index.strawberry.html',
'index.natural.html'
);

$randhtml = $allhtml[int rand @allhtml];

open (HTMLDAT, "</home/fba/beta.rachelsorganic.co.uk/$randhtml");
@html = <HTMLDAT>;
close HTMLDAT;

print @html;

#!/usr/bin/perl

print "Content-type: text/html\n\n";

my %list = ( 0 => 'index.apricot.html',
1 => 'index.butter.html',
2 => 'index.garden.html',
3 => 'index.greek.html',
4 => 'index.maple.html',
5 => 'index.raspberry.html',
6 => 'index.strawberry.html',
7 => 'index.natural.html'
);

my $htmlrand = $list{int(rand(7))};

print $htmlrand;