|
@@ -77,22 +77,35 @@ switch ($nummois) {
|
|
|
}
|
|
|
say "Quel est le lien de la réunion précédente ?";
|
|
|
my $padprecedent= <> ; chomp $padprecedent;
|
|
|
-
|
|
|
+
|
|
|
my $filename = $pad_dir."pad-suivi.md";
|
|
|
my $fh;
|
|
|
open ($fh, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
|
|
|
+
|
|
|
+say $fh "Le mail à envoyer : ";
|
|
|
+say $fh "Bonjour à tou⋅te⋅s,
|
|
|
+
|
|
|
+C’est aujourd’hui que le sondage se finit. La date ayant reçu le plus de
|
|
|
+suffrages est :
|
|
|
+\tJOUR $jour $mois $annee
|
|
|
+\tsur #ffdn-suivi (serveur irc.geeknode.org)
|
|
|
+\thttps://pad.ilico.org/p/ffdn-$annee$nummois$jour
|
|
|
+
|
|
|
+Merci de bien remplir le pad et de ne pas le faire à la dernière minute,
|
|
|
+c’est pas pratique pour la réunion sinon.";
|
|
|
+say $fh "-";
|
|
|
say $fh "Le lien du pad sera https://pad.ilico.org/p/ffdn-$annee$nummois$jour";
|
|
|
-say $fh "-"x36;
|
|
|
-say $fh "**Réunion de suivi de la Fédération FDN du $jour $mois $annee.**";
|
|
|
-say $fh "*(20h, sur #ffdn-suivi irc://irc.geeknode.org)*";
|
|
|
+say $fh "-";
|
|
|
+say $fh "# Réunion de suivi de la Fédération FDN du $jour $mois $annee.";
|
|
|
+say $fh "(20h, sur #ffdn-suivi irc://irc.geeknode.org)";
|
|
|
say $fh "";
|
|
|
say $fh "Pad de la réunion précédente : $padprecedent";
|
|
|
say $fh "";
|
|
|
-say $fh "**Ordre du jour :**";
|
|
|
+say $fh "## Ordre du jour :";
|
|
|
say $fh "";
|
|
|
say $fh "* Nouvelles des membres";
|
|
|
say $fh "";
|
|
|
-say $fh "**Règles de bonne conduite**
|
|
|
+say $fh "## Règles de bonne conduite
|
|
|
|
|
|
==============================================================
|
|
|
|
|
@@ -120,16 +133,16 @@ Indiquer en face de votre prénom si vous souhaitez être pilote, et, le cas éc
|
|
|
|
|
|
==============================================================";
|
|
|
say $fh "";
|
|
|
-say $fh "**Les points de l'Ordre du jour abordés**";
|
|
|
+say $fh "## Les points de l'Ordre du jour abordés";
|
|
|
say $fh "\n";
|
|
|
-say $fh "**Nouvelles des membres triés par tirage aléatoire** (avec un *prng* innocent) : ";
|
|
|
+say $fh "### Nouvelles des membres triés par tirage aléatoire** (avec un *prng* innocent) : ";
|
|
|
say $fh "";
|
|
|
foreach (shuffle @membres)
|
|
|
{
|
|
|
say $fh "$_ \n\n";
|
|
|
}
|
|
|
say $fh "";
|
|
|
-say $fh "**Les pas (encore) membres :**";
|
|
|
+say $fh "#### Les pas (encore) membres : ";
|
|
|
say $fh "";
|
|
|
foreach (shuffle @nonmembres)
|
|
|
{
|