I very interested in understanding this so here goes...
now this gets called every time ... right...
and does the second one take
1. A Little more HorsePower
2. Some More horsepower
3. A lot more horsepower
this is the original code.... Subs.pl
These are right from the MOD...
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 && $name ne $user_ip) { print LOG "$curentry\n"; }
}
Replacement code...
## WHOSON MOD START ##
fopen(LOG, "$vardir/log.txt");
my @online = <LOG>;
fclose(LOG);
fopen(LOG, ">$vardir/log.txt");
print LOG rname'}\|$INFO{'num'}|$user_ip\n";
foreach $curentry (@online) {
$curentry =~ s/\n//g;
($name, $value, $name1, $name2, $name3, $name4, $name5, $name6, $ipinfo) = split(/\|/, $curentry);
$date1 = "$value";
$date2 = "$logdate";
&calctime;
if($name ne $field && $result <= 5 && $result >= 0 && $name ne $user_ip) { print LOG "$curentry\n"; }
}
fclose(LOG);
## WHOSON MOD END ##