archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(IsDownload): Removed.

Browse Source 
(DelayRequired): Fix array reference.
(WriteRecentVisitors): Fix truncation.
This commit is contained in:
Alex Schroeder
2005-07-24 16:41:14 +00:00
parent 951544300d
commit 8b986b03ab
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/big-brother.pl
View File

@@ -18,7 +18,7 @@
package OddMuse;
$ModulesDescription .= '<p>$Id: big-brother.pl,v 1.1 2005/07/24 15:28:41 as Exp $</p>';
$ModulesDescription .= '<p>$Id: big-brother.pl,v 1.2 2005/07/24 16:41:14 as Exp $</p>';
my %BigBrotherData;
@@ -28,9 +28,6 @@ my %BigBrotherData;
# WriteRecentVisitors();
# if ($SurgeProtection and DelayRequired($name))
sub IsDownload {
}
sub AddRecentVisitor {
my ($name) = shift;
my $value = $BigBrotherData{$name};
@@ -56,11 +53,11 @@ sub AddRecentVisitor {
sub DelayRequired {
my $name = shift;
return 0 unless $BigBrotherData{$name};
my %entries = %{$BigBrotherData{$name}};
my @times = sort keys %entries;
my $ts = $times[0]; # oldest
return 0 if not $ts;
return 0 if ($Now - $ts) > $SurgeProtectionTime;
return 0 if not $times[$SurgeProtectionViews - 1]; # all slots must be filled
return 0 if ($Now - $times[0]) > $SurgeProtectionTime;
return 1;
}
@@ -82,7 +79,8 @@ sub WriteRecentVisitors {
my @times = sort keys %entries;
if (not $times[$SurgeProtectionViews - 1]
or $times[$SurgeProtectionViews - 1] >= $limit) { # newest is recent enough
$data .= join($FS, $name, map { $_, $entries{$_}} @times[-$SurgeProtectionViews .. -1]) . "\n";
@times = @times[-$SurgeProtectionViews .. -1] if $#times > $SurgeProtectionViews;
$data .= join($FS, $name, map { $_, $entries{$_}} @times) . "\n";
}
}
WriteStringToFile($VisitorFile, $data);