#!/usr/bin/perl -w
# -------------------------------------------
# crée une page html précisant la déconnexion au reseau.
# et l'envoi vers http://rsuinux.free.fr/rep_perso/adresse-perso.html
#
# Version 01/10/2003 Revision: 19/03/2004
#
# -------------------------------------------
# declarations des varaibles:
my $page_html="/var/tmp/index.html";
my $copie="/home/http/www/adresse-perso.html";
my $rep_site="/rep_perso/";
my $adresse_ftp="ftpperso.free.fr";
my $username="rsuinux";
my $password="remi007";
# preparation des noms français pour la date:
%Jour=(
"Mon" => "Lundi",
"Tue" => "Mardi",
"Wed" => "Mercredi",
"Thu" => "Jeudi",
"Fri" => "Vendredi",
"Sat" => "Samedi",
"Sun" => "Dimanche",
);
%Mois=(
"Jan" => "Janvier",
"Feb" => "Fevrier",
"Mar" => "Mars",
"Apr" => "Avril",
"May" => "Mai",
"Jun" => "Juin",
"Jul" => "Juillet",
"Aug" => "Aout",
"Sep" => "Septembre",
"Oct" => "Octobre",
"Nov" => "Novembre",
"Dec" => "Decembre",
);
# on commence par recuperer le premier argumment (l'adresse ip)
my $ADD;
# recherche de la date actuelle:
my @date=split ' ', scalar localtime;
# ouverture d'un fichier temporaire pour la creation de la page web
open H_TMP, ">$page_html" or die "erreur d'ouverture: $!";
print H_TMP "<HTML>\n";
print H_TMP "<HEAD>\n";
print H_TMP " <TITLE>Adresse perso</TITLE>\n";
print H_TMP "</HEAD>\n";
print H_TMP " <body text=\"black\" link=\"red\" >\n";
print H_TMP "<table bgcolor=\"#B3F6F2\" width=\"100%\" cellspacing=0 cellpadding=0 border=0>\n";
print H_TMP " <tr>\n";
print H_TMP " <td>\n";
print H_TMP " <div align=\"center\"><h2><font color=\"#2200CC\">Information</font></h2></div>\n";
print H_TMP " </td>\n";
print H_TMP " </tr>\n";
print H_TMP "</table>\n";
print H_TMP "<br>\n";
print H_TMP " <font face=\"Lucida\" size=+1>\n";
print H_TMP " Valeurs actuelles du serveur:<br>\n\n";
print H_TMP "<ul>\n";
print H_TMP "<li>Adresse publique: <font color=\"red\">AUCUNE </font color><br></li>\n";
print H_TMP "</ul>\n";
print H_TMP "<P>\n";
print H_TMP "Deconnexion du serveur\n";
print H_TMP "depuis le $Jour{$date[0]} $date[2] $Mois{$date[1]} $date[4], à $date[3]\n\n";
print H_TMP "</P>\n";
print H_TMP "<br>\n<hr>\n<br>\n";
print H_TMP "<a href=\"http://rsuinux.free.fr\">Retour vers la page d'accueil du site</a>\n";
print H_TMP "</BODY>\n";
print H_TMP "</HTML>\n";
close H_TMP;
# et on l'envoi en local!
system "cp $page_html $copie";
system "chown www-data.www-data $copie";
# le fichier est créé, à pésent, on l'envoi sur le site
system "ncftpput -u $username -p $password $adresse_ftp $rep_site $page_html ";
Ce site est continuellement en chantier, surtout la partie 'Journal de bord' (cf 'Documentations').
Cependant, vous pouvez quand même me contacter et me donner vos avis/idées/corrections à
rsuinux <at> gmx.fr
Mise en place du site: 11 Juillet 2001
Dernière mise à jour:
22/11/04
