#!/usr/bin/perl -w

use strict 'vars';
use Net::FTP;

&CreationPageWeb();

my $Serveur = "webserver.world.fr";
my $Repertoire = "public_html/test";
my $Utilisateur = "einstein";
my $MotDePasse = "********";

my $Ftp = Net::FTP->new($Serveur);
$Ftp->login($Utilisateur, $MotDePasse);
$Ftp->cwd($Repertoire);
$Ftp->put("index.html");
$Ftp->put("image1.jpg");
$Ftp->put("image2.jpg");
$Ftp->quit();

# cree la page web index.html qui doit etre envoyee par FTP
#

sub CreationPageWeb
  {
    my @Date = gmtime(time);
    $Date[5] += 1900;
    $Date[4] += 1;
    my $Jour = $Date[3]."/".$Date[4]."/".$Date[5];
    my $Heure = $Date[2]."h".$Date[1];
    unless (open (OUTFILE, ">index.html"))
      {
	die ("ne peut creer le fichier index.html\n");
      }
    print OUTFILE ("<html>
<body>
page cr&eacute;&eacute;e le ".$Jour." &agrave;".$Heure."<br />
<img src=\"image1.jpg\">image 1</img><br />
<img src=\"image2.jpg\">image 2</img><br />
</body>
</html>\n");
    close(OUTFILE);
  }
