#!/usr/bin/perl

# script comparant le temps de 'syncronisation de fichier'
# par 'wget' et par 'rsync'

use Time::HiRes;


$version = "7";

# sert à l'automatisation des updates du côté serveur
if ($#ARGV == 0) {
	if ($ARGV[0] eq "v") {
		print "$version";
		exit;
	}
}

$options = $ARGV[0];
# premier paramètre

$nom_du_script = $0;
# $0 est une variable prédéfinie qui contient la commande qui a lancée l'exdecution du script
$nom_du_script =~ s/.*\///;
# enlever l'éventuel chemin précédant le nom du script

# procédure affichant avec le nom du script
sub ifdprint {
($string) = @_;
	  print "$nom_du_script : $string";
}

# créer le répertoire 'tt' s'il n'existe pas
if ( ! -d "tt") {
  mkdir ('tt');
}

# se mettre dans le répertoire 'tt' pour la suite du script
chdir('tt');
# 'chdir();' a le même effet que 'cd' à la ligne de commande, mais à l'intérieur du script)
# afficher le répertoire courant (pour montrer que c'est maintenant 'tt')
system("pwd");



foreach (@ARGV) {
# pour chaque argument à la ligne de commande

  &ifdprint ("$_\n");

  $start = Time::HiRes::time;
  system("$_");
  $after = Time::HiRes::time;

  $relatif = $after - $start;
  &ifdprint ("start = $start\n");
  &ifdprint ("time  = $relatif\n");

}

print "\n";