<?php
/**
 * Copyright 2005-2017 de Solis Soluções Livres Ltda.
 *
 * Este arquivo é parte do programa Gnuteca.
 *
 * O Gnuteca é um software de propriedade da SOLIS, sendo desenvolvido
 * e mantido exclusivamente por esta empresa.
 *
 * A licença de uso está disponível mediante aquisição exclusiva junto à
 * SOLIS. A licença é concedida sem caráter de exclusividade ao licenciado.
 * Os direitos de uso são perpétuos.
 *
 * Embora os códigos fontes sejam fornecidos, o software é de propriedade
 * da SOLIS, não sendo permitido ao adquirente da licença a sua revenda,
 * empréstimo ou cessão (onerosa ou não) à terceiros. Também não é permitido,
 * a qualquer título e tempo, promover no software qualquer tipo de alienação,
 * reprodução, distribuição, divulgação, registro, licenciamento, transferência
 * ou qualquer outro ato que prejudique ou comprometa os direitos de propriedade
 * de software, o nome e a imagem da sua proprietária e do próprio software,
 * além de configurar concorrência à SOLIS.
 *
 * O licenciado, com o acesso ao código fonte do software, terá o direito de
 * promover mudanças no respectivo código. No entanto, nas situações em que ele
 * contar com o suporte oficial prestado pela SOLIS, não poderá promover mudanças
 * no código fonte, sob pena de perda do referido suporte.
 *
 * Para conhecer em detalhes o Termo de Licenciamento do Software Gnuteca
 * leia o arquivo “LICENCA.txt” disponível junto ao código deste software.
 */

//obtem miolo
$path       = '../';
$classPath  = '../modules/gnuteca3/classes';
$module     = $_REQUEST['module'];
$action     = $_REQUEST['action'];
$width      = $_REQUEST['width'];
$height     = $_REQUEST['height'];
$print      = $_REQUEST['print'];

include("$classPath/mioloconsole.class.php");

$MIOLOConsole = new MIOLOConsole();
$MIOLO = $MIOLOConsole->getMIOLOInstance($path, $module, false);
$MIOLOConsole->loadMIOLO();

//obtem business de arquivo
$MIOLO->getClass('gnuteca3', 'GBusiness');
$busFile = $MIOLO->getBusiness('gnuteca3', 'BusFile' );

//localiza o arquivo
$busFile->folder    = $_REQUEST['folder'];
$busFile->fileName  = $_REQUEST['file'];

// faz log de Download somente quando pasta for material
if (  strlen($busFile->fileName) && strlen($busFile->folder) &&  ($busFile->folder === 'material')  && (!strlen($_REQUEST[0]))  )
{
    $endTime = microtime(true);

    $busAnalycts = $MIOLO->getBusiness('gnuteca3', 'BusAnalytics' );
    $busAnalycts->setData(BusinessGnuteca3BusAnalytics::getRealTimeAnalytics());
    $busAnalycts->logLevel = ANALYCTS_LOGLEVEL_OUTER;
    $busAnalycts->event = $busFile->folder.'/'.$busFile->fileName;
    $busAnalycts->accessType = BusinessGnuteca3BusAnalytics::ACCESS_TYPE_SEARCH_CONTENT_SUCESS;
    $busAnalycts->action = 'Download';

    // Calcula o tempo que a requisição levou.
    $busAnalycts->timeSpent = $endTime-$startTime;
    $busAnalycts->time = GDate::now()->getDate(GDate::MASK_TIMESTAMP_USER);
    $busAnalycts->insertAnalytics();       
}

//verifica se a solicitacao do arquivo pode ser efetuada.
if ( !$busFile->checkFolderAccess() )
{
    die("Permissão negada.");
}
else{ console.log('Deu certo'); }

//obtém imagem do tema
if ( $busFile->folder == 'theme' )
{
    $theme = $MIOLO->getConf( "theme.main" );
     
    $file = new GFile();
    $file->absolute = $MIOLO->getConf( "home.themes" ) . '/' . $theme . '/images/' . $busFile->fileName;
    $file->type = 'image';
    $file->mimeContent = mime_content_type($file->absolute);
}
else
{
    $file = $busFile->searchFile(true);
    $file = $file[0];
}

//define label, caso definida
$label = $_REQUEST['label'] ?  $_REQUEST['label'] : $file->basename;

if ( !file_exists($file->absolute) )
{
    die("Arquivo nao encontrado!");
}

ob_clean(); //remove echos que já tenham sido executados

//trata caso especifico de css
if ( $file->extension == 'css' )
{
    $file->mimeContent = 'text/css';
}

//Quando tiver uma extensão rcpt e for para impressão o arquivo deve ser tratado como texto
if ( $print && ( $file->mimeContent == 'text/plain' || $file->mimeContent == 'application/gnuteca3receipt' ) )
{
    $file->mimeContent = 'text/html';
}

header("Pragma: public");
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Cache-Control: private",false);
header("Content-type: $file->mimeContent");

if ( $file->type =='image'
    || $file->mimeContent == 'text/plain'
    || $file->mimeContent == 'text/css' 
    || $file->mimeContent == 'text/html' )
{
    header("Content-Disposition: inline; filename=\"$label\"");
}
else
{
    header("Content-Disposition: attachment; filename=\"$label\"");
}


//se for imagem e precisar redimensionar a lógica é diferente
if ( ( $width || $height ) && $file->type ='image' )
{
    resizeImage( $file ,$width , $height , true );
}
else
{
    #header('Content-Transfer-Encoding: Binary' );
    header("Content-Length: ".filesize($file->absolute));

    //Se for txto/html e for para imprimir, tem que por o pre.
    if ( $file->mimeContent == 'text/html' && $print )
    {
        header("Content-Type:" . 'text/html; ; charset=UTF-8');

        echo "<PRE>" . file_get_contents($file->absolute) . "</PRE>";
        echo "<script> window.print();";

        //Se for o Firefox manda dar o close window.
        if ( stripos($_SERVER['HTTP_USER_AGENT'], 'firefox') )
        {
            echo "window.close();";
        }

        echo("</script>");
    }
    else
    {
        readfile($file->absolute);
    }
}

function resizeImage($file, $neededWidth, $neededHeight, $antiAlias = false)
{
    $filename = $file->absolute;

    // Carrega Imagem
    if ($file->mimeContent == 'image/jpeg')
    {
        $resultFunction = 'imagejpeg';
        $image = imagecreatefromjpeg($filename);
    }
    else if ($file->mimeContent == 'image/png')
    {
        $resultFunction = 'imagepng';
        $image = imagecreatefrompng($filename);
    }
    else if ($file->mimeContent == 'image/gif')
    {
        $resultFunction = 'imagegif';
        $image = imagecreatefromgif($filename);
    }
    else if ($file->mimeContent == 'image/bmp')
    {
        $resultFunction = 'imagewbmp';
        $image = imagecreatefromwbmp($filename);
    }

	// Pega os tamanhos originais
	$width  = imagesx($image);
	$height = imagesy($image);

	// Checa o redimensionamendo, se é feito por % ou px
	if (preg_match("/[0-9]{1,3}%/",$neededWidth,$lixo))
    {
		$size = str_replace("%","",$neededWidth);
		settype($size, "integer");
		$percent = floatval($neededWidth);
		$percent /= 100;
		$newWidth = $width * $percent;
		$newHeight = $height * $percent;
	}
	else
    if  ( $neededWidth && !$neededHeight )
    {
		settype($neededWidth, "integer");
		$newWidth = floatval($neededWidth);
		$newHeight = $height * ($newWidth/$width);
		// Se apenas altura foi definida
	}
	else
    if ( $neededHeight && !$neededWidth )
    {
		settype($neededHeight, "integer");
		$newHeight = floatval($neededHeight);
		$newWidth  = $width * ($newHeight/$height);
		// Nova Largura e nova altura;
	}
	else
    {
		$newHeight = floatval($neededHeight);
		$newWidth = floatval($neededWidth);
	}

    $file->antiAlias    = $antiAlias;
    $file->width        = $width;
    $file->height       = $height;
    $file->newWidth     = $newWidth;
    $file->newHeight    = $newHeight;

    if ( $file->mimeContent == 'image/jpeg' )
    {
        $source = imagecreatefromjpeg($file->absolute);
        $thumb  = imagecreatetruecolor( $file->newWidth, $file->newHeight );

        if ($file->antiAlias == false)
        {
            imagecopyresized($thumb, $source, 0, 0, 0, 0, $file->newWidth, $file->newHeight, $file->width, $file->height );
        }
        else
        {
            imagecopyresampled($thumb, $source, 0, 0, 0, 0, $file->newWidth, $file->newHeight, $file->width, $file->height );
        }

        header("Content-type: {$file->mimeContent}");
        header("Content-Disposition: inline; filename={$file->absolute}"); //se por attachament ele abre o download
        imagejpeg($thumb, null, 100);
    }
    else
    if ( $file->mimeContent == 'image/png' )
    {
        $source = imagecreatefrompng($file->absolute);
        $file->trueColor = imageistruecolor($source);

        if ( $file->trueColor)
        {
            $thumb  = imagecreatetruecolor( $file->newWidth, $file->newHeight );
            imagealphablending($thumb, false);
            imagesavealpha  ( $thumb  , true );

            if ( $file->type == 'indexed')
            {
                imagetruecolortopalette  ( $source  ,  true , 256 );
            }
        }
        else
        {
            $thumb  = imagecreate( $file->newWidth, $file->newHeight );
            imagealphablending( $thumb, false );
            $transparent = imagecolorallocatealpha( $thumb, 0, 0, 0, 127 );
            imagefill( $thumb, 0, 0, $transparent );
            imagesavealpha( $thumb,true );
            imagealphablending( $thumb, true );
        }

        if ($file->antiAlias == false)
        {
            imagecopyresized($thumb, $source, 0, 0, 0, 0, $file->newWidth, $file->newHeight, $file->width, $file->height );
        }
        else
        {
            imagecopyresampled($thumb, $source, 0, 0, 0, 0, $file->newWidth, $file->newHeight, $file->width, $file->height );
        }

        imagepng($thumb);
    }
    else
    {
        $image_resized = imagecreatetruecolor($file->newWidth, $file->newHeight);
        imagecopyresampled($image_resized, $image, 0, 0, 0, 0, $file->newWidth, $file->newHeight, $width, $height);
        //Display resized image
        $resultFunction($image_resized);
    }

	imagedestroy($image_resize);
    imagedestroy($thumb);
    imagedestroy($source);
}
?>