#!/usr/bin/perl 

#Indiquez ci dessous l'adresse où est installé le script rapido_ban.cgi sur votre serveur :
$adresse_script="http://www.icommerces.ch/Ban_membre/rapido_ban.cgi";


# Envoyez ce script (en mode ASCII) dans le même repertoire que rapido_ban.cgi, #
# Mettez lui les attributs (CHMOD) à 755 #


# Pour afficher vos bannières dans vos pages, indiquez ceci à l'emplacement ou vous souhaitez #
# qu'elles apparaissent :                                                                     #
#         <script language="javascript" src="http://www.icommerces.ch/Ban_membre/ban.cgi"></script>            #
#Modifiez bien sur l'adresse pour qu'elle pointe vers ce script.                              #


### Copyright 2000 - Le CGI.net ###

# Ne modifiez pas les lignes ci dessous

use LWP::Simple;
$url = "$adresse_script";
$banniere = get ($url);
$banniere =~ s/\n//g;
$banniere =~ s/"/'/g;
print "Content-type: text/html\n\n";
print qq|document.write ("$banniere")|;
exit;