#!/usr/bin/perl

# Occidental (Windows Latin 1)

sub litFichier
{
        local ($fichier) = @_;
        local ($texte);
        
        if (open (FICHIER, $fichier))
        {
                $mode = $/;
                undef $/;
                
                $texte = <FICHIER>;
                
                close (FICHIER);
                
                $/ = $mode;
        }
        else
        {
                die "Fichier $fichier introuvable. Traitement interrompu\n";
        }
        return $texte;
}

sub condense
{
	local ($_) = @_;

	s/[^a-zA-Z0-9]+//g;
	tr/a-z/A-Z/;

        return $_;
}

sub presenteISBN
{
	local ($numero) = @_;

	return  ($numero =~ /\A(\w)(\w{5})(\w\w\w)(\w)\Z/) ? "$1-$2-$3-$4" : $numero;
}

sub determineFichierRepartition
{
	local ($detailRepartition) = @_;
	local ($pratique, $theorie, $total, $nomFichier);

	$pratique = $theorie = -1;

	if ($detailRepartition =~ /p[^:]*:\s*(\d+)/i)
	{
		$pratique = $1;
	}
	if ($detailRepartition =~ /(\A|\s)t[^:]*:\s*(\d+)/i)
	{
		$theorie = $2;
	}
	$total = $pratique + $theorie;

	if ($total == -2)
	{
		$total = $theorie = 100;
		$pratique = 0;
	}
	if ($total != 100)
	{
		warn "ATTENTION : la repartition $pratique + $theorie ($detailRepartition) donne un total different de 100\n";
		$pratique = ($pratique * 100) / $total;
		$theorie = ($theorie * 100) / $total;
	}
	$pratique = arrondi ($pratique / 5) * 5;
	$theorie = arrondi ($theorie / 5) * 5;

	$nomFichier = sprintf ("%03d%03d", $pratique, $theorie);

	return $nomFichier;
}

sub arrondi
{
	local ($valeur) = @_;

	return (($valeur - valeurEntiere ($valeur)) < 0.5) ? valeurEntiere ($valeur) : valeurEntiere ($valeur) + 1;
}

sub valeurEntiere
{
        local ($valeur) = @_;
        local ($temp);

        $temp = sprintf ("%f", $valeur);
        $temp =~ s/\..*//;

        return ($temp);
}

sub isolatin2html
{
	local ($_) = @_;

	tr/\r\n//d;

	s/&/&amp;/g;
	s/"/&quot;/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	s/À/&Agrave;/g;
	s/Á/&Aacute;/g;
	s/Â/&Acirc;/g;
	s/Ã/&Atilde;/g;
	s/Ä/&Auml;/g;
	s/Å/&Aring;/g;
	s/Ç/&Ccedil;/g;
	s/È/&Egrave;/g;
	s/É/&Eacute;/g;
	s/Ê/&Ecirc;/g;
	s/Ë/&Euml;/g;
	s/Ì/&Igrave;/g;
	s/Í/&Iacute;/g;
	s/Î/&Icirc;/g;
	s/Ï/&Iuml;/g;
	s/Ñ/&Ntilde;/g;
	s/Ò/&Ograve;/g;
	s/Ó/&Oacute;/g;
	s/Ô/&Ocirc;/g;
	s/Õ/&Otilde;/g;
	s/Ö/&Ouml;/g;
	s/Ø/&Oslash;/g;
	s/Ù/&Ugrave;/g;
	s/Ú/&Uacute;/g;
	s/Û/&Ucirc;/g;
	s/Ü/&Uuml;/g;
	s/Ý/&Yacute;/g;
	s/Ÿ/&Yuml;/g;
	s/à/&agrave;/g;
	s/á/&aacute;/g;
	s/â/&acirc;/g;
	s/ã/&atilde;/g;
	s/ä/&auml;/g;
	s/å/&aring;/g;
	s/ç/&ccedil;/g;
	s/è/&egrave;/g;
	s/é/&eacute;/g;
	s/ê/&ecirc;/g;
	s/ë/&euml;/g;
	s/ì/&igrave;/g;
	s/í/&iacute;/g;
	s/î/&icirc;/g;
	s/ï/&iuml;/g;
	s/ñ/&ntilde;/g;
	s/ò/&ograve;/g;
	s/ó/&oacute;/g;
	s/ô/&ocirc;/g;
	s/ö/&ouml;/g;
	s/ø/&oslash;/g;
	s/ù/&ugrave;/g;
	s/ú/&uacute;/g;
	s/û/&ucirc;/g;
	s/ü/&uuml;/g;
#&yacute;
	s/ÿ/&yuml;/g;

#AAAAAACEEEEIIIINOOOOOOUUUUYYaaaaaaceeeeiiiinoooooouuuuyy
	s/€/&euro;/g;
	s/ß/&szlig;/g;
	s/æ/&aelig;/g;
	s/Æ/&AElig;/g;
#	s/œ/oe/g;
#	s/Œ/OE/g;
	s/œ/&#339/g;
	s/Œ/&#338/g;
	s/®/&reg;/g;
#	s/®/&#174;/g;
	s/©/&copy;/g;
#	s/©/&#169;/g;
	s/™/&#8482;/g;
	s/·/&middot;/g;
	s/·/&#183;/g;
	s/…/&#8230;/g;
	s/\.\.\./&#8230;/g;
	s/\A\* /<li>/;
	s/\t\t/<p>/g;
	s/\t/<br>/g;
	s/ ([:;!?])/&nbsp;$1/g;
	s/ ([\/-]) /&nbsp;$1 /g;

	return $_;
}

1;