wrapper.php

<?php
/* Copyright (C) 2024-2025  Frédéric France     <frederic.france@free.fr>
 * Copyright (C) 2025   MDW           <mdeweerd@users.noreply.github.com>
 *
 * 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 <https://www.gnu.org/licenses/>.
 */
 
// BEGIN PHP File wrapper.php used to download rss, logo, shared files - DO NOT MODIFY - It is just a copy of file website/samples/wrapper.php
$websitekey = basename(__DIR__);
if (strpos($_SERVER["PHP_SELF"], 'website/samples/wrapper.php')) {
  die("Sample file for website module. Can't be called directly.");
}
if (!defined('USEDOLIBARRSERVER') && !defined('USEDOLIBARREDITOR')) {
  require_once './master.inc.php';
} // Load master if not already loaded
include_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
 
$encoding = '';
 
// Parameters to download files
$hashp = GETPOST('hashp', 'aZ09');
$extname = GETPOST('extname', 'alpha', 1);
$modulepart = GETPOST('modulepart', 'aZ09');
$entity = GETPOSTINT('entity') ? GETPOSTINT('entity') : $conf->entity;
$original_file = GETPOST("file", "alpha");
$l = GETPOST('l', 'aZ09');
$limit = GETPOSTINT('limit');
if ($limit <= 0 || $limit > 100) {
  $limit = 20;
}
 
// Parameters for RSS
$rss = GETPOST('rss', 'aZ09');
if ($rss) {
  $original_file = 'blog'.(($limit > 0 && $limit <= 100) ? '-'.$limit : '').(preg_match('/^[a-z][a-z](_[A-Z][A-Z])?$/', $l) ? '-'.$l : '').'-'.$websitekey.'.rss.cache';
}
 
// If we have a hash public (hashp), we guess the original_file.
if (!empty($hashp)) {
  include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
  include_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
  $ecmfile = new EcmFiles($db);
  $result = $ecmfile->fetch(0, '', '', '', $hashp);
  if ($result > 0) {
    $tmp = explode('/', $ecmfile->filepath, 2); // $ecmfile->filepath is relative to document directory
    // filepath can be 'users/X' or 'X/propale/PR11111'
    if (is_numeric($tmp[0])) { // If first tmp is numeric, it is subdir of company for multicompany, we take next part.
      $tmp = explode('/', $tmp[1], 2);
    }
    $moduleparttocheck = $tmp[0]; // moduleparttocheck is first part of path
 
    if ($modulepart) {  // Not required, so often not defined, for link using public hashp parameter.
      if ($moduleparttocheck == $modulepart) {
        // We remove first level of directory
        $original_file = (($tmp[1] ? $tmp[1].'/' : '').$ecmfile->filename); // this is relative to module dir
        //var_dump($original_file); exit(0);
      } else {
        // Security options
 
        // X-Content-Type-Options
        header("X-Content-Type-Options: nosniff");
 
        // X-Frame-Options
        if (!getDolGlobalString('WEBSITE_ALLOW_FRAMES_ON_ALL_PAGES')) {
          header("X-Frame-Options: SAMEORIGIN");
        }
 
        http_response_code(401);
        print 'Bad link. File is from another module part.';
        exit(1);
      }
    } else {
      $modulepart = $moduleparttocheck;
      $original_file = (($tmp[1] ? $tmp[1].'/' : '').$ecmfile->filename); // this is relative to module dir
    }
 
    if ($extname) {
      $original_file = getImageFileNameForSize($original_file, $extname);
    }
  } else {
    // Security options
 
    // X-Content-Type-Options
    header("X-Content-Type-Options: nosniff");
 
    // X-Frame-Options
    if (!getDolGlobalString('WEBSITE_ALLOW_FRAMES_ON_ALL_PAGES')) {
      header("X-Frame-Options: SAMEORIGIN");
    }
 
    http_response_code(404);
    print "ErrorFileNotFoundWithSharedLink";
    exit(2);
  }
}
 
// Define attachment (attachment=true to force choice popup 'open'/'save as')
$attachment = true;
if (preg_match('/\.(html|htm)$/i', $original_file)) {
  $attachment = false;
}
if (GETPOSTISSET("attachment")) {
  $attachment = (GETPOST("attachment", 'alphanohtml') ? true : false);
}
if (getDolGlobalString('MAIN_DISABLE_FORCE_SAVEAS_WEBSITE')) {
  $attachment = false;
}
 
// Define mime type
$type = 'application/octet-stream';
if (GETPOSTISSET('type')) {
  $type = GETPOST('type', 'alpha');
} else {
  $type = dol_mimetype($original_file);
}
 
// Security: Delete string ../ into $original_file
$original_file = str_replace("../", "/", $original_file);
 
 
// Cache or not
$cachestring = GETPOST("cache", 'aZ09');  // May be 1, or an int (delay in second of the cache if < 999999, or a timestamp), or a hash
$cachedelay = GETPOSTINT('cachedelay') ? GETPOSTINT('cachedelay') : ((is_numeric($cachestring) && (int) $cachestring > 1 && (int) $cachestring < 999999) ? $cachestring : '3600');
if ($cachestring || image_format_supported($original_file) >= 0) {
  // Important: Following code is to avoid page request by browser and PHP CPU at each Dolibarr page access.
  header('Cache-Control: max-age='.$cachedelay.', public, must-revalidate');
  header('Pragma: cache'); // This is to avoid having Pragma: no-cache
  header('Expires: '.gmdate('D, d M Y H:i:s', time() + (int) $cachedelay).' GMT');  // This is to avoid to have Expires set by proxy or web server
}
 
$refname = basename(dirname($original_file)."/");
 
// Get RSS news
if ($rss) {
  $format = 'rss';
  $type = '';
  $filename = $original_file;
  $dir_temp = (string) $conf->website->dir_temp;
 
  include_once DOL_DOCUMENT_ROOT.'/website/class/website.class.php';
  include_once DOL_DOCUMENT_ROOT.'/website/class/websitepage.class.php';
  $website = new Website($db);
  $websitepage = new WebsitePage($db);
 
  $website->fetch(0, $websitekey);
 
  $filters = array('type_container' => 'blogpost', 'status' => '1');
  if ($l) {
    $filters['lang'] = (string) $l;
  }
 
  $MAXNEWS = $limit;
  $arrayofblogs = $websitepage->fetchAll($website->id, 'DESC', 'date_creation', $MAXNEWS, 0, $filters);
  $eventarray = array();
  if (is_array($arrayofblogs)) {
    foreach ($arrayofblogs as $blog) {
      $blog->fullpageurl = $website->virtualhost.'/'.$blog->pageurl.'.php';
      $blog->image = preg_replace('/__WEBSITE_KEY__/', $websitekey, $blog->image);
 
      $eventarray[] = $blog;
    }
  }
 
  require_once DOL_DOCUMENT_ROOT."/core/lib/xcal.lib.php";
  require_once DOL_DOCUMENT_ROOT."/core/lib/date.lib.php";
  require_once DOL_DOCUMENT_ROOT."/core/lib/files.lib.php";
 
  dol_syslog("build_exportfile Build export file format=".$format.", type=".$type.", cachestring=".$cachestring.", filename=".$filename.", filters size=".count($filters), LOG_DEBUG);
 
  // Clean parameters
  if (!$filename) {
    $extension = 'rss';
    $filename = $format.'.'.$extension;
  }
 
  // Create dir and define output file (definitive and temporary)
  $result = dol_mkdir($dir_temp);
  $outputfile = $dir_temp.'/'.$filename;
 
  $result = 0;
 
  $buildfile = true;
 
  if ($cachedelay) {
    $nowgmt = dol_now();
    include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    if (dol_filemtime($outputfile) > ($nowgmt - $cachedelay)) {
      dol_syslog("build_exportfile file ".$outputfile." is not older than now - cachedelay (".$nowgmt." - ".$cachedelay."). Build is canceled");
      $buildfile = false;
    }
  }
 
  if ($buildfile) {
    $outputlangs = new Translate('', $conf);
    $outputlangs->setDefaultLang($l);
    $outputlangs->loadLangs(array("main", "other"));
    $title = $outputlangs->transnoentities('LatestBlogPosts').' - '.$website->virtualhost;
    $desc = $title.($l ? ' ('.$l.')' : '');
 
    // Create temp file
    $outputfiletmp = tempnam($dir_temp, 'tmp'); // Temporary file (allow call of function by different threads
    dolChmod($outputfiletmp);
 
    // Write file
    $result = build_rssfile($format, $title, $desc, $eventarray, $outputfiletmp, '', $website->virtualhost.'/wrapper.php?rss=1'.($l ? '&l='.$l : ''), $l);
 
    if ($result >= 0) {
      if (dol_move($outputfiletmp, $outputfile, '0', 1, 0, 0)) {
        $result = 1;
      } else {
        $error = 'Failed to rename '.$outputfiletmp.' into '.$outputfile;
        dol_syslog("build_exportfile ".$error, LOG_ERR);
        dol_delete_file($outputfiletmp, 0, 1);
 
        http_response_code(500);
        print $error;
        exit(3);
      }
    } else {
      dol_syslog("build_exportfile build_xxxfile function fails to for format=".$format." outputfiletmp=".$outputfile, LOG_ERR);
      dol_delete_file($outputfiletmp, 0, 1);
      $langs->load("errors");
 
      http_response_code(500);
      print $langs->trans("ErrorFailToCreateFile", $outputfile);
      exit(4);
    }
  }
 
  $attachment = false;
  if (GETPOSTISSET("attachment")) {
    $attachment = GETPOST("attachment");
  }
  //$attachment = false;
  $contenttype = 'application/rss+xml';
  if (GETPOSTISSET("contenttype")) {
    $contenttype = GETPOST("contenttype");
  }
  //$contenttype='text/plain';
  $outputencoding = 'UTF-8';
 
  if ($contenttype) {
    header('Content-Type: '.$contenttype.($outputencoding ? '; charset='.$outputencoding : ''));
  }
  if ($attachment) {
    header('Content-Disposition: attachment; filename="'.$filename.'"');
  }
 
  // Ajout directives pour resoudre bug IE
  //header('Cache-Control: Public, must-revalidate');
  //header('Pragma: public');
  if ($cachedelay) {
    header('Cache-Control: max-age='.$cachedelay.', private, must-revalidate');
  } else {
    header('Cache-Control: private, must-revalidate');
  }
 
  // Clean parameters
  $outputfile = $dir_temp.'/'.$filename;
  $result = readfile($outputfile);
  if (!$result) {
    print 'File '.$outputfile.' was empty.';
  }
 
  // header("Location: ".DOL_URL_ROOT.'/document.php?modulepart=agenda&file='.urlencode($filename));
  exit(5);
} elseif ($modulepart == "mycompany" && preg_match('/^\/?logos\//', $original_file)) {
  // Get logos
  readfile(dol_osencode($conf->mycompany->dir_output."/".$original_file));
} else {
  // Find the subdirectory name as the reference
  include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
  $check_access = dol_check_secure_access_document($modulepart, $original_file, $entity, null, $refname);
  $accessallowed              = empty($check_access['accessallowed']) ? '' : $check_access['accessallowed'];
  $sqlprotectagainstexternals = empty($check_access['sqlprotectagainstexternals']) ? '' : $check_access['sqlprotectagainstexternals'];
  $fullpath_original_file     = empty($check_access['original_file']) ? '' : $check_access['original_file']; // $fullpath_original_file is now a full path name
  if ($hashp) {
    $accessallowed = 1; // When using hashp, link is public so we force $accessallowed
    $sqlprotectagainstexternals = '';
  }
 
  // Security:
  // Limit access if permissions are wrong
  if (!$accessallowed) {
    http_response_code(403);
    print 'Access forbidden';
    exit(6);
  }
 
  // For backward compatibility of old thumbs that were created with filename in lower case and with .png extension
  if (image_format_supported($fullpath_original_file) && !dol_is_file($fullpath_original_file)) {
    $fullpath_original_file = getImageFileNameForSize($fullpath_original_file, '', '.png');
  }
 
  clearstatcache();
 
  $filename = basename($fullpath_original_file);
 
  // Output file on browser
  dol_syslog("wrapper.php download $fullpath_original_file filename=$filename content-type=$type");
  $fullpath_original_file_osencoded = dol_osencode($fullpath_original_file); // New file name encoded in OS encoding charset
 
  // This test if file exists should be useless. We keep it to find bug more easily
  if (!file_exists($fullpath_original_file_osencoded)) {
    http_response_code(404);
    print "ErrorFileDoesNotExists: ".dol_escape_htmltag($original_file);
    exit(7);
  }
 
  // Permissions are ok and file found, so we return it
  //top_httphead($type);
  header('Content-Type: '.$type);
  header('Content-Description: File Transfer');
  if ($encoding) {
    header('Content-Encoding: '.$encoding);
  }
  // Add MIME Content-Disposition from RFC 2183 (inline=automatically displayed, attachment=need user action to open)
  if ($attachment) {
    header('Content-Disposition: attachment; filename="'.$filename.'"');
  } else {
    header('Content-Disposition: inline; filename="'.$filename.'"');
  }
  header('Content-Length: '.dol_filesize($fullpath_original_file));
 
  readfile($fullpath_original_file_osencoded);
}
if (is_object($db)) {
  $db->close();
}
// END PHP