#!/usr/bin/perl
# Génère une bibliographie en HTML 
# $Id$	

# Pour l'instant ne gère que les livres.

($nom)=@ARGV;



open(f,$nom) or die("kapout");	# ouvre le fichier et charge le texte
@tmp=<f>;
close(f);



print "<!doctype html public \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<title>DJedi's HomePage -- Bibliographie</title>
<meta name=\"generator\" content=\"GNU Emacs 20.3.2\">
<meta name=\"author\" content=\"Valvassori Moïse\">
<meta name=\"description\" content=\"Les livres que je cherche\">
<meta name=\"keywords\" content=\"Valvassori Moïse,djedi,home
page,bibliographie\">
<link type=\"text/css\" rel=\"stylesheet\" href=\"style/djedi.css\">
<style type=\"text/css\">
<!--
.autheur {
font-variant:small-caps;
}
li {
padding: 4pt;
list-style: disc outside;
}
-->
</style>
</head>
<body> 
<table class=\"navbar\" width=\"100%\"><tr><td>
<a href=\"index.php3\" class=\"navbar\">retour</a></td></tr></table>
<h1 class=\"navbar\">Appel à la générosité</h1>

Je met ici une liste de livres que je recherche. Si vous avez
un ou plusieurs de ces ouvrages qui traînent dans votre grenier, je
suis preneur. Beaucoup de titres sont en anglais, mais si vous avez le
même en francais, je le prend aussi.\n<p>\n<ul>\n";




foreach (@tmp) {			# extrait les champs.

    if ($_ =~ /author[ \t]*=[ \t]*[{"](.*)["}],/i){
	$auteur=$1;
    }
    if ($_ =~ /[ \t]*title[\t ]*=[ \t]*[{"](.*)["}],/i){
	$title=$1;
    }
    if ($_ =~ /publisher[ \t]*=[ \t]*[{"](.*)["}],/i){
	$publisher=$1;
    }
    if ($_ =~ /year[ \t]*=[ \t]*(.*)/){ # !!! la , n'est pas toujours la
	$year=$1;
        $year =~ s/,//;
    }
    if ($_ =~ /month[ \t]*=[ \t]*{(.*)}/i){
	$month=$1;
    }
    if ($_ =~ /edition[ \t]*=[ \t]*(.*),/i){
	$edition="$1 edition,";
    }

    if ($_ =~ /[\t ]*booktitle[ \t]*=[ \t]*[{"](.*)["}],/i){
	$publisher=$1;
    }
    if ($_ =~ /journal[ \t]*=[ \t]*[{"](.*)["}],/i){
	$publisher=$1;
    }
    if ($_ =~ /[ \t]*editor[\t ]*=[ \t]*[{"](.*)["}],/i){
        if ($auteur eq ""){
	$auteur=$1;}
    }



    if ($_ eq "}\n"){
	local($i);
	$auteur =~ s/ and /, /g;	# remplace les and par une virgule.

	$i = "<li><span class=\"auteur\">$auteur</span>, <cite>$title</cite>, $publisher, $edition $month $year.\n";
        $i =~ s/{/<strong>/g;
        $i =~ s/}/<\/strong>/g;
        $i =~ s/\\&/&/g;
        print $i;
	($auteur,$title,$publisher,$year,$month,$edition)=("","","","","","");
    }
}



print "</ul>
<p>\"<cite>La coccinelle rouge monte le long du cerisier en fleurs</cite>\"
<!-- Mon premier Haïku -->

<p><small>Cette page a été <a href=\"download/bib2html.pl\">générée</a></small>
<p class=\"footer\">
<table width=\"100%\"><tr><td valign=\"top\">
<address><a href=\"mailto:djedi\@citeweb.net\">Valvassori Moïse</a></address>
<span class=\"discret\">Dernière modification: 
<?php echo date(\"l d F Y , G:i:s\",filemtime(__FILE__)); ?>
</span>
</td><td align=\"right\">
<img height=\"30\" src=\"img/achille.gif\" alt=\"M. Achille\">
<img height=\"30\" src=\"img/tortoise.gif\" alt=\"Mme Tortue\">
</td></tr>
</table>
</body>
</html>
<?php include "log/log.inc" ?>
<!-- M-x spook -->
";



sub smallcaps {			# Transforme le texte en small caps
    local($auteur)=@_;
    
    $auteur =~ s/([A-Z])/<\/s>\1<s>/g;
    $auteur = "<s>$auteur</s>";
    $auteur =~ s/<s><\/s>//g;
    $auteur = uc($auteur);
    $auteur =~ s/<S>/<small>/g; 
    $auteur =~ s/<\/S>/<\/small>/g;

    return ($auteur);
}
