17fb7960fSChristopher Smith<?php 27fb7960fSChristopher Smith/** 37fb7960fSChristopher Smith * Functions used by lib/exe/fetch.php 47fb7960fSChristopher Smith * (not included by other parts of dokuwiki) 57fb7960fSChristopher Smith */ 67fb7960fSChristopher Smith 77fb7960fSChristopher Smith/** 87fb7960fSChristopher Smith * Set headers and send the file to the client 97fb7960fSChristopher Smith * 107fb7960fSChristopher Smith * The $cache parameter influences how long files may be kept in caches, the $public parameter 117fb7960fSChristopher Smith * influences if this caching may happen in public proxis or in the browser cache only FS#2734 127fb7960fSChristopher Smith * 137fb7960fSChristopher Smith * This function will abort the current script when a 304 is sent or file sending is handled 147fb7960fSChristopher Smith * through x-sendfile 157fb7960fSChristopher Smith * 167fb7960fSChristopher Smith * @author Andreas Gohr <andi@splitbrain.org> 177fb7960fSChristopher Smith * @author Ben Coburn <btcoburn@silicodon.net> 18499df7e5SGerry Weißbach * @author Gerry Weissbach <dokuwiki@gammaproduction.de> 1942ea7f44SGerrit Uitslag * 207fb7960fSChristopher Smith * @param string $file local file to send 217fb7960fSChristopher Smith * @param string $mime mime type of the file 227fb7960fSChristopher Smith * @param bool $dl set to true to force a browser download 237fb7960fSChristopher Smith * @param int $cache remaining cache time in seconds (-1 for $conf['cache'], 0 for no-cache) 247fb7960fSChristopher Smith * @param bool $public is this a public ressource or a private one? 252fd6745dSGerry Weißbach * @param string $orig original file to send - the file name will be used for the Content-Disposition 267fb7960fSChristopher Smith */ 272fd6745dSGerry Weißbachfunction sendFile($file, $mime, $dl, $cache, $public = false, $orig = null) { 287fb7960fSChristopher Smith global $conf; 297fb7960fSChristopher Smith // send mime headers 307fb7960fSChristopher Smith header("Content-Type: $mime"); 317fb7960fSChristopher Smith 327fb7960fSChristopher Smith // calculate cache times 337fb7960fSChristopher Smith if($cache == -1) { 347fb7960fSChristopher Smith $maxage = max($conf['cachetime'], 3600); // cachetime or one hour 357fb7960fSChristopher Smith $expires = time() + $maxage; 367fb7960fSChristopher Smith } else if($cache > 0) { 377fb7960fSChristopher Smith $maxage = $cache; // given time 387fb7960fSChristopher Smith $expires = time() + $maxage; 397fb7960fSChristopher Smith } else { // $cache == 0 407fb7960fSChristopher Smith $maxage = 0; 417fb7960fSChristopher Smith $expires = 0; // 1970-01-01 427fb7960fSChristopher Smith } 437fb7960fSChristopher Smith 447fb7960fSChristopher Smith // smart http caching headers 457fb7960fSChristopher Smith if($maxage) { 467fb7960fSChristopher Smith if($public) { 477fb7960fSChristopher Smith // cache publically 487fb7960fSChristopher Smith header('Expires: '.gmdate("D, d M Y H:i:s", $expires).' GMT'); 497fb7960fSChristopher Smith header('Cache-Control: public, proxy-revalidate, no-transform, max-age='.$maxage); 507fb7960fSChristopher Smith } else { 517fb7960fSChristopher Smith // cache in browser 527fb7960fSChristopher Smith header('Expires: '.gmdate("D, d M Y H:i:s", $expires).' GMT'); 537fb7960fSChristopher Smith header('Cache-Control: private, no-transform, max-age='.$maxage); 547fb7960fSChristopher Smith } 557fb7960fSChristopher Smith } else { 567fb7960fSChristopher Smith // no cache at all 577fb7960fSChristopher Smith header('Expires: Thu, 01 Jan 1970 00:00:00 GMT'); 587fb7960fSChristopher Smith header('Cache-Control: no-cache, no-transform'); 597fb7960fSChristopher Smith } 607fb7960fSChristopher Smith 617fb7960fSChristopher Smith //send important headers first, script stops here if '304 Not Modified' response 627fb7960fSChristopher Smith $fmtime = @filemtime($file); 637fb7960fSChristopher Smith http_conditionalRequest($fmtime); 647fb7960fSChristopher Smith 652fd6745dSGerry Weißbach // Use the current $file if is $orig is not set. 662fd6745dSGerry Weißbach if ( $orig == null ) { 672fd6745dSGerry Weißbach $orig = $file; 682fd6745dSGerry Weißbach } 692fd6745dSGerry Weißbach 707fb7960fSChristopher Smith //download or display? 717fb7960fSChristopher Smith if($dl) { 7204585e6cSGerry Weißbach header('Content-Disposition: attachment;'.rfc2231_encode('filename', utf8_basename($orig)).';'); 737fb7960fSChristopher Smith } else { 7404585e6cSGerry Weißbach header('Content-Disposition: inline;'.rfc2231_encode('filename', utf8_basename($orig)).';'); 757fb7960fSChristopher Smith } 767fb7960fSChristopher Smith 777fb7960fSChristopher Smith //use x-sendfile header to pass the delivery to compatible webservers 7840e0b444SDominik Eckelmann http_sendfile($file); 797fb7960fSChristopher Smith 807fb7960fSChristopher Smith // send file contents 817fb7960fSChristopher Smith $fp = @fopen($file, "rb"); 827fb7960fSChristopher Smith if($fp) { 837fb7960fSChristopher Smith http_rangeRequest($fp, filesize($file), $mime); 847fb7960fSChristopher Smith } else { 857fb7960fSChristopher Smith http_status(500); 867fb7960fSChristopher Smith print "Could not read $file - bad permissions?"; 877fb7960fSChristopher Smith } 887fb7960fSChristopher Smith} 897fb7960fSChristopher Smith 907fb7960fSChristopher Smith/** 9104585e6cSGerry Weißbach * Try an rfc2231 compatible encoding. This ensures correct 9204585e6cSGerry Weißbach * interpretation of filenames outside of the ASCII set. 9304585e6cSGerry Weißbach * This seems to be needed for file names with e.g. umlauts that 9404585e6cSGerry Weißbach * would otherwise decode wrongly in IE. 9504585e6cSGerry Weißbach * 9604585e6cSGerry Weißbach * There is no additional checking, just the encoding and setting the key=value for usage in headers 9704585e6cSGerry Weißbach * 9804585e6cSGerry Weißbach * @author Gerry Weissbach <gerry.w@gammaproduction.de> 9904585e6cSGerry Weißbach * @param string $name name of the field to be set in the header() call 10004585e6cSGerry Weißbach * @param string $value value of the field to be set in the header() call 10104585e6cSGerry Weißbach * @param string $charset used charset for the encoding of value 10204585e6cSGerry Weißbach * @param string $lang language used. 10304585e6cSGerry Weißbach * @return string in the format " name=value" for values WITHOUT special characters 10404585e6cSGerry Weißbach * @return string in the format " name*=charset'lang'value" for values WITH special characters 10504585e6cSGerry Weißbach */ 10604585e6cSGerry Weißbachfunction rfc2231_encode($name, $value, $charset='utf-8', $lang='en') { 107*64159a61SAndreas Gohr $internal = preg_replace_callback( 108*64159a61SAndreas Gohr '/[\x00-\x20*\'%()<>@,;:\\\\"\/[\]?=\x80-\xFF]/', 109*64159a61SAndreas Gohr function ($match) { 110*64159a61SAndreas Gohr return rawurlencode($match[0]); 111*64159a61SAndreas Gohr }, 112*64159a61SAndreas Gohr $value 113*64159a61SAndreas Gohr ); 11404585e6cSGerry Weißbach if ( $value != $internal ) { 11504585e6cSGerry Weißbach return ' '.$name.'*='.$charset."'".$lang."'".$internal; 11604585e6cSGerry Weißbach } else { 11704585e6cSGerry Weißbach return ' '.$name.'="'.$value.'"'; 11804585e6cSGerry Weißbach } 11904585e6cSGerry Weißbach} 12004585e6cSGerry Weißbach 12104585e6cSGerry Weißbach/** 1227fb7960fSChristopher Smith * Check for media for preconditions and return correct status code 1237fb7960fSChristopher Smith * 1247fb7960fSChristopher Smith * READ: MEDIA, MIME, EXT, CACHE 1257fb7960fSChristopher Smith * WRITE: MEDIA, FILE, array( STATUS, STATUSMESSAGE ) 1267fb7960fSChristopher Smith * 1277fb7960fSChristopher Smith * @author Gerry Weissbach <gerry.w@gammaproduction.de> 12842ea7f44SGerrit Uitslag * 129f481fb8cSKlap-in * @param string $media reference to the media id 130f481fb8cSKlap-in * @param string $file reference to the file variable 131f481fb8cSKlap-in * @param string $rev 132f481fb8cSKlap-in * @param int $width 133f481fb8cSKlap-in * @param int $height 13442ea7f44SGerrit Uitslag * @return array as array(STATUS, STATUSMESSAGE) 1357fb7960fSChristopher Smith */ 1367fb7960fSChristopher Smithfunction checkFileStatus(&$media, &$file, $rev = '', $width=0, $height=0) { 1377fb7960fSChristopher Smith global $MIME, $EXT, $CACHE, $INPUT; 1387fb7960fSChristopher Smith 1397fb7960fSChristopher Smith //media to local file 1403e7e6067SKlap-in if(media_isexternal($media)) { 141cc036f74SKlap-in //check token for external image and additional for resized and cached images 142cc036f74SKlap-in if(media_get_token($media, $width, $height) !== $INPUT->str('tok')) { 1437fb7960fSChristopher Smith return array(412, 'Precondition Failed'); 1447fb7960fSChristopher Smith } 1457fb7960fSChristopher Smith //handle external images 1467fb7960fSChristopher Smith if(strncmp($MIME, 'image/', 6) == 0) $file = media_get_from_URL($media, $EXT, $CACHE); 1477fb7960fSChristopher Smith if(!$file) { 1487fb7960fSChristopher Smith //download failed - redirect to original URL 1497fb7960fSChristopher Smith return array(302, $media); 1507fb7960fSChristopher Smith } 1517fb7960fSChristopher Smith } else { 1527fb7960fSChristopher Smith $media = cleanID($media); 1537fb7960fSChristopher Smith if(empty($media)) { 1547fb7960fSChristopher Smith return array(400, 'Bad request'); 1557fb7960fSChristopher Smith } 1567fb7960fSChristopher Smith // check token for resized images 1577fb7960fSChristopher Smith if (($width || $height) && media_get_token($media, $width, $height) !== $INPUT->str('tok')) { 1587fb7960fSChristopher Smith return array(412, 'Precondition Failed'); 1597fb7960fSChristopher Smith } 1607fb7960fSChristopher Smith 1617fb7960fSChristopher Smith //check permissions (namespace only) 1627fb7960fSChristopher Smith if(auth_quickaclcheck(getNS($media).':X') < AUTH_READ) { 1637fb7960fSChristopher Smith return array(403, 'Forbidden'); 1647fb7960fSChristopher Smith } 1657fb7960fSChristopher Smith $file = mediaFN($media, $rev); 1667fb7960fSChristopher Smith } 1677fb7960fSChristopher Smith 1687fb7960fSChristopher Smith //check file existance 16979e79377SAndreas Gohr if(!file_exists($file)) { 1707fb7960fSChristopher Smith return array(404, 'Not Found'); 1717fb7960fSChristopher Smith } 1727fb7960fSChristopher Smith 1737fb7960fSChristopher Smith return array(200, null); 1747fb7960fSChristopher Smith} 1757fb7960fSChristopher Smith 1767fb7960fSChristopher Smith/** 1777fb7960fSChristopher Smith * Returns the wanted cachetime in seconds 1787fb7960fSChristopher Smith * 1797fb7960fSChristopher Smith * Resolves named constants 1807fb7960fSChristopher Smith * 1817fb7960fSChristopher Smith * @author Andreas Gohr <andi@splitbrain.org> 18242ea7f44SGerrit Uitslag * 18342ea7f44SGerrit Uitslag * @param string $cache 18442ea7f44SGerrit Uitslag * @return int cachetime in seconds 1857fb7960fSChristopher Smith */ 1867fb7960fSChristopher Smithfunction calc_cache($cache) { 1877fb7960fSChristopher Smith global $conf; 1887fb7960fSChristopher Smith 1897fb7960fSChristopher Smith if(strtolower($cache) == 'nocache') return 0; //never cache 1907fb7960fSChristopher Smith if(strtolower($cache) == 'recache') return $conf['cachetime']; //use standard cache 1917fb7960fSChristopher Smith return -1; //cache endless 1927fb7960fSChristopher Smith} 193