gnh1201/seeddms-code
1
0
Fork 0
mirror of https://git.code.sf.net/p/seeddms/code synced 2025-05-11 12:11:19 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

- fixed creation of human readable archives

Browse Source
This commit is contained in:
steinm 2011-04-11 06:29:47 +00:00
parent 720d5532a8
commit 5aa68fb85a
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
op/op.CreateFolderArchive.php
View File

@ -37,7 +37,9 @@ if (!$user->isAdmin()) {
* be followed by '/'
*/
function TarAddHeader($f,$phisfn,$archfn) { /* {{{ */
$info=stat($phisfn);
$info=@stat($phisfn);
if($info === false)
return false;
$ouid=sprintf("%6s ", decoct($info[4]));
$ogid=sprintf("%6s ", decoct($info[5]));
$omode=sprintf("%6s ", decoct(fileperms($phisfn)));
@ -79,16 +81,17 @@ function TarAddHeader($f,$phisfn,$archfn) { /* {{{ */
// phisfn: path to file
// code by calmarius at nospam dot atw dot hu
function TarWriteContents($f,$phisfn) { /* {{{ */
if (@is_dir($phisfn)) {
return;
} else {
$size=filesize($phisfn);
$padding=$size % 512 ? 512-$size%512 : 0;
$f2=fopen($phisfn,"rb");
while (!feof($f2)) fwrite($f,fread($f2,1024*1024));
$pstr=sprintf("a%d",$padding);
fwrite($f,pack($pstr,''));
}
if(!file_exists($phisfn))
return;
if (@is_dir($phisfn)) {
return;
}
$size=filesize($phisfn);
$padding=$size % 512 ? 512-$size%512 : 0;
$f2=fopen($phisfn,"rb");
while (!feof($f2)) fwrite($f,fread($f2,1024*1024));
$pstr=sprintf("a%d",$padding);
fwrite($f,pack($pstr,''));
} /* }}} */
// Adds 1024 byte footer at the end of the tar file
@ -124,10 +127,10 @@ function createFolderTar($folder,$ark) { /* {{{ */
if (is_object($latestContent)) {
TarAddHeader(
$ark,
$dms->contentDir.$latestContent->getDir().$latestContent->getVersion().$latestContent->getFileType(),
$dms->contentDir.$latestContent->getPath(),
getFolderPathPlainAST($folder)."/".$document->getID()."_".mydmsDecodeString($latestContent->getOriginalFileName()));
TarWriteContents($ark, $dms->contentDir.$latestContent->getDir().$latestContent->getVersion().$latestContent->getFileType());
TarWriteContents($ark, $dms->contentDir.$latestContent->getPath());
}
} else {