open(file, "$mailclicks"); flock(file, 2); @recs = <file>; flock(file, 8); close(file);
	$i = 0;
	foreach $rec (@recs) {
	$rec =~ s/\n//g; ($id,$description,$need,$received) = split(/::/,$rec);
		if ($id eq $formdata{'id'}) { $received++; $recs[$i] = "$id\::$description\::$need\::$received"; }
	$i++;
	}
open(file, ">$mailclicks"); flock(file, 2); 
	foreach $r (@recs) { print file "$r\n" unless ($r eq "" || $r eq "\n"); }
flock(file, 8); close(file);