#!/usr/bin/perl -w
#
# sneaker.pl by Mike Burns <netgeek@downcity.net> 200004181401.
# Which sneaker pair should I wear today...?
#
use strict;

srand;
chomp(my $date=`date +%Y%m%d`);
my $left=rand(4)%10;
my $right=rand(4)%10;
chomp(my @colour=("Black","Blue","Red","Yellow"));

while($left==$right)
	{
	$left=rand(4)%10;
	$right=rand(4)%10;
	}

open(IN, "/home/netgeek/misc/sneaker.dat") ||
die "Cannot open the Sneaker File";

while(<IN>)
	{
	chomp;
	my($olddate, $oldleft, $oldright)=split(/:/);
	if($olddate && $date==$olddate)
		{
		print "Current sneakers: $colour[$oldleft], ",
			"$colour[$oldright].\n";
		last;
		}
	elsif($oldleft && $oldright)
		{
		while($oldleft==$left || $oldright==$right || $left==$right)
			{
			$left=rand(4)%10;
			$right=rand(4)%10;
			}
		}
	open(OUT, ">/home/netgeek/misc/sneaker.dat") ||
		die "Cannot open the Sneaker File";
	print OUT "$date:$left:$right";
	close(OUT);
	print "Current sneakers: $colour[$oldleft], ",
		"$colour[$oldright].\n";
	}
close(IN);