lib/ziplib.php

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