lib/ziplib.php

   1 <?php
   2 rcs_id('$Id: ziplib.php,v 1.19 2002-01-23 05:10:22 dairiki Exp $');
   3
   4 /**
   5  * GZIP stuff.
   6  *
   7  * Note that we use gzopen()/gzwrite() instead of gzcompress() even if
   8  * gzcompress() is available.  Gzcompress() puts out data with
   9  * different headers --- in particular it includes an "adler-32"
  10  * checksum rather than a "CRC32" checksum. Since we need the CRC-32
  11  * checksum, and since not all PHP's have gzcompress(), we'll just
  12  * stick with gzopen().
  13  */
  14 function gzip_cleanup () {
  15     global $gzip_tmpfile;
  16
  17     if ($gzip_tmpfile)
  18         @unlink($gzip_tmpfile);
  19 }
  20
  21 function gzip_tempnam () {
  22     global $gzip_tmpfile;
  23
  24     if (!$gzip_tmpfile)
  25         {
  26             //FIXME: does this work on non-unix machines?
  27             $gzip_tmpfile = tempnam("/tmp", "wkzip");
  28             register_shutdown_function("gzip_cleanup");
  29         }
  30     return $gzip_tmpfile;
  31 }
  32
  33 function gzip_compress ($data) {
  34     $filename = gzip_tempnam();
  35     if (!($fp = gzopen($filename, "wb")))
  36         trigger_error(sprintf(_("%s failed"), 'gzopen'), E_USER_ERROR);
  37     gzwrite($fp, $data, strlen($data));
  38     if (!gzclose($fp))
  39         trigger_error(sprintf(_("%s failed"), 'gzclose'), E_USER_ERROR);
  40
  41     $size = filesize($filename);
  42
  43     if (!($fp = fopen($filename, "rb")))
  44         trigger_error(sprintf(_("%s failed"), 'fopen'), E_USER_ERROR);
  45     if (!($z = fread($fp, $size)) || strlen($z) != $size)
  46         trigger_error(sprintf(_("%s failed"), 'fread'), E_USER_ERROR);
  47     if (!fclose($fp))
  48         trigger_error(sprintf(_("%s failed"), 'fclose'), E_USER_ERROR);
  49
  50     unlink($filename);
  51     return $z;
  52 }
  53
  54 function gzip_uncompress ($data) {
  55     $filename = gzip_tempnam();
  56     if (!($fp = fopen($filename, "wb")))
  57         trigger_error(sprintf(_("%s failed"), 'fopen'), E_USER_ERROR);
  58     fwrite($fp, $data, strlen($data));
  59     if (!fclose($fp))
  60         trigger_error(sprintf(_("%s failed"), 'fclose'), E_USER_ERROR);
  61
  62     if (!($fp = gzopen($filename, "rb")))
  63         trigger_error(sprintf(_("%s failed"), 'gzopen'), E_USER_ERROR);
  64     $unz = '';
  65     while ($buf = gzread($fp, 4096))
  66         $unz .= $buf;
  67     if (!gzclose($fp))
  68         trigger_error(sprintf(_("%s failed"), 'gzclose'), E_USER_ERROR);
  69
  70     unlink($filename);
  71     return $unz;
  72 }
  73
  74 /**
  75  * CRC32 computation.  Hacked from Info-zip's zip-2.3 source code.
  76  */
  77
  78 function zip_crc32 ($str, $crc = 0)
  79 {
  80     static $zip_crc_table;
  81
  82     if (empty($zip_crc_table)) {
  83         /* NOTE: The range of PHP ints seems to be -0x80000000 to 0x7fffffff.
  84          * So, had to munge these constants.
  85          */
  86         $zip_crc_table
  87             = array (0x00000000,  0x77073096, -0x11f19ed4, -0x66f6ae46,  0x076dc419,
  88                      0x706af48f, -0x169c5acb, -0x619b6a5d,  0x0edb8832,  0x79dcb8a4,
  89                     -0x1f2a16e2, -0x682d2678,  0x09b64c2b,  0x7eb17cbd, -0x1847d2f9,
  90                     -0x6f40e26f,  0x1db71064,  0x6ab020f2, -0x0c468eb8, -0x7b41be22,
  91                      0x1adad47d,  0x6ddde4eb, -0x0b2b4aaf, -0x7c2c7a39,  0x136c9856,
  92                      0x646ba8c0, -0x029d0686, -0x759a3614,  0x14015c4f,  0x63066cd9,
  93                     -0x05f0c29d, -0x72f7f20b,  0x3b6e20c8,  0x4c69105e, -0x2a9fbe1c,
  94                     -0x5d988e8e,  0x3c03e4d1,  0x4b04d447, -0x2df27a03, -0x5af54a95,
  95                      0x35b5a8fa,  0x42b2986c, -0x2444362a, -0x534306c0,  0x32d86ce3,
  96                      0x45df5c75, -0x2329f231, -0x542ec2a7,  0x26d930ac,  0x51de003a,
  97                     -0x3728ae80, -0x402f9eea,  0x21b4f4b5,  0x56b3c423, -0x30456a67,
  98                     -0x47425af1,  0x2802b89e,  0x5f058808, -0x39f3264e, -0x4ef416dc,
  99                      0x2f6f7c87,  0x58684c11, -0x3e9ee255, -0x4999d2c3,  0x76dc4190,
 100                      0x01db7106, -0x672ddf44, -0x102aefd6,  0x71b18589,  0x06b6b51f,
 101                     -0x60401b5b, -0x17472bcd,  0x7807c9a2,  0x0f00f934, -0x69f65772,
 102                     -0x1ef167e8,  0x7f6a0dbb,  0x086d3d2d, -0x6e9b9369, -0x199ca3ff,
 103                      0x6b6b51f4,  0x1c6c6162, -0x7a9acf28, -0x0d9dffb2,  0x6c0695ed,
 104                      0x1b01a57b, -0x7df70b3f, -0x0af03ba9,  0x65b0d9c6,  0x12b7e950,
 105                     -0x74414716, -0x03467784,  0x62dd1ddf,  0x15da2d49, -0x732c830d,
 106                     -0x042bb39b,  0x4db26158,  0x3ab551ce, -0x5c43ff8c, -0x2b44cf1e,
 107                      0x4adfa541,  0x3dd895d7, -0x5b2e3b93, -0x2c290b05,  0x4369e96a,
 108                      0x346ed9fc, -0x529877ba, -0x259f4730,  0x44042d73,  0x33031de5,
 109                     -0x55f5b3a1, -0x22f28337,  0x5005713c,  0x270241aa, -0x41f4eff0,
 110                     -0x36f3df7a,  0x5768b525,  0x206f85b3, -0x46992bf7, -0x319e1b61,
 111                      0x5edef90e,  0x29d9c998, -0x4f2f67de, -0x3828574c,  0x59b33d17,
 112                      0x2eb40d81, -0x4842a3c5, -0x3f459353, -0x12477ce0, -0x65404c4a,
 113                      0x03b6e20c,  0x74b1d29a, -0x152ab8c7, -0x622d8851,  0x04db2615,
 114                      0x73dc1683, -0x1c9cf4ee, -0x6b9bc47c,  0x0d6d6a3e,  0x7a6a5aa8,
 115                     -0x1bf130f5, -0x6cf60063,  0x0a00ae27,  0x7d079eb1, -0x0ff06cbc,
 116                     -0x78f75c2e,  0x1e01f268,  0x6906c2fe, -0x089da8a3, -0x7f9a9835,
 117                      0x196c3671,  0x6e6b06e7, -0x012be48a, -0x762cd420,  0x10da7a5a,
 118                      0x67dd4acc, -0x06462091, -0x71411007,  0x17b7be43,  0x60b08ed5,
 119                     -0x29295c18, -0x5e2e6c82,  0x38d8c2c4,  0x4fdff252, -0x2e44980f,
 120                     -0x5943a899,  0x3fb506dd,  0x48b2364b, -0x27f2d426, -0x50f5e4b4,
 121                      0x36034af6,  0x41047a60, -0x209f103d, -0x579820ab,  0x316e8eef,
 122                      0x4669be79, -0x349e4c74, -0x43997ce6,  0x256fd2a0,  0x5268e236,
 123                     -0x33f3886b, -0x44f4b8fd,  0x220216b9,  0x5505262f, -0x3a45c442,
 124                     -0x4d42f4d8,  0x2bb45a92,  0x5cb36a04, -0x3d280059, -0x4a2f30cf,
 125                      0x2cd99e8b,  0x5bdeae1d, -0x649b3d50, -0x139c0dda,  0x756aa39c,
 126                      0x026d930a, -0x63f6f957, -0x14f1c9c1,  0x72076785,  0x05005713,
 127                     -0x6a40b57e, -0x1d4785ec,  0x7bb12bae,  0x0cb61b38, -0x6d2d7165,
 128                     -0x1a2a41f3,  0x7cdcefb7,  0x0bdbdf21, -0x792c2d2c, -0x0e2b1dbe,
 129                      0x68ddb3f8,  0x1fda836e, -0x7e41e933, -0x0946d9a5,  0x6fb077e1,
 130                      0x18b74777, -0x77f7a51a, -0x00f09590,  0x66063bca,  0x11010b5c,
 131                     -0x709a6101, -0x079d5197,  0x616bffd3,  0x166ccf45, -0x5ff51d88,
 132                     -0x28f22d12,  0x4e048354,  0x3903b3c2, -0x5898d99f, -0x2f9fe909,
 133                      0x4969474d,  0x3e6e77db, -0x512e95b6, -0x2629a524,  0x40df0b66,
 134                      0x37d83bf0, -0x564351ad, -0x2144613b,  0x47b2cf7f,  0x30b5ffe9,
 135                     -0x42420de4, -0x35453d76,  0x53b39330,  0x24b4a3a6, -0x452fc9fb,
 136                     -0x3228f96d,  0x54de5729,  0x23d967bf, -0x4c9985d2, -0x3b9eb548,
 137                      0x5d681b02,  0x2a6f2b94, -0x4bf441c9, -0x3cf3715f,  0x5a05df1b,
 138                      0x2d02ef8d);
 139     }
 140
 141     $crc = ~$crc;
 142     for ($i = 0; $i < strlen($str); $i++) {
 143         $crc = ( $zip_crc_table[($crc ^ ord($str[$i])) & 0xff]
 144                  ^ (($crc >> 8) & 0xffffff) );
 145     }
 146     return ~$crc;
 147 }
 148
 149 define('GZIP_MAGIC', "\037\213");
 150 define('GZIP_DEFLATE', 010);
 151
 152 function zip_deflate ($content)
 153 {
 154     // Compress content, and suck information from gzip header.
 155     $z = gzip_compress($content);
 156
 157     // Suck OS type byte from gzip header. FIXME: this smells bad.
 158
 159     extract(unpack("a2magic/Ccomp_type/Cflags/@9/Cos_type", $z));
 160
 161     if ($magic != GZIP_MAGIC)
 162         trigger_error(sprintf(_("Bad %s"), "gzip magic"), E_USER_ERROR);
 163     if ($comp_type != GZIP_DEFLATE)
 164         trigger_error(sprintf(_("Bad %s"), "gzip comp type"), E_USER_ERROR);
 165     if (($flags & 0x3e) != 0)
 166         trigger_error(sprintf(_("Bad %s"), sprintf("flags (0x%02x)", $flags)),
 167                       E_USER_ERROR);
 168
 169     $gz_header_len = 10;
 170     $gz_data_len = strlen($z) - $gz_header_len - 8;
 171     if ($gz_data_len < 0)
 172         trigger_error("not enough gzip output?", E_USER_ERROR);
 173
 174     extract(unpack("Vcrc32", substr($z, $gz_header_len + $gz_data_len)));
 175
 176     return array(substr($z, $gz_header_len, $gz_data_len), // gzipped data
 177                  $crc32,                // crc
 178                  $os_type               // OS type
 179                  );
 180 }
 181
 182 function zip_inflate ($data, $crc32, $uncomp_size)
 183 {
 184     if (!function_exists('gzopen')) {
 185         global $request;
 186         $request->finish(_("Can't inflate data: zlib support not enabled in this PHP"));
 187     }
 188
 189     // Reconstruct gzip header and ungzip the data.
 190     $mtime = time();            //(Bogus mtime)
 191
 192     return gzip_uncompress( pack("a2CxV@10", GZIP_MAGIC, GZIP_DEFLATE, $mtime)
 193                             . $data
 194                             . pack("VV", $crc32, $uncomp_size) );
 195 }
 196
 197 function unixtime2dostime ($unix_time) {
 198     if ($unix_time % 1)
 199         $unix_time++;           // Round up to even seconds.
 200
 201     list ($year,$month,$mday,$hour,$min,$sec)
 202         = explode(" ", date("Y n j G i s", $unix_time));
 203
 204     if ($year < 1980)
 205         list ($year,$month,$mday,$hour,$min,$sec) = array(1980, 1, 1, 0, 0, 0);
 206
 207     $dosdate = (($year - 1980) << 9) | ($month << 5) | $mday;
 208     $dostime = ($hour << 11) | ($min << 5) | ($sec >> 1);
 209
 210     return array($dosdate, $dostime);
 211 }
 212
 213 function dostime2unixtime ($dosdate, $dostime) {
 214     $mday  = $dosdate & 0x1f;
 215     $month = ($dosdate >> 5) & 0x0f;
 216     $year  = 1980 + (($dosdate >> 9) & 0x7f);
 217
 218     $sec  = ($dostime & 0x1f) * 2;
 219     $min  = ($dostime >> 5) & 0x3f;
 220     $hour = ($dostime >> 11) & 0x1f;
 221
 222     return mktime($hour, $min, $sec, $month, $mday, $year);
 223 }
 224
 225
 226 /**
 227  * Class for zipfile creation.
 228  */
 229 define('ZIP_DEFLATE', GZIP_DEFLATE);
 230 define('ZIP_STORE',   0);
 231 define('ZIP_CENTHEAD_MAGIC', "PK\001\002");
 232 define('ZIP_LOCHEAD_MAGIC',  "PK\003\004");
 233 define('ZIP_ENDDIR_MAGIC',   "PK\005\006");
 234
 235 class ZipWriter
 236 {
 237     function ZipWriter ($comment = "", $zipname = "archive.zip") {
 238         $this->comment = $comment;
 239         $this->nfiles = 0;
 240         $this->dir = "";                // "Central directory block"
 241         $this->offset = 0;              // Current file position.
 242
 243     $zipname = addslashes($zipname);
 244     header("Content-Type: application/zip; name=\"$zipname\"");
 245     header("Content-Disposition: attachment; filename=\"$zipname\"");
 246     }
 247
 248   function addRegularFile ($filename, $content, $attrib = false) {
 249       if (!$attrib)
 250           $attrib = array();
 251
 252       $size = strlen($content);
 253       if (function_exists('gzopen'))
 254           {
 255               list ($data, $crc32, $os_type) = zip_deflate($content);
 256               if (strlen($data) < $size)
 257                   {
 258                       $content = $data; // Use compressed data.
 259                       $comp_type = ZIP_DEFLATE;
 260                   }
 261               else
 262                   unset($crc32);        // force plain store.
 263           }
 264       if (!isset($crc32))
 265           {
 266               $comp_type = ZIP_STORE;
 267               $crc32 = zip_crc32($content);
 268           }
 269
 270       if (!empty($attrib['write_protected']))
 271           $atx = (0100444 << 16) | 1; // S_IFREG + read permissions to
 272                                       // everybody.
 273       else
 274           $atx = (0100644 << 16); // Add owner write perms.
 275
 276       $ati = $attrib['is_ascii'] ? 1 : 0;
 277
 278       if (empty($attrib['mtime']))
 279           $attrib['mtime'] = time();
 280       list ($mod_date, $mod_time) = unixtime2dostime($attrib['mtime']);
 281
 282       // Construct parts common to "Local file header" and "Central
 283       // directory file header."
 284       if (!isset($attrib['extra_field']))
 285           $attrib['extra_field'] = '';
 286       if (!isset($attrib['file_comment']))
 287           $attrib['file_comment'] = '';
 288
 289       $head = pack("vvvvvVVVvv",
 290                    20,  // Version needed to extract (FIXME: is this right?)
 291                    0,   // Gen purp bit flag
 292                  $comp_type,
 293                    $mod_time,
 294                    $mod_date,
 295                    $crc32,
 296                    strlen($content),
 297                    $size,
 298                    strlen($filename),
 299                    strlen($attrib['extra_field']));
 300
 301       // Construct the "Local file header"
 302       $lheader = ZIP_LOCHEAD_MAGIC . $head . $filename
 303           . $attrib['extra_field'];
 304
 305       // Construct the "central directory file header"
 306       $this->dir .= pack("a4CC",
 307                          ZIP_CENTHEAD_MAGIC,
 308                          23,    // Version made by (FIXME: is this right?)
 309                          $os_type);
 310       $this->dir .= $head;
 311       $this->dir .= pack("vvvVV",
 312                          strlen($attrib['file_comment']),
 313                          0,              // Disk number start
 314                          $ati,           // Internal file attributes
 315                          $atx,           // External file attributes
 316                          $this->offset); // Relative offset of local header
 317       $this->dir .= $filename . $attrib['extra_field']
 318           . $attrib['file_comment'];
 319
 320       // Output the "Local file header" and file contents.
 321       echo $lheader;
 322       echo $content;
 323
 324       $this->offset += strlen($lheader) + strlen($content);
 325       $this->nfiles++;
 326   }
 327
 328   function finish () {
 329       // Output the central directory
 330       echo $this->dir;
 331
 332       // Construct the "End of central directory record"
 333       echo ZIP_ENDDIR_MAGIC;
 334       echo pack("vvvvVVv",
 335                 0,                  // Number of this disk.
 336                 0,                  // Number of disk with start of c dir
 337                 $this->nfiles,      // Number entries on this disk
 338                 $this->nfiles,      // Number entries
 339                 strlen($this->dir), // Size of central directory
 340                 $this->offset,      // Offset of central directory
 341                 strlen($this->comment));
 342       echo $this->comment;
 343   }
 344 }
 345
 346
 347 /**
 348  * Class for reading zip files.
 349  *
 350  * BUGS:
 351  *
 352  * Many of the ExitWiki()'s should probably be warn()'s (eg. CRC mismatch).
 353  *
 354  * Only a subset of zip formats is recognized. (I think that
 355  * unsupported formats will be recognized as such rather than silently
 356  * munged.)
 357  *
 358  * We don't read the central directory. This means we don't see the
 359  * file attributes (text? read-only?), or file comments.
 360  *
 361  * Right now we ignore the file mod date and time, since we don't need it.
 362  */
 363 class ZipReader
 364 {
 365     function ZipReader ($zipfile) {
 366         if (!is_string($zipfile))
 367             $this->fp = $zipfile;       // File already open
 368         else if (!($this->fp = fopen($zipfile, "rb")))
 369             trigger_error(sprintf(_("Can't open zip file '%s' for reading"),
 370                                   $zipfile), E_USER_ERROR);
 371     }
 372
 373     function _read ($nbytes) {
 374         $chunk = fread($this->fp, $nbytes);
 375         if (strlen($chunk) != $nbytes)
 376             trigger_error(_("Unexpected EOF in zip file"), E_USER_ERROR);
 377         return $chunk;
 378     }
 379
 380     function done () {
 381         fclose($this->fp);
 382         return false;
 383     }
 384
 385   function readFile () {
 386       $head = $this->_read(30);
 387
 388       extract(unpack("a4magic/vreq_version/vflags/vcomp_type"
 389                      . "/vmod_time/vmod_date"
 390                      . "/Vcrc32/Vcomp_size/Vuncomp_size"
 391                      . "/vfilename_len/vextrafld_len",
 392                      $head));
 393
 394       //FIXME: we should probably check $req_version.
 395       $attrib['mtime'] = dostime2unixtime($mod_date, $mod_time);
 396
 397       if ($magic != ZIP_LOCHEAD_MAGIC)
 398           {
 399               if ($magic != ZIP_CENTHEAD_MAGIC)
 400                   // FIXME: better message?
 401                   ExitWiki(fmt("Bad header type: %s", $magic));
 402               return $this->done();
 403           }
 404       if (($flags & 0x21) != 0)
 405           ExitWiki(_("Encryption and/or zip patches not supported."));
 406       if (($flags & 0x08) != 0)
 407           // FIXME: better message?
 408           ExitWiki(_("Postponed CRC not yet supported."));
 409
 410       $filename = $this->_read($filename_len);
 411       if ($extrafld_len != 0)
 412           $attrib['extra_field'] = $this->_read($extrafld_len);
 413
 414       $data = $this->_read($comp_size);
 415
 416       if ($comp_type == ZIP_DEFLATE)
 417           {
 418               $data = zip_inflate($data, $crc32, $uncomp_size);
 419           }
 420       else if ($comp_type == ZIP_STORE)
 421           {
 422               $crc = zip_crc32($data);
 423               if ($crc32 != $crc)
 424                   ExitWiki(sprintf("CRC mismatch %x != %x", $crc, $crc32));
 425           }
 426       else
 427           ExitWiki(sprintf(_("Compression method %s unsupported"),
 428                            $comp_method));
 429
 430       if (strlen($data) != $uncomp_size)
 431           ExitWiki(sprintf(_("Uncompressed size mismatch")."%d != %d",
 432                            strlen($data), $uncomp_size));
 433
 434       return array($filename, $data, $attrib);
 435   }
 436 }
 437
 438 /**
 439  * Routines for Mime mailification of pages.
 440  */
 441 //FIXME: these should go elsewhere (libmime?).
 442
 443 /**
 444  * Routines for quoted-printable en/decoding.
 445  */
 446 function QuotedPrintableEncode ($string)
 447 {
 448     // Quote special characters in line.
 449     $quoted = "";
 450     while ($string)
 451         {
 452             // The complicated regexp is to force quoting of trailing spaces.
 453             preg_match('/^([ !-<>-~]*)(?:([!-<>-~]$)|(.))/s', $string, $match);
 454             $quoted .= $match[1] . $match[2];
 455             if (!empty($match[3]))
 456                 $quoted .= sprintf("=%02X", ord($match[3]));
 457             $string = substr($string, strlen($match[0]));
 458         }
 459     // Split line.
 460     // This splits the line (preferably after white-space) into lines
 461     // which are no longer than 76 chars (after adding trailing '=' for
 462     // soft line break, but before adding \r\n.)
 463     return preg_replace('/(?=.{77})(.{10,74}[ \t]|.{71,73}[^=][^=])/s',
 464                         "\\1=\r\n", $quoted);
 465 }
 466
 467 function QuotedPrintableDecode ($string)
 468 {
 469     // Eliminate soft line-breaks.
 470     $string = preg_replace('/=[ \t\r]*\n/', '', $string);
 471     return quoted_printable_decode($string);
 472 }
 473
 474 define('MIME_TOKEN_REGEXP', "[-!#-'*+.0-9A-Z^-~]+");
 475
 476 function MimeContentTypeHeader ($type, $subtype, $params)
 477 {
 478     $header = "Content-Type: $type/$subtype";
 479     reset($params);
 480     while (list($key, $val) = each($params))
 481         {
 482             //FIXME:  what about non-ascii printables in $val?
 483             if (!preg_match('/^' . MIME_TOKEN_REGEXP . '$/', $val))
 484                 $val = '"' . addslashes($val) . '"';
 485             $header .= ";\r\n  $key=$val";
 486         }
 487     return "$header\r\n";
 488 }
 489
 490 function MimeMultipart ($parts)
 491 {
 492     global $mime_multipart_count;
 493
 494     // The string "=_" can not occur in quoted-printable encoded data.
 495     $boundary = "=_multipart_boundary_" . ++$mime_multipart_count;
 496
 497     $head = MimeContentTypeHeader('multipart', 'mixed',
 498                                   array('boundary' => $boundary));
 499
 500     $sep = "\r\n--$boundary\r\n";
 501
 502     return $head . $sep . implode($sep, $parts) . "\r\n--${boundary}--\r\n";
 503 }
 504
 505 function MimeifyPageRevision ($revision) {
 506     // This is a dirty hack to allow saving binary text files. See below.
 507     global $pagedump_format;
 508     $page = $revision->getPage();
 509     // FIXME: add 'hits' to $params
 510     $params = array('pagename'     => rawurlencode($page->getName()),
 511                     'author'       => rawurlencode($revision->get('author')),
 512                     'version'      => $revision->getVersion(),
 513                     'flags'        => "",
 514                     'lastmodified' => $revision->get('mtime'));
 515     if ($page->get('mtime'))
 516         $params['created'] = $page->get('mtime');
 517     if ($page->get('locked'))
 518         $params['flags'] = 'PAGE_LOCKED';
 519     if ($revision->get('author_id'))
 520         $params['author_id'] = $revision->get('author_id');
 521
 522
 523     $out = MimeContentTypeHeader('application', 'x-phpwiki', $params);
 524     $out .= "Content-Transfer-Encoding: " .$pagedump_format ."\r\n";
 525     $out .= "\r\n";
 526
 527     foreach ($revision->getContent() as $line) {
 528         // This is a dirty hack to allow saving binary text files. See above.
 529         $out .= ($pagedump_format == "quoted-printable") ?
 530             QuotedPrintableEncode(chop($line)) : chop($line);
 531         $out .= "\r\n";
 532     }
 533     return $out;
 534 }
 535
 536 /**
 537  * Routines for parsing Mime-ified phpwiki pages.
 538  */
 539 function ParseRFC822Headers (&$string)
 540 {
 541     if (preg_match("/^From (.*)\r?\n/", $string, $match))
 542         {
 543             $headers['from '] = preg_replace('/^\s+|\s+$/', '', $match[1]);
 544             $string = substr($string, strlen($match[0]));
 545         }
 546
 547     while (preg_match('/^([!-9;-~]+) [ \t]* : [ \t]* '
 548                       . '( .* \r?\n (?: [ \t] .* \r?\n)* )/x',
 549                       $string, $match))
 550         {
 551             $headers[strtolower($match[1])]
 552                 = preg_replace('/^\s+|\s+$/', '', $match[2]);
 553             $string = substr($string, strlen($match[0]));
 554         }
 555
 556     if (empty($headers))
 557         return false;
 558
 559     if (! preg_match("/^\r?\n/", $string, $match))
 560         {
 561             // No blank line after headers.
 562             return false;
 563         }
 564
 565     $string = substr($string, strlen($match[0]));
 566
 567     return $headers;
 568 }
 569
 570
 571 function ParseMimeContentType ($string)
 572 {
 573     // FIXME: Remove (RFC822 style comments).
 574
 575     // Get type/subtype
 576     if (!preg_match(':^\s*(' . MIME_TOKEN_REGEXP . ')\s*'
 577                     . '/'
 578                     . '\s*(' . MIME_TOKEN_REGEXP . ')\s*:x',
 579                     $string, $match))
 580         ExitWiki(sprintf(_("Bad %s"),'MIME content-type'));
 581
 582     $type    = strtolower($match[1]);
 583     $subtype = strtolower($match[2]);
 584     $string  = substr($string, strlen($match[0]));
 585
 586     $param = array();
 587
 588     while (preg_match('/^;\s*(' . MIME_TOKEN_REGEXP . ')\s*=\s*'
 589                       . '(?:(' . MIME_TOKEN_REGEXP . ')|"((?:[^"\\\\]|\\.)*)") \s*/sx',
 590                       $string, $match))
 591         {
 592             if (strlen($match[2]))
 593                 $val = $match[2];
 594             else
 595                 $val = preg_replace('/[\\\\](.)/s', '\\1', $match[3]);
 596
 597             $param[strtolower($match[1])] = $val;
 598
 599             $string = substr($string, strlen($match[0]));
 600         }
 601     //" <--(kludge for dumb syntax coloring)
 602
 603     return array($type, $subtype, $param);
 604 }
 605
 606 function ParseMimeMultipart($data, $boundary)
 607 {
 608     if (!$boundary)
 609         ExitWiki("No boundary?");
 610
 611     $boundary = preg_quote($boundary);
 612
 613     while (preg_match("/^(|.*?\n)--$boundary((?:--)?)[^\n]*\n/s",
 614                       $data, $match))
 615         {
 616             $data = substr($data, strlen($match[0]));
 617             if ( ! isset($parts) )
 618                 $parts = array();  // First time through: discard leading chaff
 619             else {
 620                 if ($content = ParseMimeifiedPages($match[1]))
 621                     for (reset($content); $p = current($content); next($content))
 622                         $parts[] = $p;
 623             }
 624
 625             if ($match[2])
 626                 return $parts;  // End boundary found.
 627         }
 628     ExitWiki("No end boundary?");
 629 }
 630
 631 function GenerateFootnotesFromRefs($params)
 632 {
 633     $footnotes = array();
 634     reset($params);
 635     while (list($p, $reference) = each($params))
 636         {
 637             if (preg_match('/^ref([1-9][0-9]*)$/', $p, $m))
 638                 $footnotes[$m[1]] = sprintf(_("[%d] See [%s]"),
 639                                             $m[1], rawurldecode($reference));
 640         }
 641
 642     if (sizeof($footnotes) > 0)
 643         {
 644             ksort($footnotes);
 645             return "-----\n"
 646                 . "!" ._("References") . "\n"
 647                 . join("\n%%%\n", $footnotes) . "\n";
 648         }
 649     else
 650         return "";
 651 }
 652
 653
 654 // Convert references in meta-data to footnotes.
 655 // Only zip archives generated by phpwiki 1.2.x or earlier should have
 656 // references.
 657 function ParseMimeifiedPages ($data)
 658 {
 659     if (!($headers = ParseRFC822Headers($data))
 660         || empty($headers['content-type'])) {
 661         //trigger_error( sprintf(_("Can't find %s"),'content-type header'),
 662         //               E_USER_WARNING );
 663         return false;
 664     }
 665     $typeheader = $headers['content-type'];
 666
 667     if (!(list ($type, $subtype, $params) = ParseMimeContentType($typeheader))) {
 668         trigger_error( sprintf(_("Can't parse %s: (%s)"),
 669                                'content-type', $typeheader),
 670                        E_USER_WARNING );
 671         return false;
 672     }
 673     if ("$type/$subtype" == 'multipart/mixed') {
 674         return ParseMimeMultipart($data, $params['boundary']);
 675     }
 676     else if ("$type/$subtype" != 'application/x-phpwiki') {
 677         trigger_error( sprintf(_("Bad %s"),"content-type: $type/$subtype"),
 678                        E_USER_WARNING );
 679         return false;
 680     }
 681
 682     // FIXME: more sanity checking?
 683     $page        = array();
 684     $pagedata    = array();
 685     $versiondata = array();
 686
 687     foreach ($params as $key => $value) {
 688         if (empty($value))
 689             continue;
 690         $value = rawurldecode($value);
 691         switch ($key) {
 692         case 'pagename':
 693         case 'version':
 694             $page[$key] = $value;
 695             break;
 696         case 'flags':
 697             if (preg_match('/PAGE_LOCKED/', $value))
 698                 $pagedata['locked'] = 'yes';
 699             break;
 700         case 'created':
 701             $pagedata[$key] = $value;
 702             break;
 703         case 'lastmodified':
 704             $versiondata['mtime'] = $value;
 705             break;
 706         case 'author':
 707         case 'author_id':
 708             $versiondata[$key] = $value;
 709             break;
 710         }
 711     }
 712
 713     // FIXME: do we need to try harder to find a pagename if we
 714     //        haven't got one yet?
 715     if (!isset($versiondata['author'])) {
 716         global $request;
 717         $user = $request->getUser();
 718         $versiondata['author'] = $user->getId(); //FIXME:?
 719     }
 720
 721     $encoding = strtolower($headers['content-transfer-encoding']);
 722     if ($encoding == 'quoted-printable')
 723         $data = QuotedPrintableDecode($data);
 724     else if ($encoding && $encoding != 'binary')
 725         ExitWiki( sprintf(_("Unknown %s"), 'encoding type: $encoding') );
 726
 727     $data .= GenerateFootnotesFromRefs($params);
 728
 729     $page['content'] = preg_replace('/[ \t\r]*\n/', "\n", chop($data));
 730     $page['pagedata'] = $pagedata;
 731     $page['versiondata'] = $versiondata;
 732
 733     return array($page);
 734 }
 735
 736 // Local Variables:
 737 // mode: php
 738 // tab-width: 8
 739 // c-basic-offset: 4
 740 // c-hanging-comment-ender-p: nil
 741 // indent-tabs-mode: nil
 742 // End:
 743 ?>