$rarfile = ereg_replace('[a-z0-9]+', '..', $dest)."/$file"; exec("mkdir -p '$dest'"); exec("cd '$dest' && unrar x -o+ '$rarfile'", $void, $ret); } else { return $ret; } if ($ret) { $i++; brouteur_extract($file, $dest); } return $ret; } /** * Copy a source to a destination by either copying recursively a * directory or by downloading a file with a URL (only http:// is * supported) * @param string $name is the application name * @param string $src is the path or URL * @param string $dest is the absolute path inside the users directory * @return boolean false on error */ function brouteur_copy($name, $src, $dest) { global $error, $db; $ok = false; @mkdir($dest, 0777); @chmod($dest, 0777); $f = @fopen("$dest/test.php", 'w'); if ($f) { @fputs($f, ''); @fclose($f); @chmod("$dest/test.php", 0777); include("$dest/test.php"); } @unlink("$dest/test.php"); @rmdir("$dest"); if (!$ok) { $error = _("No write permissions in the destination directory"); return false; } if (substr($src, 0, 7) == "http://") { $filename = basename($src); $extractdir = tempnam("/tmp", "brouteur"); unlink($extractdir); mkdir($extractdir); if (!$http = @fopen($src, "rb")) { // Try to get a handle on $http with fsockopen instead ereg('^http://([^/]+)(/.*)$', $src, $eregs); $hostname = $eregs[1]; $path = $eregs[2]; $http = @fsockopen($hostname, 80); @fputs($http, "GET $path HTTP/1.1\nHost: $hostname\n\n"); } if ($http) { // Save the bits $f = fopen("$extractdir/$filename", "wb"); while (!feof($http)) { $bin = fgets($http, 16384); fwrite($f, $bin); #FIXME if (!trim($bin)) break; } fclose($f); fclose($http); } else { // Dammit, try with wget than exec("wget -q '$src' -O '$extractdir/$filename'", $void, $ret); if ($ret) { $error = _("Unable to download the web application's package."); return false; } } // Now extract that package if (!brouteur_extract("$extractdir/$filename", $extractdir)) { $error = _("Unable to extract the files"); return false; } unlink("$extractdir/$filename"); // Corrupt $src since we want to copy $extractdir/packagename $hd = opendir($extractdir); while ($file = readdir($hd)) { if ($file != "." && $file != "..") { $src = "$extractdir/$file"; break; } } } // Last step // Copy -R $src = addslashes($src); $dest = addslashes($dest); $array = explode('/', $dest); $dir = ""; foreach ($array as $v) { $dir .= "$v/"; @mkdir($dest); } #TODO write a recursive copy function(?) exec("cp -Rf '$src'/* '$dest'", $void, $ret); if ($ret) { $error = _("Errors happened while copying the source to destination."); return false; } $error = _("The web application has been successfully installed."); return true; } ?>