#!/usr/bin/perl use CGI qw/:standard/; use POSIX (locale_h, strftime); $id = param('id'); #Anciens paramètres #$ln=lc(param('l')); #$yr=param('y'); #$name=param('n'); #$s_date=param('s'); #$date=param('d'); #$vie = param('v'); #if (! $id) { exit -1; } # lire la DB pour connaitre les caractéristiques #première lecture en cherchant le id $LETTRES = "../lettres.txt"; open (LET, "<$LETTRES"); while () { chop ($_); ($lettres[0],$lettres[1],$lettres[2],$lettres[3],$lettres[4],$lettres[5],$lettres[6],$lettres[7],$lettres[8]) = split /\t/; next unless $lettres[0] eq $id and $lettres[1] > 0; $ln = $lettres[2]; $date = $lettres[3]; $date_origin = $lettres[4]; $vie = $lettres[5]; $s_date = $lettres[7]; $contenu = $lettres[8]; last; } close LET; #deuxième lecture pour avoir les traductions open (LET, "<$LETTRES"); while () { chop ($_); ($lettres[0],$lettres[1],$lettres[2],$lettres[3],$lettres[4],$lettres[5],$lettres[6],$lettres[7],$lettres[8]) = split /\t/; next unless $lettres[4] eq $date_origin && $lettres[0] ne $id && $lettres[1] > 0; $trad{$lettres[2]} = $lettres[0]; $cont{$lettres[2]} = $lettres[8]; } close LET; $ln_lc = lc($ln); #$locale = $ln_lc; $locale = "fr_FR" if $ln eq "FR"; $locale = "de_DE" if $ln eq "DE"; $locale = "en_EN" if $ln eq "EN"; $locale = "es_ES" if $ln eq "ES"; $locale = "it_IT" if $ln eq "IT"; $locale = "nl_NL" if $ln eq "NL"; setlocale(LC_TIME, $locale); ($d_jmois,$d_mois,$d_an) = split (/\//, $date); if ($ln eq "EN") { $dateStr = strftime ("%B %e, %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "$dateStr: $vie"; $bienCher = "Dear Friend of Saint Joseph Abbey,"; $signature = "Dom Antoine Marie osb."; } elsif ($ln eq "DE") { $dateStr = strftime ("%e. %B %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "Brief vom $dateStr: $vie"; $bienCher = "Lieber, verehrter Freund der Abtei Saint-Joseph,"; $signature = "Dom Antoine Marie osb"; } elsif ($ln eq "NL") { $dateStr = strftime ("%e %B %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "Brief van $dateStr: $vie"; $bienCher = "Dierbare Vriend van de Abdij Saint-Joseph de Clairval,"; $signature = "Dom Antoine Marie osb"; } elsif ($ln eq "ES") { $dateStr = strftime ("%e de %B de %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "Carta de $dateStr: $vie"; $bienCher = "Estimadísimo Amigo de la Abadía San José:"; $signature = "Dom Antoine Marie osb"; } elsif ($ln eq "IT") { $dateStr = strftime ("%e %B %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "Lettera del $dateStr: $vie"; $bienCher = "Carissimo Amico dell’Abbazia di San Giuseppe,"; $signature = "Dom Antoine Marie osb"; } elsif ($ln eq "FR") { $dateStr = strftime ("%e %B %Y", 0,0,0,$d_jmois,$d_mois-1,$d_an-1900); $title = "Lettre du $dateStr: $vie"; $bienCher = "Bien cher Ami de l'Abbaye Saint-Joseph,"; $signature = "Dom Antoine Marie osb, abbé"; } print header(-expire=>'+10d'); #print start_html(-lang=>"$ln", # -title=>"Lettre du $dateStr: $vie", # -bgcolor=>"#FFFFFF"); print ""; print ""; print "$title"; print ""; print ""; print ""; print "
\"Blason\"

 

$dateStr
$s_date

",br; if ($cont{"FR"}) { # print "[Cette lettre en français]
\n"; print ¶llel_version ("FR", "Cette lettre en français"); } if ($cont{"EN"}) { # print "[This letter in English]
\n"; print ¶llel_version ("EN", "This letter in English"); } if ($cont{"DE"}) { # print "[Dieser Brief auf deutsch]
\n"; print ¶llel_version ("DE", "Dieser Brief auf deutsch"); } if ($cont{"NL"}) { # print "[Dieser Brief auf deutsch]
\n"; print ¶llel_version ("NL", "Deze brief in het Nederlands"); } if ($cont{"ES"}) { # print "[Esta carta en español]
\n"; print ¶llel_version ("ES", "Esta carta en español"); } if ($cont{"IT"}) { # print "[Questa lettera in italiano]
\n"; print ¶llel_version ("IT", "Questa lettera in italiano"); } print br,"
$bienCher

"; open (IN, "<$contenu"); # or print h4("Impossible d'ouvrir $ln/$yr/$contenu !"); while () {print;} close IN; print "

$signature

"; if ($ln eq "EN") { $postscriptum = "To publish the letter of Saint Joseph Abbey in a magazine, a newspaper, etc., or to reproduce it on the internet or on a home page, permission must be requested and obtained through e-mail or through http://www.clairval.com."; $index = "Index of the Letters"; $home = "Home Page"; } elsif ($ln eq "DE") { $postscriptum = "Die Veröffentlichung des Rundbriefes der Abtei St.-Joseph de Clairval in einer Zeitschrift, oder das Einsetzen desselben auf einem ,,web site\" oder einer ,,home page\" sind genehmigungspflichtig. Bitte wenden Sie sich dafür an uns per E-Mail oder durch http://www.clairval.com."; $index = "Index der Briefe"; $home = "Home Page"; } elsif ($ln eq "NL") { $postscriptum = "Om het Blad van de Abdij Saint-Joseph de Clairval te publiceren in een tijdschrift, blad... of on het internetsite of een website te plaatsen, is een toelating vereist. Deze dient te worden aangevraagd per E-Mail or bij http://www.clairval.com."; $index = "Index der Briefe"; $home = "Home Page"; } elsif ($ln eq "ES") { $postscriptum = "Para publicar la carta de la Abadía San José de Clairval en una revista, periódico, etc. o ponerla en un sitio internet u home page, se necesita una autorización. Ésta debe pedirse a nosotros para email o para http://www.clairval.com."; $index = "Indices de las cartas"; $home = "Home Page"; } elsif ($ln eq "IT") { $postscriptum = "Per pubblicare la lettera dell’Abbazia San Giuseppe di Clairval su una rivista, giornale, ecc., o per inserirla su un sito internet o una home page, è necessaria un’autorizzazione. Questa deve essere richiesta a noi per E-Mail o attraverso http://www.clairval.com."; $index = "Indice delle lettere"; $home = "Home Page"; } elsif ($ln eq "FR") { $postscriptum = "Pour publier la lettre de l'Abbaye Saint-Joseph de Clairval dans une revue, journal, etc. ou pour la mettre sur un site internet ou une home page, une autorisation est nécessaire. Elle doit nous être demandée par email ou à travers http://www.clairval.com."; $index = "Index des lettres"; $home = "Page d'accueil"; } print "

$postscriptum"; print "

$index  - $home

Webmaster © 2000 Traditions Monastiques"; #use Cwd; #print h1(cwd); #print h1($date); #print h2("langue est $ln"); #print h3("année est $yr"); #print em("name est $name"),p,em("sous-date est $s_date"); #print h4("vie de $vie"); print end_html; sub parallel_version { my ($lang, $title) = @_; my $link; my $id = $trad{$lang}; if ($id == 0) { # supprimer du chemin le directory où nous sommes $link = $cont{$lang}; $link =~ s@^lettres/@@; } else { $link = "lettre_1.cgi?id=".$id; } return "[$title]
\n"; }