123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121 |
- use warnings;
- use strict;
- binmode STDOUT, ":utf8";
- use utf8;
- my $nb_adh = 0;
- my $nb_abo = 0;
- my $site = "";
- my $salon = "";
- my $statut = 0;
- my $date_crea = "";
- my $date_jffdn = "";
- my $contact = "";
- my $description = "";
- my $bot_dir = `pwd`; chomp $bot_dir ; $bot_dir .= "/";
- my $wrk_dir = "wrk-dir/";
- my $dir = $bot_dir.$wrk_dir;
- my %regex = (
-
- "apinnet" => "\b(ap[in]|Poitou|Charente|Rochelle|(Deux[- ])?S[èe]vres?|Vienne|Angoul[eêè]me|Niort|Poitiers)",
-
- "aquilenet" => "\b(aq(ui|n)|Bord(o|e?au)|Landes|Gironde)",
-
- "arn" => "\b(a(lsace|rn)|Stras|Colma)",
-
- "auvernet" => "\b(Auver|Puy[- ](de[- ])D[oô]me|avn)",
-
- "cafai" => "\b(cafai|champagne|ardenn?e)",
-
- "faimaison" => "\b(fma|fail?m|Nantes|Loire[- ]Atlantique)",
-
- "fdn" => "\bf(rench|dn)",
-
- "franciliens" => "\b(f(ranc|cn)|idf|Paris)",
-
- "grifon" => "\b(grif|rennes|[îi]l?le[- ](et[- ])?vilaine)",
-
- "ilico" => "\b(ilc|ill?[iy][ck])|(Corr?[éêèe][sz])",
-
- "illyse" => "\b(ill?y|ill?i[sz]|lyon|rh[ôo]ne|loire|((st|saint)[- ]etienn?e))",
-
- "iloth" => "\b(ilo|mont?pel|h[ée]rault)",
-
- "ldn" => "\b(l(or|dn)|Nancy|Metz|Moselle|Meuse|Meurthe|Vosges)",
-
- "ndn" => "\b(n(ice|dn)|Antibes|Cannes|Valbonne|Alpes[- ]Maritimes)",
-
- "netopi" => "\b(netopi|Seine[- ](et[- ])?Marne)",
-
- "pclight" => "\b(yonne|beon|cheny|pc[- ]?l)",
-
- "rezine" => "\b(r[eé]z|Isère|Grenoble)",
-
- "rhizome" => "\b(rh?[iy][sz]om|Oise|Compi[eéêè]gne)",
-
- "same" => "\bsam|(Pyrénées[- ]Atlantiques)",
-
- "sdn" => "\b(s(all|dn)|Savoie|Haute[- ]Savoie)",
-
- "teleragno" => "\b(mars|telerag|telegrano)",
-
- "tetaneutral" => "\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))",
-
- "ail" => "\bail/",
-
- "chaul" => "\b(c(haul|hz)|hertz|tarn|autan)",
-
- "igwan" => "\b(ig[wn]|sbg|saint[- ]barth)",
-
- "neutrinet" => "\b(neutri|n[tre]n|belgique)",
-
- "ffdn" => "\bf(ede|fdn|rance|édé)",
- );
- sub info {
- my $fai = shift @_;
- my $filename = $dir.$fai.".info";
- if (-e $filename)
- {
- my $fh;
- open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
- while (my $line = <$fh>)
- {
- return $line;
- }
- close $fh;
- }
- else
- {
- return "pas d'information pour ". $fai ."\n";
- }
- }
- sub adh {
- my $fai = shift @_;
- my $filename = $dir.$fai.".adh";
- my $fh;
- open ($fh, '<', $filename) or die "Impossible d'ouvrir le fichier $filename en lecture";
- while (my $line = <$fh>)
- {
- return $line;
- }
- close $fh;
- }
- print info("ilicao");
- print info("ilico");
- print info "sames";
- print info "fcn";
- print info "illyse";
- print info "fdn";
|