diff options
Diffstat (limited to 'www/index.cgi')
-rwxr-xr-x | www/index.cgi | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/www/index.cgi b/www/index.cgi deleted file mode 100755 index 401eb8f304..0000000000 --- a/www/index.cgi +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl - -# A very simple load balancing script: -# If more than $nlim hits in under $tlim seconds, redirect to $mirror. -# -# 2002-01-24 Björn Stenberg <bjorn@haxx.se> - -# redirect is triggered by more than: -$nlim = 10; # accesses in... -$tlim = 10; # seconds -$mirror = "http://rockbox.sourceforge.net/rockbox/"; - -open FILE, "+<.load" or die "Can't open .load: $!"; -flock FILE, LOCK_EX; -@a = <FILE>; -if ( scalar @a > $nlim ) { - $first = shift @a; -} -else { - $first = $a[0]; -} -$now = time(); -@a = ( @a, "$now\n" ); -truncate FILE, 0; -seek FILE, 0, 0; -for ( @a ) { - print FILE $_; -} -flock FILE, LOCK_UN; -close FILE; - -$diff = $now - $first; -if ( $diff < $tlim ) { - print "Location: $mirror\n\n"; -} -else { - print "Content-Type: text/html\n\n"; - open FILE, "<main.html" or die "Can't open main.html: $!\n"; - print <FILE>; - close FILE; -} |