Speed Boost Mod 1.0 This mod will speed up your board and lower CPU usage seriously. However it will also disable the Clicklog feature. It is up to you what is more important... Michael Prager http://boardmod.yabbforum.com YaBB.pl &WriteLog; # Write to the log if ($action eq "") { &WriteLog; } Sources/Subs.pl sub WriteLog { my($curentry, $name); my $field = $username; if($field eq "Guest") { $field = "$user_ip"; } fopen(LOG, "$vardir/log.txt"); my @online = ; fclose(LOG); fopen(LOG, ">$vardir/log.txt", 1); print LOG "$field|$date\n"; foreach $curentry (@online) { $curentry =~ s/\n//g; ($name, $date1) = split(/\|/, $curentry); $date2 = $date; chomp $date1; chomp $date2; &calctime; if($name ne $field && $result <= 15 && $result >= 0) { print LOG "$curentry\n"; } } fclose(LOG); fopen(LOG, "+<$vardir/clicklog.txt",1); my @entries = ; seek LOG, 0, 0; truncate LOG, 0; print LOG "$field|$date|$ENV{'REQUEST_URI'}|$ENV{'HTTP_REFERER'}|$ENV{'HTTP_USER_AGENT'}\n"; foreach $curentry (@entries) { $curentry =~ s/\n//g; chomp $curentry; ($name, $date1, $dummy) = split(/\|/, $curentry); $date2 = $date; chomp $date1; chomp $date2; &calctime; if($result <= $ClickLogTime && $result >= 0) { print LOG "$curentry\n"; } } fclose(LOG); } sub WriteLog { my($curentry, $name); my $field = $username; if($field eq "Guest") { $field = "$user_ip"; } fopen(LOG, "$vardir/log.txt"); my @online = ; fclose(LOG); fopen(LOG, ">$vardir/log.txt", 1); print LOG "$field|$date\n"; foreach $curentry (@online) { $curentry =~ s/\n//g; ($name, $date1) = split(/\|/, $curentry); $date2 = $date; chomp $date1; chomp $date2; &calctime; if($name ne $field && $result <= 15 && $result >= 0) { print LOG "$curentry\n"; } } fclose(LOG); }