options = array ('basedir' => ".",'name' => $name,'prepend' => "",'inmemory' => 0,'overwrite' => 0,'recurse' => 1,'storepaths' => 1,'followlinks' => 0,'level' => 3,'method' => 1,'sfx' => "",'type' => "",'comment' => "" ); $this->files = array (); $this->exclude = array (); $this->storeonly = array (); $this->error = array (); } /** * This function gives options to a archive * * @param array $options * @return void */ public function set_options ($options) { foreach ($options as $key => $value) { $this->options[$key] = $value; } if (! empty( $this->options['basedir'] )) { $this->options['basedir'] = str_replace( "\\", "/", $this->options['basedir'] ); $this->options['basedir'] = preg_replace( "/\/+/", "/", $this->options['basedir'] ); $this->options['basedir'] = preg_replace( "/\/$/", "", $this->options['basedir'] ); } if (! empty( $this->options['name'] )) { $this->options['name'] = str_replace( "\\", "/", $this->options['name'] ); $this->options['name'] = preg_replace( "/\/+/", "/", $this->options['name'] ); } if (! empty( $this->options['prepend'] )) { $this->options['prepend'] = str_replace( "\\", "/", $this->options['prepend'] ); $this->options['prepend'] = preg_replace( "/^(\.*\/+)+/", "", $this->options['prepend'] ); $this->options['prepend'] = preg_replace( "/\/+/", "/", $this->options['prepend'] ); $this->options['prepend'] = preg_replace( "/\/$/", "", $this->options['prepend'] ) . "/"; } } /** * This function is used to create a archive. * * @return boolean */ public function create_archive () { $this->make_list(); if ($this->options['inmemory'] == 0) { $pwd = getcwd(); chdir( $this->options['basedir'] ); if ($this->options['overwrite'] == 0 && file_exists( $this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip" ? ".tmp" : "") )) { $this->error[] = "File {$this->options['name']} already exist."; chdir( $pwd ); return 0; } elseif ($this->archive = @fopen( $this->options['name'] . ($this->options['type'] == "gzip" || $this->options['type'] == "bzip" ? ".tmp" : ""), "wb+" )) { chdir( $pwd ); } else { $this->error[] = "Could not open {$this->options['name']} for writing."; chdir( $pwd ); return 0; } } else { $this->archive = ""; } switch ($this->options['type']) { case "zip": if (! $this->create_zip()) { $this->error[] = "Could not create zip file."; return 0; } break; case "bzip": if (! $this->create_tar()) { $this->error[] = "Could not create tar file."; return 0; } if (! $this->create_bzip()) { $this->error[] = "Could not create bzip2 file."; return 0; } break; case "gzip": if (! $this->create_tar()) { $this->error[] = "Could not create tar file."; return 0; } if (! $this->create_gzip()) { $this->error[] = "Could not create gzip file."; return 0; } break; case "tar": if (! $this->create_tar()) { $this->error[] = "Could not create tar file."; return 0; } } if ($this->options['inmemory'] == 0) { fclose( $this->archive ); if ($this->options['type'] == "gzip" || $this->options['type'] == "bzip") { unlink( $this->options['basedir'] . "/" . $this->options['name'] . ".tmp" ); } } } /** * This function is used for add data to a archive * * @param string $data * @return void */ public function add_data ($data) { if ($this->options['inmemory'] == 0) { fwrite( $this->archive, $data ); } else { $this->archive .= $data; } } /** * This function make a list * * @return void */ public function make_list () { if (! empty( $this->exclude )) { foreach ($this->files as $key => $value) { foreach ($this->exclude as $current) { if ($value['name'] == $current['name']) { unset( $this->files[$key] ); } } } } if (! empty( $this->storeonly )) { foreach ($this->files as $key => $value) { foreach ($this->storeonly as $current) { if ($value['name'] == $current['name']) { $this->files[$key]['method'] = 0; } } } } unset( $this->exclude, $this->storeonly ); } /** * Add files a list * * @param array $list * @return void */ public function add_files ($list) { $temp = $this->list_files( $list ); foreach ($temp as $current) { $this->files[] = $current; } } /** * This function exclude files of a list * * @param array $list * @return void */ public function exclude_files ($list) { $temp = $this->list_files( $list ); foreach ($temp as $current) { $this->exclude[] = $current; } } /** * This function store files * * @param array $list */ public function store_files ($list) { $temp = $this->list_files( $list ); foreach ($temp as $current) { $this->storeonly[] = $current; } } /** * List files gives a List * * @param array $list * @return array */ public function list_files ($list) { if (! is_array( $list )) { $temp = $list; $list = array ($temp ); unset( $temp ); } $files = array (); $pwd = getcwd(); chdir( $this->options['basedir'] ); foreach ($list as $current) { $current = str_replace( "\\", "/", $current ); $current = preg_replace( "/\/+/", "/", $current ); $current = preg_replace( "/\/$/", "", $current ); if (strstr( $current, "*" )) { $regex = preg_replace( "/([\\\^\$\.\[\]\|\(\)\?\+\{\}\/])/", "\\\\\\1", $current ); $regex = str_replace( "*", ".*", $regex ); $dir = strstr( $current, "/" ) ? substr( $current, 0, strrpos( $current, "/" ) ) : "."; $temp = $this->parse_dir( $dir ); foreach ($temp as $current2) { if (preg_match( "/^{$regex}$/i", $current2['name'] )) { $files[] = $current2; } } unset( $regex, $dir, $temp, $current ); } elseif (@is_dir( $current )) { $temp = $this->parse_dir( $current ); foreach ($temp as $file) { $files[] = $file; } unset( $temp, $file ); } elseif (@file_exists( $current )) { $files[] = array ('name' => $current,'name2' => $this->options['prepend'] . preg_replace( "/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr( $current, "/" )) ? substr( $current, strrpos( $current, "/" ) + 1 ) : $current ),'type' => @is_link( $current ) && $this->options['followlinks'] == 0 ? 2 : 0,'ext' => substr( $current, strrpos( $current, "." ) ),'stat' => stat( $current ) ); } } chdir( $pwd ); unset( $current, $pwd ); usort( $files, array ("archive","sort_files" ) ); return $files; } /** * This function is for parse a directory name * * @param string $dirname * @return array */ public function parse_dir ($dirname) { if ($this->options['storepaths'] == 1 && ! preg_match( "/^(\.+\/*)+$/", $dirname )) { $files = array (array ('name' => $dirname,'name2' => $this->options['prepend'] . preg_replace( "/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr( $dirname, "/" )) ? substr( $dirname, strrpos( $dirname, "/" ) + 1 ) : $dirname ),'type' => 5,'stat' => stat( $dirname ) ) ); } else { $files = array (); } $dir = @opendir( $dirname ); while ($file = @readdir( $dir )) { $fullname = $dirname . "/" . $file; if ($file == "." || $file == "..") { continue; } elseif (@is_dir( $fullname )) { if (empty( $this->options['recurse'] )) { continue; } $temp = $this->parse_dir( $fullname ); foreach ($temp as $file2) { $files[] = $file2; } } elseif (@file_exists( $fullname )) { $files[] = array ('name' => $fullname,'name2' => $this->options['prepend'] . preg_replace( "/(\.+\/+)+/", "", ($this->options['storepaths'] == 0 && strstr( $fullname, "/" )) ? substr( $fullname, strrpos( $fullname, "/" ) + 1 ) : $fullname ),'type' => @is_link( $fullname ) && $this->options['followlinks'] == 0 ? 2 : 0,'ext' => substr( $file, strrpos( $file, "." ) ),'stat' => stat( $fullname ) ); } } @closedir( $dir ); return $files; } /** * This function sort two files * * @param array $a * @param array $b * @return boolean */ public function sort_files ($a, $b) { if ($a['type'] != $b['type']) { if ($a['type'] == 5 || $b['type'] == 2) { return - 1; } elseif ($a['type'] == 2 || $b['type'] == 5) { return 1; } elseif ($a['type'] == 5) { return strcmp( strtolower( $a['name'] ), strtolower( $b['name'] ) ); } elseif ($a['ext'] != $b['ext']) { return strcmp( $a['ext'], $b['ext'] ); } elseif ($a['stat'][7] != $b['stat'][7]) { return $a['stat'][7] > $b['stat'][7] ? - 1 : 1; } else { return strcmp( strtolower( $a['name'] ), strtolower( $b['name'] ) ); } } return 0; } /** * This function download a file * * @return void */ public function download_file () { if ($this->options['inmemory'] == 0) { $this->error[] = "Can only use download_file() if archive is in memory. Redirect to file otherwise, it is faster."; return; } switch ($this->options['type']) { case "zip": header( "Content-Type: application/zip" ); break; case "bzip": header( "Content-Type: application/x-bzip2" ); break; case "gzip": header( "Content-Type: application/x-gzip" ); break; case "tar": header( "Content-Type: application/x-tar" ); } $header = "Content-Disposition: attachment; filename=\""; $header .= strstr( $this->options['name'], "/" ) ? substr( $this->options['name'], strrpos( $this->options['name'], "/" ) + 1 ) : $this->options['name']; $header .= "\""; header( $header ); header( "Content-Length: " . strlen( $this->archive ) ); header( "Content-Transfer-Encoding: binary" ); header( "Cache-Control: no-cache, must-revalidate, max-age=60" ); header( "Expires: Sat, 01 Jan 2000 12:00:00 GMT" ); print ($this->archive) ; } } /** * This class is derived from the class archive, is imployed to use files . * tar * * @package workflow.engine.classes * */ class tar_file extends archive { /** * This function is the constructor of the class tar_file * * @param string $name */ public function tar_file ($name) { $this->archive( $name ); $this->options['type'] = "tar"; } /** * This function create a file . * tar * * @return boolean */ public function create_tar () { $pwd = getcwd(); chdir( $this->options['basedir'] ); foreach ($this->files as $current) { if ($current['name'] == $this->options['name']) { continue; } if (strlen( $current['name2'] ) > 99) { $path = substr( $current['name2'], 0, strpos( $current['name2'], "/", strlen( $current['name2'] ) - 100 ) + 1 ); $current['name2'] = substr( $current['name2'], strlen( $path ) ); if (strlen( $path ) > 154 || strlen( $current['name2'] ) > 99) { $this->error[] = "Could not add {$path}{$current['name2']} to archive because the filename is too long."; continue; } } $block = pack( "a100a8a8a8a12a12a8a1a100a6a2a32a32a8a8a155a12", $current['name2'], sprintf( "%07o", $current['stat'][2] ), sprintf( "%07o", $current['stat'][4] ), sprintf( "%07o", $current['stat'][5] ), sprintf( "%011o", $current['type'] == 2 ? 0 : $current['stat'][7] ), sprintf( "%011o", $current['stat'][9] ), " ", $current['type'], $current['type'] == 2 ? @readlink( $current['name'] ) : "", "ustar ", " ", "Unknown", "Unknown", "", "", ! empty( $path ) ? $path : "", "" ); $checksum = 0; for ($i = 0; $i < 512; $i ++) { $checksum += ord( substr( $block, $i, 1 ) ); } $checksum = pack( "a8", sprintf( "%07o", $checksum ) ); $block = substr_replace( $block, $checksum, 148, 8 ); if ($current['type'] == 2 || $current['stat'][7] == 0) { $this->add_data( $block ); } elseif ($fp = @fopen( $current['name'], "rb" )) { $this->add_data( $block ); while ($temp = fread( $fp, 1048576 )) { $this->add_data( $temp ); } if ($current['stat'][7] % 512 > 0) { $temp = ""; for ($i = 0; $i < 512 - $current['stat'][7] % 512; $i ++) { $temp .= "\0"; } $this->add_data( $temp ); } fclose( $fp ); } else { $this->error[] = "Could not open file {$current['name']} for reading. It was not added."; } } $this->add_data( pack( "a1024", "" ) ); chdir( $pwd ); return 1; } /** * This function is used for extract files of the class tar_file * * @return void */ public function extract_files () { $pwd = getcwd(); chdir( $this->options['basedir'] ); if ($fp = $this->open_archive()) { if ($this->options['inmemory'] == 1) { $this->files = array (); } while ($block = fread( $fp, 512 )) { $temp = unpack( "a100name/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100symlink/a6magic/a2temp/a32temp/a32temp/a8temp/a8temp/a155prefix/a12temp", $block ); $file = array ('name' => $this->options['basedir'] . '/' . $temp['prefix'] . $temp['name'],'stat' => array (2 => $temp['mode'],4 => octdec( $temp['uid'] ),5 => octdec( $temp['gid'] ),7 => octdec( $temp['size'] ),9 => octdec( $temp['mtime'] ) ),'checksum' => octdec( $temp['checksum'] ),'type' => $temp['type'],'magic' => $temp['magic'] ); if ($file['checksum'] == 0x00000000) { break; } elseif (substr( $file['magic'], 0, 5 ) != "ustar") { $this->error[] = "This script does not support extracting this type of tar file."; break; } $block = substr_replace( $block, " ", 148, 8 ); $checksum = 0; for ($i = 0; $i < 512; $i ++) { $checksum += ord( substr( $block, $i, 1 ) ); } if ($file['checksum'] != $checksum) { $this->error[] = "Could not extract from {$this->options['name']}, it is corrupt."; } if ($this->options['inmemory'] == 1) { $file['data'] = fread( $fp, $file['stat'][7] ); fread( $fp, (512 - $file['stat'][7] % 512) == 512 ? 0 : (512 - $file['stat'][7] % 512) ); unset( $file['checksum'], $file['magic'] ); $this->files[] = $file; } elseif ($file['type'] == 5) { if (! is_dir( $file['name'] )) { //mkdir($file['name'], $file['stat'][2]); mkdir( $file['name'], 0775 ); } } elseif ($this->options['overwrite'] == 0 && file_exists( $file['name'] )) { $this->error[] = "{$file['name']} already exist."; continue; } elseif ($file['type'] == 2) { symlink( $temp['symlink'], $file['name'] ); //chmod($file['name'], $file['stat'][2]); } elseif ($new = @fopen( $file['name'], "wb" )) { fwrite( $new, fread( $fp, $file['stat'][7] ) ); if ((512 - $file['stat'][7] % 512) != 512) { fread( $fp, (512 - $file['stat'][7] % 512) ); } //fread($fp, (512 - $file['stat'][7] % 512) == 512 ? 0 : (512 - $file['stat'][7] % 512)); fclose( $new ); //chmod($file['name'], $file['stat'][2]); chmod( $file['name'], 0777 ); $this->files[] = $file['name']; } else { $this->error[] = "Could not open {$file['name']} for writing."; continue; } //chown($file['name'], $file['stat'][4]); //chgrp($file['name'], $file['stat'][5]); @touch( $file['name'], $file['stat'][9] ); unset( $file ); } } else { $this->error[] = "Could not open file {$this->options['name']}"; } chdir( $pwd ); } /** * This function open a archive of the class tar_file * * @return void */ public function open_archive () { return @fopen( $this->options['name'], "rb" ); } } /** * This class is derived of the class archive, is employed to use archives . * gzip * * @package workflow.engine.classes * */ class gzip_file extends tar_file { /** * This function is the constructor of the class gzip_file * * @param string $name * @return void */ public function gzip_file ($name) { $this->tar_file( $name ); $this->options['type'] = "gzip"; } /** * This function is employed to create files . * gzip * * @return boolean */ public function create_gzip () { if ($this->options['inmemory'] == 0) { $pwd = getcwd(); chdir( $this->options['basedir'] ); if ($fp = gzopen( $this->options['name'], "wb{$this->options['level']}" )) { fseek( $this->archive, 0 ); while ($temp = fread( $this->archive, 1048576 )) { gzwrite( $fp, $temp ); } gzclose( $fp ); chdir( $pwd ); } else { $this->error[] = "Could not open {$this->options['name']} for writing."; chdir( $pwd ); return 0; } } else { $this->archive = gzencode( $this->archive, $this->options['level'] ); } return 1; } /** * This function open a archive of the class gzip_file * * @return void */ public function open_archive () { return @gzopen( $this->options['name'], "rb" ); } } /** * * * This class is derived from the class archive, is employed to use files .bzip * * @package workflow.engine.classes * */ class bzip_file extends tar_file { /** * This function is the constructor of the class bzip_file * * @param string $name * @return void */ public function bzip_file ($name) { $this->tar_file( $name ); $this->options['type'] = "bzip"; } /** * This function is employed to create files . * bzip * * @return boolean */ public function create_bzip () { if ($this->options['inmemory'] == 0) { $pwd = getcwd(); chdir( $this->options['basedir'] ); if ($fp = bzopen( $this->options['name'], "wb" )) { fseek( $this->archive, 0 ); while ($temp = fread( $this->archive, 1048576 )) { bzwrite( $fp, $temp ); } bzclose( $fp ); chdir( $pwd ); } else { $this->error[] = "Could not open {$this->options['name']} for writing."; chdir( $pwd ); return 0; } } else { $this->archive = bzcompress( $this->archive, $this->options['level'] ); } return 1; } /** * This function open a archive of the class bzip_file * * @return void */ public function open_archive () { return @bzopen( $this->options['name'], "rb" ); } } /** * This class is derived from the class archive, is imployed to use files . * zip * * @package workflow.engine.classes */ class zip_file extends archive { public function zip_file ($name) { $this->archive( $name ); $this->options['type'] = "zip"; } /** * This function is used to create archives . * zip * * @return boolean */ public function create_zip () { $files = 0; $offset = 0; $central = ""; if (! empty( $this->options['sfx'] )) { if ($fp = @fopen( $this->options['sfx'], "rb" )) { $temp = fread( $fp, filesize( $this->options['sfx'] ) ); fclose( $fp ); $this->add_data( $temp ); $offset += strlen( $temp ); unset( $temp ); } else { $this->error[] = "Could not open sfx module from {$this->options['sfx']}."; } } $pwd = getcwd(); chdir( $this->options['basedir'] ); foreach ($this->files as $current) { if ($current['name'] == $this->options['name']) { continue; } $timedate = explode( " ", date( "Y n j G i s", $current['stat'][9] ) ); $timedate = ($timedate[0] - 1980 << 25) | ($timedate[1] << 21) | ($timedate[2] << 16) | ($timedate[3] << 11) | ($timedate[4] << 5) | ($timedate[5]); $block = pack( "VvvvV", 0x04034b50, 0x000A, 0x0000, (isset( $current['method'] ) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate ); if ($current['stat'][7] == 0 && $current['type'] == 5) { $block .= pack( "VVVvv", 0x00000000, 0x00000000, 0x00000000, strlen( $current['name2'] ) + 1, 0x0000 ); $block .= $current['name2'] . "/"; $this->add_data( $block ); $central .= pack( "VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000, (isset( $current['method'] ) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate, 0x00000000, 0x00000000, 0x00000000, strlen( $current['name2'] ) + 1, 0x0000, 0x0000, 0x0000, 0x0000, $current['type'] == 5 ? 0x00000010 : 0x00000000, $offset ); $central .= $current['name2'] . "/"; $files ++; $offset += (31 + strlen( $current['name2'] )); } elseif ($current['stat'][7] == 0) { $block .= pack( "VVVvv", 0x00000000, 0x00000000, 0x00000000, strlen( $current['name2'] ), 0x0000 ); $block .= $current['name2']; $this->add_data( $block ); $central .= pack( "VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000, (isset( $current['method'] ) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate, 0x00000000, 0x00000000, 0x00000000, strlen( $current['name2'] ), 0x0000, 0x0000, 0x0000, 0x0000, $current['type'] == 5 ? 0x00000010 : 0x00000000, $offset ); $central .= $current['name2']; $files ++; $offset += (30 + strlen( $current['name2'] )); } elseif ($fp = @fopen( $current['name'], "rb" )) { $temp = fread( $fp, $current['stat'][7] ); fclose( $fp ); $crc32 = crc32( $temp ); if (! isset( $current['method'] ) && $this->options['method'] == 1) { $temp = gzcompress( $temp, $this->options['level'] ); $size = strlen( $temp ) - 6; $temp = substr( $temp, 2, $size ); } else { $size = strlen( $temp ); } $block .= pack( "VVVvv", $crc32, $size, $current['stat'][7], strlen( $current['name2'] ), 0x0000 ); $block .= $current['name2']; $this->add_data( $block ); $this->add_data( $temp ); unset( $temp ); $central .= pack( "VvvvvVVVVvvvvvVV", 0x02014b50, 0x0014, $this->options['method'] == 0 ? 0x0000 : 0x000A, 0x0000, (isset( $current['method'] ) || $this->options['method'] == 0) ? 0x0000 : 0x0008, $timedate, $crc32, $size, $current['stat'][7], strlen( $current['name2'] ), 0x0000, 0x0000, 0x0000, 0x0000, 0x00000000, $offset ); $central .= $current['name2']; $files ++; $offset += (30 + strlen( $current['name2'] ) + $size); } else { $this->error[] = "Could not open file {$current['name']} for reading. It was not added."; } } $this->add_data( $central ); $this->add_data( pack( "VvvvvVVv", 0x06054b50, 0x0000, 0x0000, $files, $files, strlen( $central ), $offset, ! empty( $this->options['comment'] ) ? strlen( $this->options['comment'] ) : 0x0000 ) ); if (! empty( $this->options['comment'] )) { $this->add_data( $this->options['comment'] ); } chdir( $pwd ); return 1; } }