#!/usr/bin/perl
#
# rema.ru global ibanner
#
$hosting="rema.ru";
# directory, where .ibanner, ibanner.txt files are placed. WITHOUT last slash!
$realdir="/home/www/servers/rema.ru/cgi-bin";
# The very default banner to be shown if no files found.
$default="<A HREF=\"http://strelvas.com.ru\">
<IMG SRC=\"http://strelvas.com.ru/banners/ban_str5.gif\"
 ALT=\"Реклама на $hosting. Доступная роскошь!\" WIDTH=468 HEIGHT=60 BORDER=0></A>";


print "Content-type: text/html\n\n";
printf "<CENTER>";
$domain=$ENV{"SERVER_NAME"};
$domain=~s/^www\.//gi;
$query=$ENV{"QUERY_STRING"};
if ("$query" eq "help")
  {
  if (open fin, "<$realdir/ibanner.txt")
    {
    $text=join("",<fin>);
    close fin;
    $text=~s/</&lt;/g;
    $text=~s/>/&gt;/g;
    }
  else
    {
    $text="Error reading $realdir/ibanner.txt!";
    }
  print <<EOT1;
</CENTER>
<PRE>
$text


The very default banner to be shown:  Баннер, показываемый, если больше нечего:
</PRE>
$default

EOT1

   print <<EOT2;
<HR>
<PRE>
Banner to be shown for domain:        Баннер, показываемый для данного домена:

                               $domain
</PRE>
EOT2
   }
if ((open fin, "<$realdir/$domain.ibanner") || (open fin, "<$realdir/default.ibanner"))
   {
   ($IP=$ENV{"REMOTE_ADDR"})=~tr/.//d;
   srand($$+$IP);
   $seed=int rand(10000000);
   $text=join("", <fin>, );
   close fin;
   $text=~s/\$seed/$seed/gi;
   $text=~s/\$hosting/$hosting/gi;
   print $text;
   }

else
    {
    printf "$default";
    }

printf "</CENTER>";
exit 0;