#!/usr/bin/perl
################################################################################
# WWWAdverts                                   Version 1.3                     #
# Copyright 1999 Frederic TYNDIUK (FTLS)       All Rights Reserved.            #
# E-Mail: tyndiuk@ftls.org                     Script License: GPL             #
# Created  05/30/98                            Last Modified 05/30/00          #
# Scripts Archive at:                          http://www.ftls.org/cgi/        #
################################################################################
# Function : SSI Program for WWWAdverts                                        #
# Display a rotating banner ads from on a file in the Visitor Lang             #
# Use as a SSI <!--#include virtual="/cgi-bin/WWWAdvertsSSI.cgi"-->            #
################################################################################
########################## license & copyright header ##########################
#                                                                              #
#                     Copyright (c) 1999 by TYNDIUK Frederic                   #
#                                                                              #
#       This program is free software; you can redistribute it and/or          #
#       modify it under the terms of the GNU General Public License as         #
#       published by the Free Software Foundation; either version 2 of         #
#       the License, or (at your option) any later version.                    #
#                                                                              #
#       This program is distributed in the hope that it will be useful,        #
#       but WITHOUT ANY WARRANTY; without even the implied warranty of         #
#       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          #
#       GNU General Public License for more details.                           #
#                                                                              #
#       You should have received a copy of the GNU General Public License      #
#       along with this program in the file 'COPYING'; if not, write to        #
#       the Free Software Foundation, Inc., 59 Temple Place - Suite 330,       #
#       Boston, MA 02111-1307, USA, or contact the author:                     #
#                                                                              #
#                                   TYNDIUK Frederic <tyndiuk@ftls.org>        #
#                                            <http://www.ftls.org/>            #
#                                                                              #
######################## end license & copyright header ########################
################################################################################
#    DO NOT EDIT ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING    #
################################################################################

require "WWWAdvertsLib.pl"; # Configure All path in this File.

my ($name, $value);
foreach (split(/&/, $ENV{'QUERY_STRING'})) {
	tr/+/ /;
	s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
	($name, $value) = split(/=/, $_);
	$in{$name}=$value;
}


print "Content-type: text/html\n\n";
print &Adverts(time, $in{'lg'}, $in{'kw'});