#!/usr/bin/perl
# http://www.jmbsoft.com/license.php

my $id = (split(/=/, $ENV{'QUERY_STRING'}))[1];

$id =~ s/\||;|\/|\.//gi;

if( -f "./data/members/$id" )
{
    open(FILE, "+<./data/members/$id") || Error("$!", "./data/members/$id");
    flock(FILE, 2);
    my @member = split(/\|/, <FILE>, 31);

    $member[1]++;
    $member[3]++;

    seek(FILE, 0, 0);
    print FILE join('|', @member);
    my $tell = tell(FILE);
    if( $tell != -1 )
    {
        truncate(FILE, $tell);
    }
    flock(FILE, 8);
    close(FILE);

    print "Location: $member[7]\n\n";
}
else
{
    my $uri = substr($ENV{'REQUEST_URI'}, 0, rindex($ENV{'REQUEST_URI'}, '/'));
    print "Location: http://$ENV{'HTTP_HOST'}$uri/random.cgi\n\n";
}


sub Error
{
    my $error = shift;
    my $file  = shift;

    print "Content-type: text/html\n\n";
    print "Error: $error<br />";
    print "File: $file<br />";

    exit;
}