<?php
/*
* Copyrights are following:
*
* Eric Mueller <eric@themepark.com>
* http://www.zend.com/codex.php?id=535&single=1
*
* Denis125 <webmaster@atlant.ru>
* http://www.zend.com/codex.php?id=470&single=1
*
* Peter Listiak <mlady@users.sourceforge.net>
*
* PK ZIP
* http://www.pkware.com/appnote.txt
*/

class zipfile
{
 var $datasec      = array ();
 var $ctrl_dir     = array ();
 var $eof_ctrl_dir = "\x50\x4b\x05\x06\x00\x00\x00\x00";
 var $old_offset   = 0;

 function unix2DosTime ($unixtime = 0)
 {
  $timearray = ($unixtime == 0) ?
                getdate () :
                getdate ($unixtime);

  if ($timearray['year'] < 1980)
  {
   $timearray['year']    = 1980;
   $timearray['mon']     = 1;
   $timearray['mday']    = 1;
   $timearray['hours']   = 0;
   $timearray['minutes'] = 0;
   $timearray['seconds'] = 0;
  }

  return (($timearray['year'] - 1980) << 25) |
          ($timearray['mon']          << 21) |
          ($timearray['mday']         << 16) |
          ($timearray['hours']        << 11) |
          ($timearray['minutes']      << 5)  |
          ($timearray['seconds']      >> 1);
 }

 function addFile ($data, $name, $time = 0)
 {
  $name  = str_replace ('\\', '/', $name);

  $dtime    = dechex ($this->unix2DosTime ($time));
  $hexdtime = '\x' . $dtime[6] . $dtime[7] .
              '\x' . $dtime[4] . $dtime[5] .
              '\x' . $dtime[2] . $dtime[3] .
              '\x' . $dtime[0] . $dtime[1];
  eval ('$hexdtime = "' . $hexdtime . '";');

  $unc_len = strlen     ($data);
  $crc     = crc32      ($data);
  $zdata   = gzcompress ($data);
  $zdata   = substr     (substr ($zdata, 0, strlen ($zdata) - 4), 2);
  $c_len   = strlen     ($zdata);

  $fr  = "\x50\x4b\x03\x04\x14\x00\x00\x00\x08\x00" .
         $hexdtime .
         pack ('V', $crc) .
         pack ('V', $c_len) .
         pack ('V', $unc_len) .
         pack ('v', strlen ($name)) .
         pack ('v', 0) .
         $name .
         $zdata .
         pack ('V', $crc) .
         pack ('V', $c_len) .
         pack ('V', $unc_len);

  $this -> datasec[] = $fr;

  $cdrec  = "\x50\x4b\x01\x02\x00\x00\x14\x00\x00\x00\x08\x00" .
            $hexdtime .
            pack ('V', $crc) .
            pack ('V', $c_len) .
            pack ('V', $unc_len) .
            pack ('v', strlen ($name)) .
            pack ('v', 0 ) .
            pack ('v', 0 ) .
            pack ('v', 0 ) .
            pack ('v', 0 ) .
            pack ('V', 32 ) .
            pack ('V', $this -> old_offset ) .
            $name;

  $this -> old_offset += strlen ($fr);
  $this -> ctrl_dir[] = $cdrec;
 }

 function file ()
 {
  $data    = implode ('', $this -> datasec);
  $ctrldir = implode ('', $this -> ctrl_dir);

  return $data .
         $ctrldir .
         $this -> eof_ctrl_dir .
         pack ('v', sizeof ($this -> ctrl_dir)) .
         pack ('v', sizeof ($this -> ctrl_dir)) .
         pack ('V', strlen ($ctrldir)) .
         pack ('V', strlen ($data)) .
         "\x00\x00";
 }
}
?>