#!/usr/bin/perl

use CGI qw/:standard/;
use MIME::QuotedPrint;

print header('text/plain');

if(param())
{
 if ( param('fichier') =~ /([12][90][90][0-9][01][0-9]\.zip)/)
 {
  $fichier = $1;
  open(G, "/usr/bin/unzip -c /home/arvalis/www/ml/archives/$fichier |") || die "Probleme : ";
  $spoil = <G>;
  $spoil = <G>;

#  $myheader = 1;
  while (<G>) 
  {
	chomp;
	if (/^Subject:/)
	{
		while(/=\?iso-8859-1\?Q\?(.*)\?=/i)
                {
                 $rp = decode_qp($1);
                 s/=\?iso-8859-1\?Q\?(.*)\?=/$rp/gi;
		 s/_/ /g;
                }
		s/\[ambre\]//g;
		s/^Subject: //g;
		s/(^|\s)([Rr][Ee][ :]+)+/$1/g;
		s/^ *//g;
		s/ *$//g;
		s/  +/ /g;
		push @res, $_;
#		push @res, decode_qp($_);
	}
  }
  close(G);
  @res = sort @res;
  $old = "";
  FOR: for($i = 0; $i < scalar(@res); $i++)
  {
   if($i < scalar(@res) -1)
   {
    next FOR if(index($res[$i+1], $res[$i]) != -1);
   }
   if(not ($res[$i] eq $old))
   {
    print $res[$i], "\n";
    $old = $res[$i];
   }
  }
 }
 else
 {
  print "ERROR: Wrong type of file.\n";
 }
}
else
{
 print "ERROR.\n";
}