forked from Wavyzz/dolibarr
75 lines
2.1 KiB
PHP
75 lines
2.1 KiB
PHP
<?php
|
|
|
|
/*
|
|
* Copyleft 2002 Johann Hanne
|
|
*
|
|
* This is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This software is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this software; if not, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place,
|
|
* Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
/*
|
|
* This is the OLE::Storage_Lite Perl package ported to PHP
|
|
* OLE::Storage_Lite was written by Kawai Takanori, kwitknr@cpan.org
|
|
*/
|
|
|
|
require_once "class.ole_pps.php";
|
|
require_once "functions.ole.php";
|
|
|
|
class ole_pps_file extends ole_pps {
|
|
|
|
function ole_pps_file($sNm, $sData=false, $sFile=false) {
|
|
$this->No = false;
|
|
$this->Name = $sNm;
|
|
$this->Type = PpsType_File;
|
|
$this->PrevPps = false;
|
|
$this->NextPps = false;
|
|
$this->DirPps = false;
|
|
$this->Time1st = false;
|
|
$this->Time2nd = false;
|
|
$this->StartBlock = false;
|
|
$this->Size = false;
|
|
$this->Data = ($sFile===false) ? $sData : '';
|
|
$this->Child = false;
|
|
|
|
if ($sFile!==false) {
|
|
if (is_ressource($sFile)) {
|
|
$this->_PPS_FILE=$sFile;
|
|
} elseif ($sFile=="") {
|
|
$fname=tempnam("php_ole");
|
|
$this->_PPS_FILE=fopen($fname, "r+b");
|
|
} else {
|
|
$fname=$sFile;
|
|
$this->_PPS_FILE=fopen($fname, "r+b");
|
|
}
|
|
|
|
if ($sData!==false) {
|
|
fputs($this->_PPS_FILE, $sData);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
function append ($sData) {
|
|
if ($this->_PPS_FILE) {
|
|
fputs($this->_PPS_FILE, $sData);
|
|
} else {
|
|
$this->Data.=$sData;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
?>
|