#!/usr/bin/perl


# Counter directory

$cntdir="../counters/";

#########################################
# Get the input
   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        $buffer = $ENV{'QUERY_STRING'};
    }
    else {
       read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }

   # Un-Webify plus signs and %-encoding
#   $buffer =~ tr/+/ /;
#   $buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#   $buffer =~ s/<!--(.|\n)*-->//g;

if($buffer=~ /ozon/) {$cfile='ozon'; &Inccounter;};
if($buffer=~ /bolero/) {$cfile='bolero'; &Inccounter;};
if($buffer=~ /biblion/) {$cfile='biblion'; &Inccounter;};
if($buffer=~ /boomerang/) {$cfile='boomerang'; &Inccounter;};
if($buffer=~ /colibri/) {$cfile='colibri'; &Inccounter;};
if($buffer=~ /24x7/) {$cfile='24x7'; &Inccounter;};
if($buffer=~ /arcadia/) {$cfile='arcadia'; &Inccounter;};

# plog2 ($buffer);

   print "HTTP/1.0 302 Moved Temporary\n";
   print "Server: Apache/1.1.1\n";
   print "Location: $buffer\n";
   print "Content-type: text/plain\n\n";
   

sub Inccounter {

   $ffile=$cntdir.$cfile;
   open (lfile1,$ffile);
    $curr=<lfile1>;
   close (lfile1);
   $ffile=">".$cntdir.$cfile;
    $curr=$curr+1;
   open (lfile1,$ffile);
    print (lfile1 "$curr\n");
   close (lfile1);

};

sub plog2 ($) {

   $logfile=">>./temp/slog.txt";
   $mess=$_[0];
   open (lfile,$logfile);
   print (lfile "$mess\n");
   close (lfile);

};