#!/usr/bin/perl -w

use strict;

my($flagFR,$flagEN,$ligne,$verbose);
$verbose = 0;

if ($ARGV[0] eq "-v")
	{
	shift;
	$verbose = 1;
	}
$ligne = 0;
open(SGML,"$ARGV[0]") or die "Unable to open input file";
while (<SGML>)
	{
	$ligne++;
	if (/\[FR:/) 	
		{
		print "début FR trouvé ligne $ligne\n" if ($verbose);
		print "*** PB ligne $ligne FR déjà ouvert\n" if ($flagFR);
		$flagFR = 1;
		}
	if (/:FR\]/) 	
		{
		print "fin FR trouvé ligne $ligne\n" if ($verbose);
		print "*** PB ligne $ligne FR déjà fermé\n" if (not $flagFR);
		$flagFR = 0;
		}
	if (/\[EN:/) 	
		{
		print "début EN trouvé ligne $ligne\n" if ($verbose);
		print "*** PB ligne $ligne EN déjà ouvert\n" if ($flagEN);
		$flagEN = 1;
		}
	if (/:EN\]/) 	
		{
		print "fin EN trouvé ligne $ligne\n" if ($verbose);
		print "*** PB ligne $ligne EN déjà fermé\n" if (not $flagEN);
		$flagEN = 0;
		}
	}
close(SGML);