#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my (
$version,
$cookie
);
# Check if the person accepts cookies;
my $elmo = $q->cookie('elmo');
#unless ($elmo) {
# print $q->header;
# print "\n\n";
# &version1();
# exit(0);
#}
## Check to see if the Cookie exists
my $splitrun = $q->cookie('splitrun');
if ($splitrun ne "") {
print $q->header;
# Work out what version to display
my @splitrun = split(/\|/, $splitrun);
foreach my $line (@splitrun) {
my @splittype = split(/=/, $splitrun);
if ($splittype[0] eq "life") {
# print "hello $line - $splittype[0] - $splittype[1]
";
our $flag = 1;
$version = $splittype[1];
}
}
} else {
($version,$cookie) = &createcookie();
print $q->header(-cookie=>$cookie);
};
print "\n\n";
if ($version == 1) {
&version1();
} elsif ($version == 2) {
&version2();
} else {
&version3();
}
# Create the Cookie
sub createcookie {
# Select a version to use.
my $range = 3;
my $versionnum = int(rand($range));
$versionnum ++;
my $version = "life\=$versionnum";
my $cookie = $q->cookie(-name=>'splitrun',
-value=>"$version",
-domain=>"housemouseuk.com",
-expires=>'+3y',
-path=>'/');
return ($versionnum,$cookie);
};
# Display version 1
sub version1 {
open (V1, "./v1.html");
my @v1 = ;
foreach my $line (@v1) {
$line =~ s/\[data: elmo\]/$elmo/gis;
print $line;
}
close(V1);
}
# Display version 1
sub version2 {
open (V1, "./v2.html");
my @v1 = ;
foreach my $line (@v1) {
$line =~ s/\[data: elmo\]/$elmo/gis;
print $line;
}
close(V1);
}
# Display version 3
sub version3 {
open (V1, "./v3.html");
my @v1 = ;
foreach my $line (@v1) {
$line =~ s/\[data: elmo\]/$elmo/gis;
print $line;
}
close(V1);
}