Interdire les aspirateurs et sites ind�sirables 3. Outils webmaster

#!/usr/bin/perl -- # Script provenant de / # Adapt� de l'original et des corrections de Key_Master $htadir = $ENV{DOCUMENT_ROOT}; $htafile = "/\.htaccess"; # Initialisation : chemin de .htaccess $htapath = "$htadir"."$htafile"; # Capture l'adresse IP de l'ind�sirable, la convertie en expression r�guli�re (regex). $remaddr = $ENV{REMOTE_ADDR}; $remaddr =~ s/\./\\\./gi; # Capture le User-agent et l'heure locale $usragnt = $ENV{HTTP_USER_AGENT}; $date = scalar localtime(time); # Open .htaccess file open(HTACCESS,"".$htadir."/\.htaccess") || die $!; @htaccess = <HTACCESS>; close(HTACCESS); # Write banned IP to .htaccess file open(HTACCESS,">".$htadir."/\.htaccess") || die $!; print HTACCESS "SetEnvIf Remote_Addr \^".$remaddr."\$ ban \# $date $usragnt\n"; foreach $deny_ip (@htaccess) { print HTACCESS $deny_ip; } close(HTACCESS); # Ecrit et affiche une page HTML au visiteur. print ("Content-type: text/html\n\n"); print ("<html><head><title>Fatal Error</title></head>\n"); print ("<body text=\"#000000\" bgcolor=\"#FFFFFF\">\n"); print ("ACCES NON AUTORISE\n"); print ("Une routine automatique vous a interdit l'acc�s � ce site, peut-�tre parce que vous utilisez un aspirateur qui ralenti la visite aux autres internautes ou parce que votre navigateur est mal configur�.\n"); print ("Si vous pensez que ce blocage est injustifi� contactez le webmaster d'un autre poste de travail.\n"); # Variables pour contr�le et affichage dans la page #print ("Racine : $htadir\n\n"); #print ("Racile de .htaccess : $htafile\n\n"); #print ("Chemin complet de .htaccess : $htapath\n\n"); #print ("Adresse IP : $remaddr\n\n"); #print ("USER_AGENT : $usragnt\n\n"); #print ("Date : $date\n\n"); #print ("Contenu de htaccess : @htaccess\n\n"); print ("</body></html>\n"); # Variables pour fonctions du mail $remaddr = $ENV{REMOTE_ADDR}; $host = $ENV{REMOTE_HOST}; $provenance = $ENV{'HTTP_REFERER'}; $lang = $ENV{'HTTP_ACCEPT_LANGUAGE'}; # Envoie d'un e-mail avec SendMail open(MAIL, "|/usr/sbin/sendmail -t") || die "Content-type: text/text\n\nImpossible ouvrir /usr/sbin/sendmail!\n"; print MAIL "To: nom\@domaine\.com\n"; print MAIL "From: nom\@domaine\.com\n"; print MAIL "Subject: Un aspirateur a �t� bloqu� sur le site XX\n"; print MAIL "L'adresse IP : \^$remaddr\$ a �t� bloqu�e le $date \n"; print MAIL "Navigateur utilis� : $usragnt \n"; print MAIL "Nom de domaine : $host \n"; print MAIL "Provenance : $provenance \n"; print MAIL "Langue : $lang \n"; close(MAIL); exit;