Parcourir la source

Ajout d'Iloth

agarwaen il y a 13 ans
Parent
commit
da24238f2a
1 fichiers modifiés avec 22 ajouts et 9 suppressions
  1. 22 9
      fill.pl

+ 22 - 9
fill.pl

@@ -11,13 +11,13 @@ my $membres = [];
 
 my $fede = {
 	'titre' => "\nFédération des fournisseurs d'accès à Internet associatifs (Fédération FDN)",
-	'signature' => 'Benjamin BAYART, président',
+	'signature' => 'Pierre CRÉMAULT, secrétaire',
 	'siege' => 'Paris',
 	'waldec' => '',
 };
 
 my $fdn = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '419897855',
 	'waldec' => '107563P',
 	'prefecture' => 'Paris',
@@ -30,7 +30,7 @@ my $fdn = {
 push @$membres, $fdn;
 
 my $ldn = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '528368624',
 	'waldec' => 'W543005639',
 	'prefecture' => 'Nancy',
@@ -43,7 +43,7 @@ my $ldn = {
 push @$membres, $ldn;
 
 my $aqn = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '527777767',
 	'waldec' => 'W332010849',
 	'prefecture' => 'Gironde',
@@ -56,7 +56,7 @@ my $aqn = {
 push @$membres, $aqn;
 
 my $ilico = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '525018727',
 	'waldec' => 'W192001666',
 	'prefecture' => 'Corrèze',
@@ -69,7 +69,7 @@ my $ilico = {
 push @$membres, $ilico;
 
 my $sames = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '514034230',
 	'waldec' => 'W641003539',
 	'prefecture' => 'Bayonne',
@@ -82,7 +82,7 @@ my $sames = {
 push @$membres, $sames;
 
 my $teta = {
-	'type' => 'init', # 'add', 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '529558710',
 	'waldec' => 'W313015266',
 	'prefecture' => 'Ville',
@@ -95,7 +95,7 @@ my $teta = {
 push @$membres, $teta;
 
 my $franci = {
-	'type' => 'init', # 'add, 'del', 'stay'
+	'type' => 'stay', # init', 'add', 'del', 'stay'
 	'siren' => '529187775',
 	'waldec' => 'W941006323',
 	'prefecture' => 'Val-de-Marne',
@@ -107,6 +107,19 @@ my $franci = {
 };
 push @$membres, $franci;
 
+my $iloth = {
+	'type' => 'add', # 'del', 'stay'
+	'siren' => '525190153',
+	'waldec' => 'W',
+	'prefecture' => 'Montpellier',
+	'titre' => "\nInternet Libre et Ouvert pour Tous dans l'Hérault (ILOTH)",
+	'objet' => "\nLa promotion, l'utilisation et le développement de l'Internet libre et ouvert pour tous dans le pur respect de sa neutralité sans aucune volonté commerciale.",
+	'siege' => "480 rue de Centrayrargues, RES. Imperator BAT. A1",
+	'cp' => '34070',
+	'ville' => 'Montpellier'
+};
+push @$membres, $iloth;
+
 my $vierge = {
 	'type' => 'add', # 'del', 'stay'
 	'siren' => '',
@@ -280,7 +293,7 @@ sub declaration() {
 	`pdftk $input cat $cat output xx.pdf`;
 }
 
-$type = 'init';
+$type = 'add';
 declaration();