#!/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<!-- elmo didnt work : $elmo -->\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]<BR>";
		our $flag = 1;
		$version = $splittype[1];
	}
  }
} else {
  ($version,$cookie) = &createcookie();
  print $q->header(-cookie=>$cookie);
};

print "\n<!-- elmo : $elmo -->\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 = <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 = <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 = <V1>;
       foreach my $line (@v1) {
         $line =~ s/\[data: elmo\]/$elmo/gis;
         print $line;
       }
       close(V1);
}