3 # A very simple load balancing script:
4 # If more than $nlim hits in under $tlim seconds, redirect to $mirror.
6 # 2002-01-24 Björn Stenberg <bjorn@haxx.se>
8 # redirect is triggered by more than:
9 $nlim = 10; # accesses in...
11 $mirror = "http://rockbox.sourceforge.net/rockbox/";
13 open FILE
, "+<.load" or die "Can't open .load: $!";
16 if ( scalar @a > $nlim ) {
23 @a = ( @a, "$now\n" );
32 $diff = $now - $first;
33 if ( $diff < $tlim ) {
34 print "Location: $mirror\n\n";
37 print "Content-Type: text/html\n\n";
38 open FILE
, "<main.html" or die "Can't open main.html: $!\n";