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


use rlconfig;
use gentools;

gentools::inittests;
for (@activesites)	{
  if ($_ =~ /^$data{'siteid'}\t/)	{
    $activesite = 1;
    gentools::addgenhits ($data{'siteid'});
    last;
  }
}
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;
}
print "Location: $ringURL\n\n";