#!/usr/bin/perl

$version = "16";

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



$id=`whoami`;
chomp $id;
if ($id eq "root") {
	print "Il NE faut PAS être 'root' pour tester.\n";
	exit;
}



# tests d'accessibilité de serveurs

$serveur_local30 = "192.168.30.130";
$serveur_internet = "epfc.nooware.net";

$serveur_local30_accessible = `ping -w 1 $serveur_local30 > /dev/null && echo -n true`;
# on exécute un ping, limité à une requète, et dont on supprime l'affichage
# si cette commande ping s'exécute sans erreur (&&) on affiche 'true'
if ($serveur_local30_accessible eq "true") {
# si le serveur du local 30 est accessible
	$serveur = $serveur_local30;

	$nom_du_script = $0;
	$nom_du_script =~ s/\.\///;
	if (($nom_du_script eq "csv.init") and (! -f "/etc/hd.nb")) {
	  exit;
	} else {
	# cas normal d'utilisation du script
	# lorsqu'il est installé dans /usr/local/bin
	# la plupart du temps en mode 'automatique' à partir du fichier /etc/rc.local
		$hdnb = `/bin/cat /etc/hd.nb`;
		if ($hdnb eq "") {
			$option = "l";
			# option locale
		} else {
			$option = "c";
			# option complète
		}
	}

} else {
	$serveur_internet_accessible = `ping -w 1 $serveur_internet > /dev/null && echo -n true`;
	if ($serveur_internet_accessible eq "true") {
	# si le serveur internet est accessible
		$serveur = "$serveur_internet";
		$option = "i";
		# toujours partielle
	} else {
		print "\nPas de serveur accessible !\n\n";
		print "\nSTADARDISATION NON EFFECTUEE !\n\n";
		exit;
	
	}
}

if ($param eq "-") {
# cette option permet de tester la détection des paramètres
# sans passer au test de version 'cs'
	exit;
}


# recherche des versions de 'cs'

$installed_version = `/bin/cat /etc/cs.version`;
# version de cs actuellement installée
system("/bin/cp /etc/cs.version cs.version.atboot");
# la sauvegarder dans le fichier '/etc/cs.version.atboot'

if ( -f "cs.version.server" ) {
	system("/bin/rm -f cs.version.server");
}
# télécharger le fichier et le mettre dans le répertoire /etc
system("/usr/bin/wget -nv http://$serveur/cs.version.server");

$server_version = `/bin/cat cs.version.server`;
# version de cs actuellement sur le serveur

if ( "$server_version" eq "") {
	print "\ncsv\n";
	print "\nVersion serveur de cs pas accessible !\n\n";
	print "\nSTADARDISATION NON EFFECTUEE !\n\n";
	exit;
}


# comparaison des versions de 'cs'
# et éventuelle exécution de 'cs'