#!/usr/bin/perl

$requete = $ENV{'QUERY_STRING'};

$requete =~ /^([a-z]+)\+(\S+)\+(\S+)$/;

($nick, $on, $off) = ($1, $2, $3);

$heure = time;

if (open(ONLINE, "online.log"))
{
	while(<ONLINE>)
	{
		if (/^$nick:/) { $last = $_; }
	}
	close(ONLINE);
}
$last =~ /:(\d+)$/;
$vu = $1;

if ( ($heure - $vu)> 60)
{
#offline
	print "Location: http://$off/\n\n";
} else {
#online
	print "Location: http://$on/\n\n";
}