#!/usr/bin/perl
use lib 'lib';

BEGIN	{
  if ($ENV{GATEWAY_INTERFACE})	{
    require CGI::Carp;
    import CGI::Carp 'fatalsToBrowser';
  }
}

#----------------------------------------------------------------

$rlmain::datapath = 'C:/My Documents/SourceForge/localtest/data';
$rlmain::max_processes = 10;

#----------------------------------------------------------------

use Fcntl ':flock';
use rlmain 3.05;
$rlmain::time = time;
$rlmain::filemode = 0644;

open FH, "+< $rlmain::datapath/statsupdate.txt" or die $!;
flock FH, LOCK_EX or die $!;
seek FH, 0, 0;
print FH rlmain::statsupdatetime();
close FH or die $!;

my $ringprint = 0;
if ($ENV{GATEWAY_INTERFACE})	{
  print "Content-type: text/html\n\n", '<pre>';
  $ringprint = 1;
  $| = 1;
}
rlmain::updateringstats($ringprint);

my $rawsec = time - $rlmain::time;
my $sec = $rawsec % 60;
my $min = ($rawsec - $sec) / 60;
print "\nThe ring stats was successfully updated.\n";
print 'It took ', $min ? "$min minutes and " : '', "$sec seconds.\n";