#!/usr/bin/perl -w

# usage : perl venn.pl
#sarah maman - 1 aout 2012 - Mis en place pour le traitement des mi-RNA

use strict;
use File::Basename;


my $output = $ARGV[0];
my $inputs = @ARGV;
#pour connaître le path vers le script lists2venn.pl
my $VENN = '/usr/local/bioinfo/src/galaxy/galaxy-dist/tools/sm_miRNA_annotations/lists2venn.pl';
my $cmd = '';
my $input_dir = dirname($inputs); 
my $input_basename=basename($inputs,'.png'); 
my $input_image="$input_dir/${input_basename}-image"; 

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $ALL =  $mday."-".($mon+1)."_".$hour."h".$min."mn".$sec."sec";

#Pour donner le nom des fichiers entrants (nom complet avec extension) :
#print "Fichiers entrants : @ARGV[1..$#ARGV] \n"; 


$cmd = "($VENN @ARGV[1..$#ARGV] $ALL) >& ./venn.log 2>&1";
system $cmd;


if (! -e "$ALL.png")
{
print STDERR "Echec lors de la generation de l'image \n";
}
else
{
$cmd = "(cp -a $ALL.png $output) >& ./joincp.log 2>&1";
system $cmd;
}