#!/usr/bin/perl

require 'anneau.pl';

# attribution d'une bannière aléatoire
&compteuriser;
&variabliser;

# insertion du code javascript correspondant
print "Content-type: text/plain\n\n";
print "document.write('<a href=\"$lien\" target=\"_blank\"><img src=\"$image\" height=62 border=2 alt=\"$texte\" width=\"468\"></a>');";

# mise à jour des stats
$ban{"total"}++;
$ban{"$select"}++;
&majstats;