<?

include('lib_main.php');

echo 'HELLO WORLD';
echo '*/*/*/* ';
// echo mail_ce('0610202301091537937400120010010000013293203838711');

echo ' <br>==================== ';
echo ' <br>==================== ';
echo ' <br>';




// Obtener la lista de funciones desactivadas
$disabledFunctions = ini_get('disable_functions');
// $disabledFunctions = ini_get('enable_functions');

var_dump($disabledFunctions);

// Convertir la lista en un array separado por comas
$disabledFunctionsArray = explode(',', $disabledFunctions);

// Mostrar las funciones desactivadas
echo "Funciones desactivadas:";
foreach ($disabledFunctionsArray as $function) {
    echo $function . "<br>";
}

return;


$filepdf='_msp2.pdf';



// Ruta del archivo PDF que se va a convertir
$pdfFile = 'archivo.pdf';

$pdfFile=$filepdf;
// Ruta donde se guardará el archivo HTML generado
$htmlFile = 'archivo.html';

// Comando para convertir el PDF a HTML usando pdftohtml
$command = "pdftohtml -s -c -i -noframes \"$pdfFile\" \"$htmlFile\"";

// Ejecutar el comando y capturar la salida
$output = shell_exec($command);

// $a= passthru("pdftohtml $source_pdf $output_file",$b);



// Verificar si la conversión fue exitosa
if ($output === null) {
    echo "La conversión de PDF a HTML fue exitosa.";
} else {
    echo "Ocurrió un error durante la conversión de PDF a HTML.";
}

return;



// // include 'src/Gufy/PdfToHtml.php';
// include 'pdf-to-html-master/src/Pdf.php';
// // initiate 
// // $pdf = new \Gufy\PdfToHtml;
// $pdf = new Pdf;
// // opening file
// $pdf->open($filepdf);
// // set different output directory for generated html files
// // $pdf->setOutputDirectory('/your/absolute/directory/path');
// $pdf->setOutputDirectory('');
// // do this if you want to convert in the same directory as file.pdf
// $pdf->generate();
// // you think your generated files is annoying? simple do this to remove the whole files
// $pdf->clearOutputDirectory();


// return;



// // $exefile='pdftohtml';
// $exefile='../_lib/pdftohtml.exe';
// // $exefile='../_lib/pedido.php';

// $source_pdf=$filepdf;
// // $output_file='../_lib/pdfs/_test';
// // $output_file='pdfs/_test';
// $output_file='_testpdf_';

// echo '<br>EXIST '.$exefile.' : '.file_exists($exefile);
// // echo '<br>EXIST '.$exefile.' : '.file_exists($exefile);



// $exefile='../_lib/pdftohtml';

// echo '<br>=====';

// // echo  function_exists('exec');
// echo '<br>=====';
// // $a= passthru("pdftohtml $source_pdf $output_file",$b);
// // $a= passthru("pdftohtml $source_pdf $output_file",$b);
// // $a= passthru("$exefile $source_pdf $output_file",$b);
// $a= passthru("pdftohtml $source_pdf $output_file",$b);
// $xhtml=file_get_contents($output_file.'s.html');

// var_dump($a);



// // echo '<embed type="text/html" src="https://coberturasalud.msp.gob.ec/" width="1200" height="400">';

// // echo '<br>*/*/*/*/ source == '.$source_pdf;
// // echo '<br>*/*/*/*/ output == '.$output_file;
// // echo '<br>*/*/*/*/ passthru == '.$b;



// // $output_folder="MyFolder";
// // if (!file_exists($output_folder)) { mkdir($output_folder, 0777, true);}
// // $a= passthru("pdftohtml -f $firstpage -l $lastpage 
// // $source_pdf $output_folder/new_html_file_name",$b);
// // var_dump($a);




// return;


echo '<br>===';
$fecha='7 febrero 2024';

// echo (int)$fecha;
$dia=str_pad((int)$fecha,2,'0',STR_PAD_LEFT);
echo $dia;

echo '<br>===';

include('PdfToText.phpclass') ;
$pdf=new PdfToText ( $filepdf ) ;
$text =$pdf -> Text ;
echo $text;



return;


function mail_ce($clave_acceso,$mailce='')
{
include('../_cfg/config.php');
include('php_session.php');

if(!val_clac($clave_acceso)){return false;}
     
    $subdce=mk_subdce($clave_acceso);
  
  $test_mail='';
  $test_mail='vicore1976@gmail.com';
// 	$test_mail='vicore@hotmail.com';
// 	$test_mail='vicore@hotmail.com,ptama@hotmail.com';

	$eol="\r\n";
	$random_hash = md5(time()); 
	
	//01 04 05
	$codDoc=substr($clave_acceso,8,2); 	
	$tabla='vtas';
	if($codDoc=='03'){$tabla='comp';}
	if($codDoc=='06'){$tabla='guia';}
	if($codDoc=='07'){$tabla='retp';}
  
	if($codDoc=='81'){$tabla='caja';}
	if($codDoc=='82'){$tabla='bcos';}
	if($codDoc=='91'){$tabla='clie';}
	if($codDoc=='92'){$tabla='clie';}
	if($codDoc=='95'){$tabla='prov';}
	if($codDoc=='96'){$tabla='prov';}
	if($codDoc=='99'){$tabla='role';}

// 	$sql_cel1='select * from '.$tabla.'11 where claveacc="'.$clave_acceso.'"';
	$sql_cel1='select * from '.$tabla.'12 where claveacc="'.$clave_acceso.'" ';
// 	$sql_cel1.=' and enti not like "9999%"';
  $sql_total=sql_total($tabla);      
  $sql_cel1=str_replace('*','*,'.$sql_total,$sql_cel1);
  
	$res_cel1=msql_query($sql_cel1,$link_vcrx);
	
	$enti=substr(msql_result($res_cel1,0,'enti'),0,10);
     if(mb_stristr($enti,'9999'))
     {
          $email='celec@vcrxol.com';
		$sql_cel1='update '.$tabla.'1 set emailfec=now(), emailto="'.$email.'" where claveacc="'.$clave_acceso.'"';
		$res_cel1=msql_query($sql_cel1,$link_vcrx);
          return;
     }
     
	$docu=msql_result($res_cel1,0,'docu');
	$idnum1=msql_result($res_cel1,0,'idnum1');
	$numero=msql_result($res_cel1,0,'numero');
	$fecha=msql_result($res_cel1,0,'fecha');
     
// 	$entiruc=substr(msql_result($res_cel1,0,'enti'),0,13);
	$enti_descri=msql_result($res_cel1,0,'enti_descri');
	$autornum=@msql_result($res_cel1,0,'autornum');
	$docu_descri=msql_result($res_cel1,0,'docu_descri');
	$tiporuc=msql_result($res_cel1,0,'enti_tiporuc');
	$docupdf=r_fiel('docu',$docu,'pdf');
	$entipdf=@r_fiel('enti',$enti,'pdf');
     $ambiente=substr($clave_acceso,23,1); // 1 pruebas 2 produccion
	
	$tipo_descri='';
	if(substr($clave_acceso,8,2)=='01'){$tipo_descri='FACTURA';}
	if(substr($clave_acceso,8,2)=='04'){$tipo_descri='N.CREDITO';}
	if(substr($clave_acceso,8,2)=='06'){$tipo_descri='GUIA';}
	if(substr($clave_acceso,8,2)=='07'){$tipo_descri='RETENCION';}
	if($tipo_descri!=''){$docu_descri=$tipo_descri;}
	
	
	if(mb_stristr('vtas.guia.retp',$tabla))
	{if($autornum==""){ws_autor($clave_acceso);}}

  $email=$mailce;
	if($email==''){$email=r_fiel('enti',msql_result($res_cel1,0,'enti'),'emailce');}
	if(strlen($email)<=6){$email=r_fiel('enti',msql_result($res_cel1,0,'enti'),'email');}
  
	$email=strtolower($email);
  $email=str_replace(';',',',$email);

  $emailcc=r_fiel('enti',$cfg_ruc,'emailce');
// 	$emailcc=strtolower($emailcc);
  $emailced1='';
  $emailattn='';
  $emailvndd='';
  
  $emailced1=r_fiel('enti',@msql_result($res_cel1,0,'cedula1'),'emailce');
  if(strlen($emailced1)<=6)
  {$emailced1=r_fiel('enti',@msql_result($res_cel1,0,'cedula1'),'email');}
  $emailced1=strtolower($emailced1);
  
  $emailattn=r_fiel('enti',@msql_result($res_cel1,0,'attn'),'emailce');
  if(strlen($emailattn)<=6)
  {$emailattn=r_fiel('enti',@msql_result($res_cel1,0,'attn'),'email');}
  $emailattn=strtolower($emailattn);
  
  $emailvndd=r_fiel('enti',@msql_result($res_cel1,0,'vndd'),'emailce');
  if(strlen($emailvndd)<=6)
  {$emailvndd=r_fiel('enti',@msql_result($res_cel1,0,'vndd'),'email');}
  $emailvndd=strtolower($emailvndd);
  
//   $emailattnce=r_fiel('enti',@msql_result($res_cel1,0,'attn'),'emailce');
//   $emailattnce=strtolower($emailattnce);
  
  $emailcc.=','.$emailattn;
  $emailcc.=','.$emailvndd;
  $emailcc.=','.$emailced1;
  $emailcc=str_replace(';',',',$emailcc);
	$emailcc=strtolower($emailcc);

     
     
     if(mb_stristr('vtas.guia.retp',$tabla) and $ambiente!='2')
     {$email=r_fiel('enti',$cfg_ruc,'emailce');$emailcc=$email;}
     
  $emailbcc='vicore@hotmail.com';
  $ruconta=r_fiel('empr',$cfg_empr,'ruccontador');
  $emconta=r_fiel('enti',$ruconta,'emailce');
  $emailbcc.=','.$emconta;
  $emailbcc=str_replace(';',',',$emailbcc);

 	$reply=$emailcc;
  
  if(mb_stristr('cpc1.stp1.flmn',$cfg_empr))
  {$emailbcc.=','.'peggytama@gmail.com';}
  
  if(mb_stristr('gmny.gnya',$cfg_empr))
  {$emailbcc.=','.'mlr_2021@hotmail.com';}
  
//      echo '<br>/*/*/*'.$email;
//      echo '<br>/*/*/*'.$emailcc;
//      echo '<br>/*/*/*'.$emailbcc;
  
	$asunto=$docu_descri.' '.msql_result($res_cel1,0,'ptonumero').' '.$enti_descri;
// 	$asunto=$docu_descri.' '.msql_result($res_cel1,0,'ptonumero').' '.$enti;
          
// echo '<br>aaaaa'.date('H:i:s') ; 
	$documsj=prnt_docu2($docu,$idnum1,1,'mail');
// echo '<br>bbbbb'.date('H:i:s') ; 
	prnt_docu0($docu,$idnum1);
// echo '<br>ccccc'.date('H:i:s') ; 
     
// echo '<br>*/*/*/'.$documsj ; 

	$attach1='';
	$attach2='';
	$attach3='';
	
	if(file_exists($rutace.$subdce.$clave_acceso.'.xml'))
	{$attach1=chunk_split(base64_encode(file_get_contents($rutace.$subdce.$clave_acceso.'.xml')));}
	
	if(file_exists($rutadoc.$docu.'_'.fillzero($idnum1).'.html'))
	{$attach2=chunk_split(base64_encode(file_get_contents($rutadoc.$docu.'_'.fillzero($idnum1).'.html'))); } 
	
	if(file_exists($rutace.$subdce.$clave_acceso.'.pdf'))
	{$attach3=chunk_split(base64_encode(file_get_contents($rutace.$subdce.$clave_acceso.'.pdf')));}
  
  if($tiporuc=='N'){$attach3='';}
	
  $resu=0;
	// PARA SANTA PRISCILA	
	if(mb_stristr('0991257721',substr($enti,0,10)) and $empr_codigo=='cpc1'){$resu=1;}
     // INVERNEG
	if(mb_stristr('0990658498',substr($enti,0,10)) and $empr_codigo=='flmn'){$resu=1;}
     
     // AQUAMARKET
// 	if(mb_stristr('0992457260',substr($enti,0,10)) and $empr_codigo=='flmn'){$resu=1;}

     // SONGA
// 	if(mb_stristr('0990033110',substr($enti,0,10)) and $empr_codigo=='sawo'){$resu=1;}
     
  
	if($resu==1 or $entipdf==1)
	{
		$bloque=substr($documsj,strpos($documsj,'<cabecera>'));	
		$bloque=substr($bloque,0,strpos($bloque,'</cabecera>')+11);	
		$cabecera=$bloque;

		$bloque=substr($documsj,strpos($documsj,'<logo>'));	
		$bloque=substr($bloque,0,strpos($bloque,'</logo>')+7);	
		$logo=$bloque;

		$bloque=substr($documsj,strpos($documsj,'<datos>'));	
		$bloque=substr($bloque,0,strpos($bloque,'</datos>')+8);	
		$datos=$bloque;

		$bloque=substr($documsj,strpos($documsj,'<resumen>'));
		$bloque=substr($bloque,0,strpos($bloque,'</resumen>')+10);	
		$resumen=$bloque;
		
// 		$documsj='<table width="25%"><tr><td>'.$logo.$datos.$resumen.'</td></tr></table>';
	}
	
	
//   $documsj='VCRX<br>'.$documsj.'<br>End Of Line';
  
  $cele_preguntas='';
  $cele_preguntas.='<a href=';
  $cele_preguntas.='"http://www.sri.gob.ec/DocumentosAlfrescoPortlet/descargar/cef82829-f261-4374-a45c-96adb2c3ace8/Preguntas+frecuentes+facturaci%F3n+electr%F3nica.pdf"';
  $cele_preguntas.=' target="_blank">';
  $cele_preguntas.='X</a>';
  
//   $documsj=$documsj.'<br>'.$cele_preguntas;
  
  
	if(mb_stristr($documsj,'Warning:')){$email='vicore@hotmail.com';}
	if($test_mail!="")
	{
		$email=$test_mail;
		$emailcc=$test_mail;
		$emailbcc=$test_mail;
	}	

  
  
	$headers ='';
	$headers.= 'From: VCRXOL.COM - '.$cfg_descri.' <celec@vcrxol.com>'. $eol;
	$headers.= 'Reply-To:'.$reply. $eol;
	$headers.= 'Cc:'.$emailcc. $eol;
	$headers.= 'Bcc:'.$emailbcc. $eol;
	$headers.= 'Return-Path: Soporte '.$cfg_descri.' <celec@vcrxol.com>'.$eol;
	$headers.= 'MIME-Version: 1.0' . $eol;
	$headers.= 'Content-Type: multipart/mixed; boundary="PHP-mixed-'.$random_hash.'"'; 
     $headers=str_replace('S.A.','',$headers);
	
	$mensaje='';
	$mensaje.='--PHP-mixed-'.$random_hash.$eol;   
	$mensaje.='Content-Type: multipart/alternative; boundary="PHP-alt-'.$random_hash.'"'.$eol;  
	$mensaje.='--PHP-alt-'.$random_hash.$eol;
// 	$mensaje.='Content-Type: text/html; charset="utf-8"'.$eol; 
	$mensaje.='Content-Type: text/html; charset="iso-8859-1"'.$eol; 
	$mensaje.='Content-Transfer-Encoding: 7bit'.$eol; 
	$mensaje.= $eol; 
	$mensaje.= $documsj.$eol;  
	$mensaje.='--PHP-alt-'.$random_hash.'--'.$eol;   

	if($attach1!='')
	{
    $mensaje.='--PHP-mixed-'.$random_hash.$eol;   
    $mensaje.='Content-Type: text/plain;'.'name='.$clave_acceso.'.xml'.$eol; 
    $mensaje.='Content-Transfer-Encoding: base64'.$eol; 
    $mensaje.='Content-Disposition: attachment'.$eol;  
    $mensaje.= $eol; 
    $mensaje.= $attach1.$eol;  
	}	

	if($attach2!='')
	{
    $mensaje.='--PHP-mixed-'.$random_hash.$eol;   
    $mensaje.='Content-Type: text/html;'.'name='.$clave_acceso.'.html'.$eol; 
    $mensaje.='Content-Transfer-Encoding: base64'.$eol; 
    $mensaje.='Content-Disposition: attachment'.$eol;  
    $mensaje.= $eol; 
    $mensaje.= $attach2.$eol;  
	}

	if($attach3!='')
	{
    $mensaje.='--PHP-mixed-'.$random_hash.$eol;   
    $mensaje.='Content-Type: aplication/pdf;'.'name='.$clave_acceso.'.pdf'.$eol; 
    $mensaje.='Content-Transfer-Encoding: base64'.$eol; 
    $mensaje.='Content-Disposition: attachment'.$eol;  
    $mensaje.= $eol; 
    $mensaje.= $attach3.$eol;  
	}

	$mensaje.='--PHP-mixed-'.$random_hash.'--'.$eol;   

//   if(mb_stristr('cpc1.stp1.flmn',$empr_codigo))
//   {
//     $mensaje=remove_href($mensaje);
//   }
// 	$mensaje.='-- End of Line --'.$eol;   

	$xmail=mail($email, $asunto, $mensaje, $headers);
	if($xmail==1 and $test_mail=='')
	{
		$sql_cel1='update '.$tabla.'1 set emailfec=now(), emailto="'.$email.'" where claveacc="'.$clave_acceso.'"';
		$res_cel1=msql_query($sql_cel1,$link_vcrx);
    
	}
// 	else{$xmail='ERROR :'.$email;}
//msql_close($link_vcrx) ; 

//      echo '<br>';
//      echo '<br>'.$email;
//      echo '<br>'.$asunto;
//      echo '<br>'.$headers;
//      echo '<br>'.$mensaje;
     
	return $xmail;
}





?>