lib/filelib.php

   1 <?php //$Id: filelib.php,v 1.15 2005/09/19 17:13:06 skodak Exp $
   2
   3 function get_mimetype_array() {
   4
   5     $mimeinfo = array (
   6         'xxx'  => array ('type'=>'document/unknown', 'icon'=>'unknown.gif'),
   7         '3gp'  => array ('type'=>'video/quicktime', 'icon'=>'video.gif'),
   8         'ai'   => array ('type'=>'application/postscript', 'icon'=>'image.gif'),
   9         'aif'  => array ('type'=>'audio/x-aiff', 'icon'=>'audio.gif'),
  10         'aiff' => array ('type'=>'audio/x-aiff', 'icon'=>'audio.gif'),
  11         'aifc' => array ('type'=>'audio/x-aiff', 'icon'=>'audio.gif'),
  12         'applescript'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  13         'asc'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  14         'asm'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  15         'au'   => array ('type'=>'audio/au', 'icon'=>'audio.gif'),
  16         'avi'  => array ('type'=>'video/x-ms-wm', 'icon'=>'avi.gif'),
  17         'bmp'  => array ('type'=>'image/bmp', 'icon'=>'image.gif'),
  18         'c'    => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  19         'cct'  => array ('type'=>'shockwave/director', 'icon'=>'flash.gif'),
  20         'cpp'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  21         'cs'   => array ('type'=>'application/x-csh', 'icon'=>'text.gif'),
  22         'css'  => array ('type'=>'text/css', 'icon'=>'text.gif'),
  23         'dv'   => array ('type'=>'video/x-dv', 'icon'=>'video.gif'),
  24         'dmg'  => array ('type'=>'application/octet-stream', 'icon'=>'dmg.gif'),
  25         'doc'  => array ('type'=>'application/msword', 'icon'=>'word.gif'),
  26         'dcr'  => array ('type'=>'application/x-director', 'icon'=>'flash.gif'),
  27         'dif'  => array ('type'=>'video/x-dv', 'icon'=>'video.gif'),
  28         'dir'  => array ('type'=>'application/x-director', 'icon'=>'flash.gif'),
  29         'dxr'  => array ('type'=>'application/x-director', 'icon'=>'flash.gif'),
  30         'eps'  => array ('type'=>'application/postscript', 'icon'=>'pdf.gif'),
  31         'gif'  => array ('type'=>'image/gif', 'icon'=>'image.gif'),
  32         'gtar' => array ('type'=>'application/x-gtar', 'icon'=>'zip.gif'),
  33         'tgz'  => array ('type'=>'application/g-zip', 'icon'=>'zip.gif'),
  34         'gz'   => array ('type'=>'application/g-zip', 'icon'=>'zip.gif'),
  35         'gzip' => array ('type'=>'application/g-zip', 'icon'=>'zip.gif'),
  36         'h'    => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  37         'hpp'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  38         'hqx'  => array ('type'=>'application/mac-binhex40', 'icon'=>'zip.gif'),
  39         'html' => array ('type'=>'text/html', 'icon'=>'html.gif'),
  40         'htm'  => array ('type'=>'text/html', 'icon'=>'html.gif'),
  41         'java' => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  42         'jcb'  => array ('type'=>'text/xml', 'icon'=>'jcb.gif'),
  43         'jcl'  => array ('type'=>'text/xml', 'icon'=>'jcl.gif'),
  44         'jcw'  => array ('type'=>'text/xml', 'icon'=>'jcw.gif'),
  45         'jmt'  => array ('type'=>'text/xml', 'icon'=>'jmt.gif'),
  46         'jmx'  => array ('type'=>'text/xml', 'icon'=>'jmx.gif'),
  47         'jpe'  => array ('type'=>'image/jpeg', 'icon'=>'image.gif'),
  48         'jpeg' => array ('type'=>'image/jpeg', 'icon'=>'image.gif'),
  49         'jpg'  => array ('type'=>'image/jpeg', 'icon'=>'image.gif'),
  50         'jqz'  => array ('type'=>'text/xml', 'icon'=>'jqz.gif'),
  51         'js'   => array ('type'=>'application/x-javascript', 'icon'=>'text.gif'),
  52         'latex'=> array ('type'=>'application/x-latex', 'icon'=>'text.gif'),
  53         'm'    => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  54         'mov'  => array ('type'=>'video/quicktime', 'icon'=>'video.gif'),
  55         'movie'=> array ('type'=>'video/x-sgi-movie', 'icon'=>'video.gif'),
  56         'm3u'  => array ('type'=>'audio/x-mpegurl', 'icon'=>'audio.gif'),
  57         'mp3'  => array ('type'=>'audio/mp3', 'icon'=>'audio.gif'),
  58         'mp4'  => array ('type'=>'video/mp4', 'icon'=>'video.gif'),
  59         'mpeg' => array ('type'=>'video/mpeg', 'icon'=>'video.gif'),
  60         'mpe'  => array ('type'=>'video/mpeg', 'icon'=>'video.gif'),
  61         'mpg'  => array ('type'=>'video/mpeg', 'icon'=>'video.gif'),
  62
  63         'odt'  => array ('type'=>'application/vnd.oasis.opendocument.text', 'icon'=>'odt.gif'),
  64         'ott'  => array ('type'=>'application/vnd.oasis.opendocument.text-template', 'icon'=>'odt.gif'),
  65         'oth'  => array ('type'=>'application/vnd.oasis.opendocument.text-web', 'icon'=>'odt.gif'),
  66         'odm'  => array ('type'=>'application/vnd.oasis.opendocument.text-master', 'icon'=>'odt.gif'),
  67         'odg'  => array ('type'=>'application/vnd.oasis.opendocument.graphics', 'icon'=>'odt.gif'),
  68         'otg'  => array ('type'=>'application/vnd.oasis.opendocument.graphics-template', 'icon'=>'odt.gif'),
  69         'odp'  => array ('type'=>'application/vnd.oasis.opendocument.presentation', 'icon'=>'odt.gif'),
  70         'otp'  => array ('type'=>'application/vnd.oasis.opendocument.presentation-template', 'icon'=>'odt.gif'),
  71         'ods'  => array ('type'=>'application/vnd.oasis.opendocument.spreadsheet', 'icon'=>'odt.gif'),
  72         'ots'  => array ('type'=>'application/vnd.oasis.opendocument.spreadsheet-template', 'icon'=>'odt.gif'),
  73         'odc'  => array ('type'=>'application/vnd.oasis.opendocument.chart', 'icon'=>'odt.gif'),
  74         'odf'  => array ('type'=>'application/vnd.oasis.opendocument.formula', 'icon'=>'odt.gif'),
  75         'odb'  => array ('type'=>'application/vnd.oasis.opendocument.database', 'icon'=>'odt.gif'),
  76         'odi'  => array ('type'=>'application/vnd.oasis.opendocument.image', 'icon'=>'odt.gif'),
  77
  78         'pct'  => array ('type'=>'image/pict', 'icon'=>'image.gif'),
  79         'pdf'  => array ('type'=>'application/pdf', 'icon'=>'pdf.gif'),
  80         'php'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
  81         'pic'  => array ('type'=>'image/pict', 'icon'=>'image.gif'),
  82         'pict' => array ('type'=>'image/pict', 'icon'=>'image.gif'),
  83         'png'  => array ('type'=>'image/png', 'icon'=>'image.gif'),
  84         'pps'  => array ('type'=>'application/vnd.ms-powerpoint', 'icon'=>'powerpoint.gif'),
  85         'ppt'  => array ('type'=>'application/vnd.ms-powerpoint', 'icon'=>'powerpoint.gif'),
  86         'ps'   => array ('type'=>'application/postscript', 'icon'=>'pdf.gif'),
  87         'qt'   => array ('type'=>'video/quicktime', 'icon'=>'video.gif'),
  88         'ra'   => array ('type'=>'audio/x-realaudio', 'icon'=>'audio.gif'),
  89         'ram'  => array ('type'=>'audio/x-pn-realaudio', 'icon'=>'audio.gif'),
  90         'rhb'  => array ('type'=>'text/xml', 'icon'=>'xml.gif'),
  91         'rm'   => array ('type'=>'audio/x-pn-realaudio', 'icon'=>'audio.gif'),
  92         'rtf'  => array ('type'=>'text/rtf', 'icon'=>'text.gif'),
  93         'rtx'  => array ('type'=>'text/richtext', 'icon'=>'text.gif'),
  94         'sh'   => array ('type'=>'application/x-sh', 'icon'=>'text.gif'),
  95         'sit'  => array ('type'=>'application/x-stuffit', 'icon'=>'zip.gif'),
  96         'smi'  => array ('type'=>'application/smil', 'icon'=>'text.gif'),
  97         'smil' => array ('type'=>'application/smil', 'icon'=>'text.gif'),
  98         'sqt'  => array ('type'=>'text/xml', 'icon'=>'xml.gif'),
  99         'svg'  => array ('type'=>'image/svg+xml', 'icon'=>'image.gif'),
 100         'svgz' => array ('type'=>'image/svg+xml', 'icon'=>'image.gif'),
 101         'swa'  => array ('type'=>'application/x-director', 'icon'=>'flash.gif'),
 102         'swf'  => array ('type'=>'application/x-shockwave-flash', 'icon'=>'flash.gif'),
 103         'swfl' => array ('type'=>'application/x-shockwave-flash', 'icon'=>'flash.gif'),
 104
 105         'sxw'  => array ('type'=>'application/vnd.sun.xml.writer', 'icon'=>'odt.gif'),
 106         'stw'  => array ('type'=>'application/vnd.sun.xml.writer.template', 'icon'=>'odt.gif'),
 107         'sxc'  => array ('type'=>'application/vnd.sun.xml.calc', 'icon'=>'odt.gif'),
 108         'stc'  => array ('type'=>'application/vnd.sun.xml.calc.template', 'icon'=>'odt.gif'),
 109         'sxd'  => array ('type'=>'application/vnd.sun.xml.draw', 'icon'=>'odt.gif'),
 110         'std'  => array ('type'=>'application/vnd.sun.xml.draw.template', 'icon'=>'odt.gif'),
 111         'sxi'  => array ('type'=>'application/vnd.sun.xml.impress', 'icon'=>'odt.gif'),
 112         'sti'  => array ('type'=>'application/vnd.sun.xml.impress.template', 'icon'=>'odt.gif'),
 113         'sxg'  => array ('type'=>'application/vnd.sun.xml.writer.global', 'icon'=>'odt.gif'),
 114         'sxm'  => array ('type'=>'application/vnd.sun.xml.math', 'icon'=>'odt.gif'),
 115
 116         'tar'  => array ('type'=>'application/x-tar', 'icon'=>'zip.gif'),
 117         'tif'  => array ('type'=>'image/tiff', 'icon'=>'image.gif'),
 118         'tiff' => array ('type'=>'image/tiff', 'icon'=>'image.gif'),
 119         'tex'  => array ('type'=>'application/x-tex', 'icon'=>'text.gif'),
 120         'texi' => array ('type'=>'application/x-texinfo', 'icon'=>'text.gif'),
 121         'texinfo' => array ('type'=>'application/x-texinfo', 'icon'=>'text.gif'),
 122         'tsv'  => array ('type'=>'text/tab-separated-values', 'icon'=>'text.gif'),
 123         'txt'  => array ('type'=>'text/plain', 'icon'=>'text.gif'),
 124         'wav'  => array ('type'=>'audio/wav', 'icon'=>'audio.gif'),
 125         'wmv'  => array ('type'=>'video/x-ms-wmv', 'icon'=>'avi.gif'),
 126         'asf'  => array ('type'=>'video/x-ms-asf', 'icon'=>'avi.gif'),
 127         'xls'  => array ('type'=>'application/vnd.ms-excel', 'icon'=>'excel.gif'),
 128         'xml'  => array ('type'=>'application/xml', 'icon'=>'xml.gif'),
 129         'xsl'  => array ('type'=>'text/xml', 'icon'=>'xml.gif'),
 130         'zip'  => array ('type'=>'application/zip', 'icon'=>'zip.gif'),
 131
 132         'asx'  => array ('type'=>'video/x-ms-asf', 'icon'=>'unknown.gif'),
 133         'bcpio' => array ('type'=>'application/x-bcpio', 'icon'=>'unknown.gif'),
 134         'cdf'  => array ('type'=>'application/x-netcdf', 'icon'=>'unknown.gif'),
 135         'cpio' => array ('type'=>'application/x-cpio', 'icon'=>'unknown.gif'),
 136         'cpt'  => array ('type'=>'application/mac-compactpro', 'icon'=>'unknown.gif'),
 137         'csh'  => array ('type'=>'application/x-csh', 'icon'=>'unknown.gif'),
 138         'dtd'  => array ('type'=>'text/xml', 'icon'=>'unknown.gif'),
 139         'dvi'  => array ('type'=>'application/x-dvi', 'icon'=>'unknown.gif'),
 140         'etx'  => array ('type'=>'text/x-setext', 'icon'=>'unknown.gif'),
 141         'evy'  => array ('type'=>'application/x-envoy', 'icon'=>'unknown.gif'),
 142         'fif'  => array ('type'=>'application/fractals', 'icon'=>'unknown.gif'),
 143         'hdf'  => array ('type'=>'application/x-hdf', 'icon'=>'unknown.gif'),
 144         'hpx'  => array ('type'=>'application/mac-binhex40', 'icon'=>'unknown.gif'),
 145         'ice'  => array ('type'=>'x-conference/x-cooltalk', 'icon'=>'unknown.gif'),
 146         'ief'  => array ('type'=>'image/ief', 'icon'=>'unknown.gif'),
 147         'iges' => array ('type'=>'model/iges', 'icon'=>'unknown.gif'),
 148         'igs'  => array ('type'=>'model/iges', 'icon'=>'unknown.gif'),
 149         'isv'  => array ('type'=>'bws-internal/intrasrv-urlencoded', 'icon'=>'unknown.gif'),
 150         'jfm'  => array ('type'=>'bws-internal/intrasrv-form', 'icon'=>'unknown.gif'),
 151         'jrp'  => array ('type'=>'bws-internal/intrasrv-report', 'icon'=>'unknown.gif'),
 152         'kar'  => array ('type'=>'audio/midi', 'icon'=>'unknown.gif'),
 153         'ls'   => array ('type'=>'application/x-javascript', 'icon'=>'unknown.gif'),
 154         'man'  => array ('type'=>'application/x-troff-man', 'icon'=>'unknown.gif'),
 155         'me'   => array ('type'=>'application/x-troff-me', 'icon'=>'unknown.gif'),
 156         'mesh' => array ('type'=>'model/mesh', 'icon'=>'unknown.gif'),
 157         'mid'  => array ('type'=>'audio/midi', 'icon'=>'unknown.gif'),
 158         'midi' => array ('type'=>'audio/midi', 'icon'=>'unknown.gif'),
 159         'mif'  => array ('type'=>'application/x-mif', 'icon'=>'unknown.gif'),
 160         'mocha' => array ('type'=>'application/x-javascript', 'icon'=>'unknown.gif'),
 161         'mp2'  => array ('type'=>'audio/mpeg', 'icon'=>'unknown.gif'),
 162         'mpga' => array ('type'=>'audio/mpeg', 'icon'=>'unknown.gif'),
 163         'ms'   => array ('type'=>'application/x-troff-ms', 'icon'=>'unknown.gif'),
 164         'msh'  => array ('type'=>'model/mesh', 'icon'=>'unknown.gif'),
 165         'nc'   => array ('type'=>'application/x-netcdf', 'icon'=>'unknown.gif'),
 166         'oda'  => array ('type'=>'application/oda', 'icon'=>'unknown.gif'),
 167         'ogg'  => array ('type'=>'application/ogg', 'icon'=>'unknown.gif'),
 168         'pac'  => array ('type'=>'application/x-ns-proxy-autoconfig', 'icon'=>'unknown.gif'),
 169         'pbm'  => array ('type'=>'image/x-portable-bitmap', 'icon'=>'unknown.gif'),
 170         'pdb'  => array ('type'=>'chemical/x-pdb', 'icon'=>'unknown.gif'),
 171         'pgm'  => array ('type'=>'image/x-portable-graymap', 'icon'=>'unknown.gif'),
 172         'php3' => array ('type'=>'application/x-httpd-php3', 'icon'=>'unknown.gif'),
 173         'msql2' => array ('type'=>'application/x-httpd-php-msql2', 'icon'=>'unknown.gif'),
 174         'phtml' => array ('type'=>'application/x-httpd-php', 'icon'=>'unknown.gif'),
 175         'pnm'  => array ('type'=>'image/x-portable-anymap', 'icon'=>'unknown.gif'),
 176         'ppm'  => array ('type'=>'image/x-portable-pixmap', 'icon'=>'unknown.gif'),
 177         'ras'  => array ('type'=>'image/x-cmu-raster', 'icon'=>'unknown.gif'),
 178         'rgb'  => array ('type'=>'image/x-rgb', 'icon'=>'unknown.gif'),
 179         'roff' => array ('type'=>'application/x-troff', 'icon'=>'unknown.gif'),
 180         'rpm'  => array ('type'=>'audio/x-pn-realaudio-plugin', 'icon'=>'unknown.gif'),
 181         'sgm'  => array ('type'=>'text/x-sgml', 'icon'=>'unknown.gif'),
 182         'sgml' => array ('type'=>'text/x-sgml', 'icon'=>'unknown.gif'),
 183         'shar' => array ('type'=>'application/x-shar', 'icon'=>'unknown.gif'),
 184         'silo' => array ('type'=>'model/mesh', 'icon'=>'unknown.gif'),
 185         'skd'  => array ('type'=>'application/x-koan', 'icon'=>'unknown.gif'),
 186         'skm'  => array ('type'=>'application/x-koan', 'icon'=>'unknown.gif'),
 187         'skp'  => array ('type'=>'application/x-koan', 'icon'=>'unknown.gif'),
 188         'skt'  => array ('type'=>'application/x-koan', 'icon'=>'unknown.gif'),
 189         'snd'  => array ('type'=>'audio/basic', 'icon'=>'unknown.gif'),
 190         'src'  => array ('type'=>'application/x-wais-source', 'icon'=>'unknown.gif'),
 191         'sv4cpio' => array ('type'=>'application/x-sv4cpio', 'icon'=>'unknown.gif'),
 192         'sv4crc'=> array ('type'=>'application/x-sv4crc', 'icon'=>'unknown.gif'),
 193         't'    => array ('type'=>'application/x-troff', 'icon'=>'unknown.gif'),
 194         'tcl'  => array ('type'=>'application/x-tcl', 'icon'=>'unknown.gif'),
 195         'text' => array ('type'=>'text/plain', 'icon'=>'unknown.gif'),
 196         'tr'   => array ('type'=>'application/x-troff', 'icon'=>'unknown.gif'),
 197         'tsp'  => array ('type'=>'application/dsptype', 'icon'=>'unknown.gif'),
 198         'ustar' => array ('type'=>'application/x-ustar', 'icon'=>'unknown.gif'),
 199         'vcd'  => array ('type'=>'application/x-cdlink', 'icon'=>'unknown.gif'),
 200         'vox'  => array ('type'=>'audio/voxware', 'icon'=>'unknown.gif'),
 201         'vrml' => array ('type'=>'model/vrml', 'icon'=>'unknown.gif'),
 202         'wax'  => array ('type'=>'audio/x-ms-wax', 'icon'=>'unknown.gif'),
 203         'wm'   => array ('type'=>'video/x-ms-wm', 'icon'=>'unknown.gif'),
 204         'wma'  => array ('type'=>'audio/x-ms-wma', 'icon'=>'unknown.gif'),
 205         'wmd'  => array ('type'=>'application/x-ms-wmd', 'icon'=>'unknown.gif'),
 206         'wmx'  => array ('type'=>'video/x-ms-wmx', 'icon'=>'unknown.gif'),
 207         'wmz'  => array ('type'=>'application/x-ms-wmz', 'icon'=>'unknown.gif'),
 208         'wrl'  => array ('type'=>'model/vrml', 'icon'=>'unknown.gif'),
 209         'wvx'  => array ('type'=>'video/x-ms-wvx', 'icon'=>'unknown.gif'),
 210         'xbm'  => array ('type'=>'image/x-xbitmap', 'icon'=>'unknown.gif'),
 211         'xpm'  => array ('type'=>'image/x-xpixmap', 'icon'=>'unknown.gif'),
 212         'xwd'  => array ('type'=>'image/x-xwindowdump', 'icon'=>'unknown.gif'),
 213         'xyz'  => array ('type'=>'chemical/x-pdb', 'icon'=>'unknown.gif'),
 214         'z'    => array ('type'=>'application/x-compress', 'icon'=>'unknown.gif'),
 215     );
 216
 217     return $mimeinfo;
 218 }
 219
 220 function mimeinfo($element, $filename) {
 221
 222     $mimeinfo = get_mimetype_array();
 223     if (eregi('\.([a-z0-9]+)$', $filename, $match)) {
 224         if (isset($mimeinfo[strtolower($match[1])][$element])) {
 225             return $mimeinfo[strtolower($match[1])][$element];
 226         } else {
 227             return $mimeinfo['xxx'][$element];   // By default
 228         }
 229     } else {
 230         return $mimeinfo['xxx'][$element];   // By default
 231     }
 232 }
 233
 234 function mimetype_to_extension($mimetype) {
 235
 236     static $mimetypes = 0;
 237     if (!is_array($mimetypes)) {
 238         $mimeinfo = get_mimetype_array();
 239         $mimetypes = array();
 240         foreach ($mimeinfo as $key => $val) {
 241             $val2 = $val['type'];
 242             $mimetypes[$val2] = $key;
 243         }
 244     }
 245     if (isset($mimetypes[$mimetype])) {
 246         return $mimetypes[$mimetype];
 247     } else {
 248         return "xxx";
 249     }
 250 }
 251
 252 function send_file($path, $filename, $lifetime=86400 , $filter=false, $pathisstring=false,$forcedownload=false) {
 253     global $CFG;
 254
 255     $mimetype     = $forcedownload ? 'application/x-forcedownload' : mimeinfo('type', $filename);
 256     $lastmodified = $pathisstring ? time() : filemtime($path);
 257     $filesize     = $pathisstring ? strlen($path) : filesize($path);
 258
 259     //IE compatibiltiy HACK!
 260     if(ini_get('zlib.output_compression')) {
 261         ini_set('zlib.output_compression', 'Off');
 262     }
 263
 264     @header('Last-Modified: '. gmdate('D, d M Y H:i:s', $lastmodified) .' GMT');
 265     if ($lifetime > 0) {
 266         @header('Cache-control: max-age='.$lifetime);
 267         @header('Expires: '. gmdate('D, d M Y H:i:s', time() + $lifetime) .'GMT');
 268         @header('Pragma: ');
 269     } else {
 270         if (strpos($CFG->wwwroot, 'https://') === 0) { //https sites - watch out for IE! KB812935 and KB316431
 271             @header('Cache-Control: max-age=10');
 272             @header('Expires: '. gmdate('D, d M Y H:i:s', 0) .'GMT');
 273             @header('Pragma: ');
 274         } else { //normal http - prevent caching at all cost
 275             @header('Cache-Control: private, must-revalidate, pre-check=0, post-check=0, max-age=0');
 276             @header('Expires: '. gmdate('D, d M Y H:i:s', 0) .'GMT');
 277             @header('Pragma: no-cache');
 278         }
 279     }
 280     @header('Accept-Ranges: none'); // Comment out if PDFs do not work...
 281
 282     if ($forcedownload) {
 283         @header('Content-disposition: attachment; filename='.$filename);
 284     } else {
 285         @header('Content-disposition: inline; filename='.$filename);
 286     }
 287
 288     if (!$filter) {
 289         @header('Content-length: '.$filesize);
 290         if ($mimetype == 'text/plain') {
 291             @header('Content-type: text/plain; charset=utf-8'); //add encoding
 292         } else {
 293             @header('Content-type: '.$mimetype);
 294         }
 295         if ($pathisstring) {
 296             echo $path;
 297         }else {
 298             readfile_chunked($path);
 299         }
 300     } else {     // Try to put the file through filters
 301         global $course;  // HACK!
 302         if (!empty($course->id)) {
 303             $courseid = $course->id;
 304         } else {
 305             $courseid = SITEID;
 306         }
 307         if ($mimetype == 'text/html') {
 308             $options->noclean = true;
 309             $text = $pathisstring ? $path : implode('', file($path));
 310             $output = format_text($text, FORMAT_HTML, $options, $courseid);
 311
 312             @header('Content-length: '.strlen($output));
 313             @header('Content-type: text/html');
 314             echo $output;
 315         } else if ($mimetype == 'text/plain') {
 316             $options->newlines = false;
 317             $options->noclean = true;
 318             $text = htmlspecialchars($pathisstring ? $path : implode('', file($path)));
 319             $output = '<pre>'. format_text($text, FORMAT_MOODLE, $options, $courseid) .'</pre>';
 320
 321             @header('Content-length: '.strlen($output));
 322             @header('Content-type: text/html; charset=utf-8'); //add encoding
 323             echo $output;
 324         } else {    // Just send it out raw
 325             @header('Content-length: '.$filesize);
 326             @header('Content-type: '.$mimetype);
 327             if ($pathisstring) {
 328                 echo $path;
 329             }else {
 330                 readfile_chunked($path);
 331             }
 332         }
 333     }
 334     die; //no more chars to output!!!
 335 }
 336
 337 function get_records_csv($file, $table) {
 338     global $CFG, $db;
 339
 340     if (!$metacolumns = $db->MetaColumns($CFG->prefix . $table)) {
 341         return false;
 342     }
 343
 344     if(!($handle = @fopen($file, 'r'))) {
 345         error('get_records_csv failed to open '.$file);
 346     }
 347
 348     $fieldnames = fgetcsv($handle, 4096);
 349     if(empty($fieldnames)) {
 350         fclose($handle);
 351         return false;
 352     }
 353
 354     $columns = array();
 355
 356     foreach($metacolumns as $metacolumn) {
 357         $ord = array_search($metacolumn->name, $fieldnames);
 358         if(is_int($ord)) {
 359             $columns[$metacolumn->name] = $ord;
 360         }
 361     }
 362
 363     $rows = array();
 364
 365     while (($data = fgetcsv($handle, 4096)) !== false) {
 366         $item = new stdClass;
 367         foreach($columns as $name => $ord) {
 368             $item->$name = $data[$ord];
 369         }
 370         $rows[] = $item;
 371     }
 372
 373     fclose($handle);
 374     return $rows;
 375 }
 376
 377 function put_records_csv($file, $records, $table = NULL) {
 378     global $CFG, $db;
 379
 380     if (empty($records)) {
 381         return true;
 382     }
 383
 384     $metacolumns = NULL;
 385     if ($table !== NULL && !$metacolumns = $db->MetaColumns($CFG->prefix . $table)) {
 386         return false;
 387     }
 388
 389     echo "x";
 390
 391     if(!($fp = @fopen($CFG->dataroot . 'temp/'.$file, 'w'))) {
 392         error('put_records_csv failed to open '.$file);
 393     }
 394
 395     $proto = reset($records);
 396     if(is_object($proto)) {
 397         $fields_records = array_keys(get_object_vars($proto));
 398     }
 399     else if(is_array($proto)) {
 400         $fields_records = array_keys($proto);
 401     }
 402     else {
 403         return false;
 404     }
 405     echo "x";
 406
 407     if(!empty($metacolumns)) {
 408         $fields_table = array_map(create_function('$a', 'return $a->name;'), $metacolumns);
 409         $fields = array_intersect($fields_records, $fields_table);
 410     }
 411     else {
 412         $fields = $fields_records;
 413     }
 414
 415     fwrite($fp, implode(',', $fields));
 416     fwrite($fp, "\r\n");
 417
 418     foreach($records as $record) {
 419         $array  = (array)$record;
 420         $values = array();
 421         foreach($fields as $field) {
 422             if(strpos($array[$field], ',')) {
 423                 $values[] = '"'.str_replace('"', '\"', $array[$field]).'"';
 424             }
 425             else {
 426                 $values[] = $array[$field];
 427             }
 428         }
 429         fwrite($fp, implode(',', $values)."\r\n");
 430     }
 431
 432     fclose($fp);
 433     return true;
 434 }
 435
 436
 437 if (!function_exists('file_get_contents')) {
 438    function file_get_contents($file) {
 439        $file = file($file);
 440        return !$file ? false : implode('', $file);
 441    }
 442 }
 443
 444
 445 function fulldelete($location) {
 446     if (is_dir($location)) {
 447         $currdir = opendir($location);
 448         while (false !== ($file = readdir($currdir))) {
 449             if ($file <> ".." && $file <> ".") {
 450                 $fullfile = $location."/".$file;
 451                 if (is_dir($fullfile)) {
 452                     if (!fulldelete($fullfile)) {
 453                         return false;
 454                     }
 455                 } else {
 456                     if (!unlink($fullfile)) {
 457                         return false;
 458                     }
 459                 }
 460             }
 461         }
 462         closedir($currdir);
 463         if (! rmdir($location)) {
 464             return false;
 465         }
 466
 467     } else {
 468         if (!unlink($location)) {
 469             return false;
 470         }
 471     }
 472     return true;
 473 }
 474
 475 function readfile_chunked($filename,$retbytes=true) {
 476     $chunksize = 1*(1024*1024); // 1MB chunks
 477     $buffer = '';
 478     $cnt =0;// $handle = fopen($filename, 'rb');
 479     $handle = fopen($filename, 'rb');
 480     if ($handle === false) {
 481         return false;
 482     }
 483
 484     while (!feof($handle)) {
 485         $buffer = fread($handle, $chunksize);
 486         echo $buffer;
 487         if ($retbytes) {
 488             $cnt += strlen($buffer);}
 489     }
 490     $status = fclose($handle);
 491     if ($retbytes && $status) {
 492         return $cnt; // return num. bytes delivered like readfile() does.
 493     }
 494     return $status;
 495 }
 496
 497
 498 // outputs a file or 304 response to the browser, and exits
 499 // NB: does not make any security checks, and is meant only as the final output stage
 500 function spitfile_with_mtime_check ($filepath, $mimetype, $handler = "elgg") {
 501
 502     global $CFG;
 503
 504     // $filepath = file_cache($filepath);
 505
 506     //$cachedfile = file_cache($filepath);
 507
 508     if (is_file($filepath) || $handler != "elgg") {
 509         if (is_file($filepath)) {
 510             $tstamp = filemtime($filepath);
 511             $filesize = filesize($filepath);
 512             $lm = gmdate("D, d M Y H:i:s", $tstamp) . " GMT";
 513             $etag = md5($filepath . "_" . $tstamp . "_" . $mimetype . "_" . $filesize);
 514             header('ETag: "' . $etag . '"');
 515
 516             $timenow = time();
 517
 518             // Send last-modified header to enable if-modified-since requests
 519             if ($tstamp < $timenow) {
 520                 header("Last-Modified: " . $lm);
 521                 if ($tstamp < ($timenow - 3600)) {
 522                     header('Expires: ' . gmdate("D, d M Y H:i:s", ($timenow+3600)) . " GMT");
 523                 }
 524             }
 525
 526             // Send 304s where possible, rather than spitting out the file each time
 527             if (array_key_exists('HTTP_IF_NONE_MATCH',$_SERVER)) {
 528                 $if_none_match = preg_replace('/;.*$/', '', $_SERVER['HTTP_IF_NONE_MATCH']);
 529                 if ($if_none_match == $etag) {
 530                     header("{$_SERVER['SERVER_PROTOCOL']} 304 Not Modified");
 531                     exit;
 532                 }
 533             }
 534             if (array_key_exists('HTTP_IF_MODIFIED_SINCE',$_SERVER)) {
 535                 $if_modified_since = preg_replace('/;.*$/', '', $_SERVER['HTTP_IF_MODIFIED_SINCE']);
 536                 if ($if_modified_since == $lm) {
 537                     header("{$_SERVER['SERVER_PROTOCOL']} 304 Not Modified");
 538                     exit;
 539                 }
 540             }
 541
 542             if ($mimetype) {
 543                 header("Content-Type: $mimetype");
 544             }
 545             readfile($filepath);
 546         } else {
 547             if ($mimetype) {
 548                 header("Content-Type: $mimetype");
 549             }
 550             echo $CFG->files->handler[$handler]($filepath);
 551         }
 552     }
 553     exit;
 554 }
 555
 556 function file_cache($file) {
 557
 558     global $CFG;
 559
 560     if ($file->handler == "elgg") {
 561         return $CFG->dataroot . $file->location;
 562     } else {
 563         if (file_exists($CFG->dataroot . "cache/files/" . md5($file->location))) {
 564             return $CFG->dataroot . "cache/files/" . md5($file->location);
 565         } else {
 566             file_cache_cleanup();
 567             if ($fp = @fopen($CFG->dataroot . "cache/files/" . md5($file->location), 'w')) {
 568                 if (is_callable($CFG->files->handler[$file->handler])) {
 569                     if ($content = $CFG->files->handler[$file->handler]($CFG->dataroot . $file->location)) {
 570                         fwrite($fp, $CFG->files->handler[$file->handler]($CFG->dataroot . $file->location));
 571                         fclose($fp);
 572                         return $CFG->dataroot . "cache/files/" . md5($file->location);
 573                     } else {
 574 //                        fwrite($fp, "INTERNAL ERROR");
 575                         fclose($fp);
 576                         return false;
 577                     }
 578                 } else {
 579 //                    fwrite($fp, "ERROR");
 580                     fclose($fp);
 581                     return false;
 582                 }
 583             } else {
 584                 return false;
 585             }
 586         }
 587     }
 588
 589 }
 590
 591 // Adapted from phpThumb
 592 function file_cache_cleanup() {
 593     global $CFG;
 594
 595     if (!isset($CFG->files->cache_maxage)) {
 596         $CFG->files->cache_maxage = 3600;
 597     }
 598
 599     if (($CFG->files->cache_maxage > 0) || ($CFG->files->cache_maxsize > 0) || ($CFG->files->cache_maxfiles > 0)) {
 600         $CacheDirOldFilesAge  = array();
 601         $CacheDirOldFilesSize = array();
 602         if ($dirhandle = opendir($CFG->dataroot . "cache/files/")) {
 603             while ($oldcachefile = readdir($dirhandle)) {
 604                 $fullfilename = $CFG->dataroot . "cache/files/".DIRECTORY_SEPARATOR.$oldcachefile;
 605                 if (eregi('^phpThumb_cache_', $oldcachefile) && file_exists($fullfilename)) {
 606                     $CacheDirOldFilesAge[$oldcachefile] = @fileatime($fullfilename);
 607                     if ($CacheDirOldFilesAge[$oldcachefile] == 0) {
 608                         $CacheDirOldFilesAge[$oldcachefile] = @filemtime($fullfilename);
 609                     }
 610
 611                     $CacheDirOldFilesSize[$oldcachefile] = @filesize($fullfilename);
 612                 }
 613             }
 614         }
 615         asort($CacheDirOldFilesAge);
 616
 617         if ($CFG->files->cache_maxfiles > 0) {
 618             $TotalCachedFiles = count($CacheDirOldFilesAge);
 619             $DeletedKeys = array();
 620             foreach ($CacheDirOldFilesAge as $oldcachefile => $filedate) {
 621                 if ($TotalCachedFiles > $CFG->files->cache_maxfiles) {
 622                     $TotalCachedFiles--;
 623                     if (@unlink($fullfilename)) {
 624                         $DeletedKeys[] = $oldcachefile;
 625                     }
 626                 } else {
 627                     // there are few enough files to keep the rest
 628                     break;
 629                 }
 630             }
 631             foreach ($DeletedKeys as $dummy => $oldcachefile) {
 632                 unset($CacheDirOldFilesAge[$oldcachefile]);
 633                 unset($CacheDirOldFilesSize[$oldcachefile]);
 634             }
 635         }
 636
 637         if ($CFG->files->cache_maxage > 0) {
 638             $mindate = time() - $CFG->files->cache_maxage;
 639             $DeletedKeys = array();
 640             foreach ($CacheDirOldFilesAge as $oldcachefile => $filedate) {
 641                 if ($filedate > 0) {
 642                     if ($filedate < $mindate) {
 643                         if (@unlink($fullfilename)) {
 644                             $DeletedKeys[] = $oldcachefile;
 645                         }
 646                     } else {
 647                         // the rest of the files are new enough to keep
 648                         break;
 649                     }
 650                 }
 651             }
 652             foreach ($DeletedKeys as $dummy => $oldcachefile) {
 653                 unset($CacheDirOldFilesAge[$oldcachefile]);
 654                 unset($CacheDirOldFilesSize[$oldcachefile]);
 655             }
 656         }
 657
 658         if ($CFG->files->cache_maxsize > 0) {
 659             $TotalCachedFileSize = array_sum($CacheDirOldFilesSize);
 660             $DeletedKeys = array();
 661             foreach ($CacheDirOldFilesAge as $oldcachefile => $filedate) {
 662                 if ($TotalCachedFileSize > $CFG->files->cache_maxsize) {
 663                     $TotalCachedFileSize -= $CacheDirOldFilesSize[$oldcachefile];
 664                     if (@unlink($fullfilename)) {
 665                         $DeletedKeys[] = $oldcachefile;
 666                     }
 667                 } else {
 668                     // the total filesizes are small enough to keep the rest of the files
 669                     break;
 670                 }
 671             }
 672             foreach ($DeletedKeys as $dummy => $oldcachefile) {
 673                 unset($CacheDirOldFilesAge[$oldcachefile]);
 674                 unset($CacheDirOldFilesSize[$oldcachefile]);
 675             }
 676         }
 677
 678     }
 679     return true;
 680 }
 681
 682 ?>