#!/usr/bin/perl -w

use strict;
use File::Basename;


# Sarah Maman - Juillet 2015
# Copyright (C) 2015 INRA
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.


my $username = $ARGV[0];
my $output   = $ARGV[1];


#Récuperer le numero (unique) de l'output 
my ($nboutput) = ($output=~/galaxy_dataset_(\d+)\.\S+$/);


my $cmd = "qquota_cpu $username > data1 ;";
system $cmd;
my $data1= `qquota_cpu $username `;
my $data2 = `mmlsquota -u $username --block-size G gpfs`;

#creation d'un fichier html
open (HTML, ">", "results.html") or die "Cannot create results.html";

print HTML "VOTRE QUOTA CPU \n";
print HTML "------------------------- \n\n";
print HTML "Remise à 0 du temps de calcul utilisé datant du 1er JANVIER 2015 \n";
print HTML "############################################################## \n\n";
print HTML "Quota du user $username \n";
print HTML "####################### \n\n";
print HTML "$data1 \n\n";
print HTML "Rappel du fonctionnement Quota temps de calcul \n";
print HTML "###############################################\n\n";
print HTML "Un quota de temps de calcul de 100.000h par an est attribué par utilisateur. Au-delà de ces 100.000h, le dépôt d'un projet scientifique est nécessaire pour évaluer les besoins réels de l'environnement bio-informatique mis à disposition. En fonction des résultats de cette évaluation mais aussi de l'origine géographique et institutionnelle, les utilisateurs pourront alors :

    soit poursuivre leurs traitements ;

    soit être sollicités pour contribuer financièrement au fonctionnement de l'infrastructure (tarifs disponibles sur demande) ;

    soit être ré-orientés vers des mésocentres de calcul régionaux ou nationaux.

Pour les entreprises privées
Un quota de 500 h de calcul par an sera attribué afin de tester l'adéquation de l'infrastructure bio-informatique aux besoins de l'entreprise. Au-delà de ce quota, l'heure de calcul sera facturée au tarif en vigueur (disponible sur demande). \n\n";

print HTML "VOTRE QUOTA /WORK \n";
print HTML "------------------------------\n\n";
print HTML "$data2";



#Pour pouvoir ouvrir les fichiers dans la fenetre de visualisation de Galaxy, il faut paramétrer Apache de la maniere suivante :
# vi /etc/httpd/conf.d/galaxy.conf 
#pour ajouter cette ligne : RewriteRule ^/galaxy/download/(.*) /work/galaxy/database/files/$1 [L]
#puis reload de httpd :  /etc/init.d/httpd reload


if (! -e "results.html"){print STDERR "Pas de fichier html produit \n";}
else {my $cmdhtml = "(mv results.html $output) >& ./cp_qquota.log 2>&1";
system $cmdhtml;}

close( HTML );
