#!/usr/bin/perl

$temp=$ENV{'QUERY_STRING'};

open (DAT,"+<elinks.dat");
flock(DAT,LOCK_EX);
@database_array = <DAT>;
$v = $temp;
$found = 0;

	$a=0;
	foreach (@database_array) {
		@member_array = split(/\|/,$database_array[$a]);
		chop($ku = $member_array[2]);
		if ($ku eq $v) {
			@members_array = @member_array;
			$member = $a;
			$found = 1;
			}
		$a++;
		}
if($members_array[0] < 999999999) {
	$members_array[0]++;
    }else{
	$members_array[0] = 0;
	}
$database_array[$member] = join("\|",@members_array);

seek (DAT, 0, 0);
if ($found == 1) {
		    print DAT @database_array;
		}
flock(DAT,LOCK_UN);
close (DAT);

if ($found == 1) { 
		print "Location: $members_array[1] \n\n";
		}
 else {
	print "Content-type: text/html \n\n";
	print "<h1>Link not found...</h1><p>This script is not hacked jet :-)";
#	print"<br>@database_array";
#	print"<br>'$v'";
#	print"<br>'$ku'";
    }