# Created by Arnaud Lefebvre
# Université de Rouen
# France

#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

require 5.004;

open F, "<".$ARGV[0];


$_=<F>;

while (!/^\%\%Pages/){
	$_=<F>;
}
chomp();
@liste = split(/\ /,$_);
$nb_pages =  $liste[1];

$page_courante = 1;

while ($page_courante <= $nb_pages){
	open OUT, ">".$page_courante."_".$ARGV[0];
	close F;
	open F, "<".$ARGV[0];
	$_=<F>;
	while (!/^\%\%Pages/){
		print OUT $_;
	    $_=<F>;
	}
	print OUT "\%\%Pages: 1\n";
	$_=<F>;
	while (!/^\%\%Page\:/){
	    print OUT $_;
		$_=<F>;
	}

	@liste = split(/\ /,$_);
	if ($liste[1] != $page_courante) {$bonne_page = 0;}
	else {$bonne_page = 1;}

	while (!$bonne_page){
		$_=<F>;
		while (!/^\%\%Page\:/){
			$_=<F>;
		}
		@liste = split(/\ /,$_);
		if ($liste[2]!=$page_courante) {$bonne_page = 0;}
		else {$bonne_page = 1;}
	}
	print OUT "\%\%Page: 1 1\n";
	$_=<F>;
	while (!/\ eop$/ && !/eop$/) {
		print OUT $_;
		$_=<F>;
	}
	print OUT $_;

	$_=<F>;
	while (!/^\%\%Trailer/){
		$_=<F>;
	}
	print OUT $_;
	while (<F>){
		print OUT $_;
	}
	
	close OUT;
	$page_courante++;
}