#!/usr/bin/perl

$nom = shift; 	# 1° paramètre à la ligne de commande
chomp $nom;

if ($nom eq "") {
	print "\n1° paramètre = nom du répertoire à compresser\n";
	print "2° paramètre (optionnel) = numéro de la version\n\n";
	exit;
}

$nom =~ s/\///;

$version = shift; 	# 2° paramètre à la ligne de commande
chomp $version;

if ($version eq "") {
	system("tar czvf $nom.tgz $nom");
} else {
	system("tar czvf $nom.$version.tgz $nom");
}
