|
@@ -21,7 +21,6 @@ use Switch;
|
|
|
use feature 'say';
|
|
use feature 'say';
|
|
|
use List::Util qw (shuffle);
|
|
use List::Util qw (shuffle);
|
|
|
|
|
|
|
|
-my $debug = 0;
|
|
|
|
|
my $pad_dir = `pwd`; chomp $pad_dir ; $pad_dir .= "/";
|
|
my $pad_dir = `pwd`; chomp $pad_dir ; $pad_dir .= "/";
|
|
|
|
|
|
|
|
my @membres = ("Apinnet",
|
|
my @membres = ("Apinnet",
|
|
@@ -63,7 +62,6 @@ my @nonmembres = ( "Vianet",
|
|
|
say "Quelle est la date prevue de la reunion ? (format JJ/MM/AAAA)";
|
|
say "Quelle est la date prevue de la reunion ? (format JJ/MM/AAAA)";
|
|
|
my $line= <> ; chomp $line;
|
|
my $line= <> ; chomp $line;
|
|
|
my ($jour,$nummois,$annee) = split /\//, $line;
|
|
my ($jour,$nummois,$annee) = split /\//, $line;
|
|
|
-say $line." ".$jour." ".$nummois." ".$annee if ($debug);
|
|
|
|
|
my $mois;
|
|
my $mois;
|
|
|
switch ($nummois) {
|
|
switch ($nummois) {
|
|
|
case "01" { $mois = "Janvier";}
|
|
case "01" { $mois = "Janvier";}
|
|
@@ -81,7 +79,6 @@ switch ($nummois) {
|
|
|
}
|
|
}
|
|
|
say "Quel est le lien de la réunion précédente ?";
|
|
say "Quel est le lien de la réunion précédente ?";
|
|
|
my $padprecedent= <> ; chomp $padprecedent;
|
|
my $padprecedent= <> ; chomp $padprecedent;
|
|
|
-say $padprecedent if ($debug);
|
|
|
|
|
|
|
|
|
|
my $filename = $pad_dir."pad.test.md";
|
|
my $filename = $pad_dir."pad.test.md";
|
|
|
my $fh;
|
|
my $fh;
|
