sub user_record
{
my $count = hit_counter($user_count_file);

open (IF, ">>$user_records_file") or die "Cannot open $user_records_file\n";
my $str = "-----------------------------------------------------------\n";
$str .= "count: $count\n";
$str .= mytime()."\n";
$str .= "ip adderss: $ip_ad\n";
$str .= "User Agent: $http_user_agent\n";
$str .= "Query: $query\n";
$str .= "Search Type: $search_type\n";
print IF $str;
close IF;
return;
}
#=================
sub hit_counter
{
my ($countfile) = @_;
open(CNF,"<$countfile");
my $count = <CNF>;
close(CNF);
chop($count);
$count++;
open(CNF,">$countfile");
print CNF "$count\n";
close(CNF);
return $count;
}