|
@@ -86,12 +86,12 @@ say $padprecedent if ($debug);
|
|
|
my $filename = $pad_dir."pad.test.md";
|
|
|
my $fh;
|
|
|
open ($fh, '>', $filename) or die "Impossible d'ouvrir le fichier $filename en écriture";
|
|
|
-say $fh "Le lien du pad sera https://pad.ilico.org/p/ffdn-".$annee.$nummois.$jour;
|
|
|
+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 "**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 "Pad de la réunion précédente : $padprecedent";
|
|
|
say $fh "";
|
|
|
say $fh "**Ordre du jour :**";
|
|
|
say $fh "";
|