#!/usr/bin/perl

$code_partition = shift;
# 1° paramère à la ligne de commande
chomp $code_partition;
# enlever le passage à la ligne (= \n = newline) s'il existe

$alias_file="/etc/profile.d/alias.sh";

if ($code_partition eq "") {
	print "\n1° argument = code de la partition à monter\n";
	print "par exemple a6  pour /dev/hda6\n";
	print "         ou sa3 pour /dev/sda3\n\n";
	exit;
}

if ( $code_partition !~ /s/) {
	$partition = "/dev/hd$code_partition";
} else {
	$partition = $code_partitions;
	$partition =~ s/s//;
	$partition = "/dev/sd$partition";
}


if ( ! -e $partition ) {
	print "\nla partition $partition n'existe pas\n\n";
	exit;
}

$id = `whoami`;
chomp $id;
if ($id ne "root") {
	print "\nIl faut être 'root' pour pouvoir monter une partition\n\n";
	exit;
}

$mount_directory = "/mnt/$code_partition";



if ( ! -d $mount_directory ) {
	system("mkdir $mount_directory");
	print "\nle répertoire $mount_directory n'existait pas, et a été créé\n";
}



system("mount $partition $mount_directory");
print "\nla partition \n\t$partition\na été montée sur le répertoire \n\t$mount_directory\n\n";



