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


use rlconfig;
use gentools;

gentools::inittests;
$i = 0;
for (@activesites)	{
  $i++;
  if ($_ =~ /^$data{'siteid'}\t/)	{
    if ($i == scalar @activesites)	{
      @sitevalues = split (/\t/, $activesites[0]);
    } else	{
      @sitevalues = split (/\t/, splice (@activesites, $i, 1));
    }
    for (@sitenames)	{
      $$_ = shift (@sitevalues);
    }
    gentools::addrechits ($siteid);
    gentools::addgenhits ($data{'siteid'});
    print "Location: $entryURL\n\n";
    exit;
  }
}
if (!$data{'siteid'})	{
  $result = '<p class="error">Error! You must provide a site ID.</p>';
} else	{
  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;