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


use rlconfig;
use gentools;

gentools::inittests;
$i = 0;
for (@activesites)	{
  if ($_ =~ /^$data{'siteid'}\t/)	{
    $activesite = 1;
    splice (@activesites, $i, 1);
    gentools::addgenhits ($data{'siteid'});
    last;
  }
  $i++;
}
if (!$activesite && $data{'siteid'})	{
  opendir(DIR, $cgipath) || exit print "Can't open $cgipath<br />\n$!";
  @execfiles = grep { !/^\./ && (/\.pl$/i || /\.cgi$/i) } readdir(DIR);
  closedir DIR;
  for (@execfiles)	{
    $list = $_ if $_ =~ /^list\./i;
  }
  for (@inactivesites)	{
    if ($_ =~ /^$data{'siteid'}\t/)	{
      $inactivesite = 1;
      $result = "<p class=\"error\">Site ID &quot;$data{'siteid'}&quot; is not active.</p>\n"
      . "<p><a href=\"$cgiURL/$list?ringid=$ringid\">List active sites in $ringtitle</a></p>";
      last;
    }
  }
  if (!$inactivesite)	{
    $result = "<p class=\"error\">Site ID &quot;$data{'siteid'}&quot; does not exist in this ring.</p>\n"
    . "<p><a href=\"$cgiURL/$list?ringid=$ringid\">List sites in $ringtitle</a></p>";
  }
  gentools::mainhtml;
  exit;
}
@sitevalues = split (/\t/, splice (@activesites, int (rand (scalar @activesites)), 1));
for (@sitenames)	{
  $$_ = shift (@sitevalues);
}
gentools::addrechits ($siteid);
print "Location: $entryURL\n\n";