[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qsos-commits] qsos/apps/phpviewer QSOSDocument.php all.png co...
From: |
Raphaël Semeteys |
Subject: |
[Qsos-commits] qsos/apps/phpviewer QSOSDocument.php all.png co... |
Date: |
Fri, 02 Feb 2007 07:20:59 +0000 |
CVSROOT: /sources/qsos
Module name: qsos
Changes by: Raphaël Semeteys <rsemeteys> 07/02/02 07:20:58
Removed files:
apps/phpviewer : QSOSDocument.php all.png collapse.png
config.php decrease-font.png expand.png
export_oo.php graph.png hide-comments.png
html.png increase-font.png index.php
loadremote.php ods.png pclzip.lib.php
phpviewer.css qsos.png radar.php
show-comments.png show.php template.zip
writeremote.php wz_tooltip.js
Log message:
phpviewer is now officially named o3s
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/QSOSDocument.php?cvsroot=qsos&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/all.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/collapse.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/config.php?cvsroot=qsos&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/decrease-font.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/expand.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/export_oo.php?cvsroot=qsos&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/graph.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/hide-comments.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/html.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/increase-font.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/index.php?cvsroot=qsos&r1=1.7&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/loadremote.php?cvsroot=qsos&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/ods.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/pclzip.lib.php?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/phpviewer.css?cvsroot=qsos&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/qsos.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/radar.php?cvsroot=qsos&r1=1.5&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/show-comments.png?cvsroot=qsos&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/show.php?cvsroot=qsos&r1=1.7&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/template.zip?cvsroot=qsos&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/writeremote.php?cvsroot=qsos&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/qsos/apps/phpviewer/wz_tooltip.js?cvsroot=qsos&r1=1.1&r2=0
Patches:
Index: QSOSDocument.php
===================================================================
RCS file: QSOSDocument.php
diff -N QSOSDocument.php
--- QSOSDocument.php 14 Nov 2006 00:18:39 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,208 +0,0 @@
-<?php
-/*
-** Copyright (C) 2006 Atos Origin
-**
-** Author: Rapha� Semeteys <address@hidden>
-**
-** This program is free software; you can redistribute it and/or modify
-** it under the terms of the GNU General Public License as published by
-** the Free Software Foundation; either version 2 of the License, or
-** (at your option) any later version.
-**
-** This program 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 General Public License for more details.
-**
-** You should have received a copy of the GNU General Public License
-** along with this program; if not, write to the Free Software
-** Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
-**
-**
-** QSOSDocument.php: PHP classes to access and manipulate QSOS documents
-**
-*/
-
-//Class representing a QSOS criterion (<section/> or <element/>)
-class QSOSCriterion {
- var $name;
- var $title;
- var $children;
- var $score;
-}
-
-//Class representing a QSOS author (<author/>)
-class Author {
- var $name;
- var $email;
-}
-
-//Class representing a QSOS document
-class QSOSDocument {
- var $doc;
- var $xpath;
-
- //$file: filename of the QSOS document to load
- function __construct($file) {
- if (file_exists($file)) {
- $this->doc = new DOMDocument();
- $this->doc->load($file);
- $this->xpath = new DOMXPath($this->doc);
- } else {
- return 'Failed to open file '.$file;
- }
- }
-
- //$name: name of the tested element
- //Returns: true if element has children elements
- public function hassubelements($name) {
- $query = "//address@hidden'".$name."']/element";
- $nb = $this->xpath->query($query);
- return $nb->length;
- }
-
- //$element: name of the XML header tag
- //Returns: the value of a header tag (like appname, release, ...)
- public function getkey($element) {
- $nodes = $this->xpath->query("//".$element);
- if ($nodes->length != 0) {
- return $nodes->item(0)->nodeValue;
- } else {
- return "";
- }
- }
-
- //$element: name of the element
- //$subelement: name of the XML tag
- //Returns: value of the XML tag included in the element
- public function getgeneric($element, $subelement) {
- $nodes =
$this->xpath->query("//address@hidden'".$element."']/".$subelement);
- if ($nodes->length != 0) {
- return $nodes->item(0)->nodeValue;
- } else {
- return "";
- }
- }
-
- //$element: name of the element
- //Returns: value of the <score/> tag included in the element
- public function getkeyscore($element) {
- $nodes =
$this->xpath->query("//address@hidden'".$element."']/score");
- if ($nodes->length != 0) {
- return $nodes->item(0)->nodeValue;
- } else {
- return -1;
- }
- }
-
- //$element: name of the element (<section/> or <element/>)
- //Returns: value of the "title" attribute of the element
- public function getkeytitle($element) {
- $nodes = $this->xpath->query("//address@hidden'".$element."']");
- if ($nodes->length != 0) {
- return $nodes->item(0)->getAttribute('title');
- } else {
- return "";
- }
- }
-
- //Returns: array of Author objects (cf. Author class above)
- public function getauthors() {
- $authors = array();
-
- $nodes = $this->xpath->query("//author");
- for ($i=0; $i < $nodes->length; $i++) {
- $author = new Author();
-
- $names = $nodes->item($i)->getElementsByTagName("name");
- if ($names->length > 0) {
- $author->name = $names->item(0)->textContent;
- } else {
- $author->name = "";
- }
-
- $titles =
$nodes->item($i)->getElementsByTagName("email");
- if ($titles->length > 0) {
- $author->email = $titles->item(0)->textContent;
- } else {
- $author->email = "";
- }
- array_push($authors, $author);
- }
-
- return $authors;
- }
-
- //Returns the name of a criterion's parent
- function getParent($name) {
- $nodes = $this->xpath->query("//address@hidden'".$name."']");
- if ($nodes->length > 0) {
- return $nodes->item(0)->parentNode;
- }
- else {
- return null;
- }
- }
-
- //Returns: tree of QSOSCriterion objects representing the scored criteria
of the QSOS document
- public function getTree() {
- $tree = array();
- $sections = $this->xpath->query("//section");
- foreach ($sections as $section) {
- $criterion = new QSOSCriterion();
- $criterion->name = $section->getAttribute('name');
- $criterion->title = $section->getAttribute('title');
- $criterion->children =
$this->getSubTree($criterion->name);
- $criterion->score =
$this->renderScore($criterion->children);
- array_push($tree, $criterion);
- }
- return $tree;
- }
-
- //Recursive function
- //$name: name of the element
- //Returns: tree of QSOSCriterion objects representing the scored criteria
of the element
- public function getSubTree($name) {
- $tree = array();
- $elements =
$this->xpath->query("//address@hidden'".$name."']/element");
- foreach ($elements as $element) {
- $criterion = new QSOSCriterion();
- $criterion->name = $element->getAttribute('name');
- $criterion->title = $element->getAttribute('title');
-
- if ($this->hassubelements($criterion->name)) {
- $criterion->children =
$this->getSubTree($criterion->name);
- $criterion->score =
$this->renderScore($criterion->children);
- array_push($tree, $criterion);
- } else {
- $criterion->children = null;
- $criterion->score =
$this->getkeyscore($criterion->name);
- if ($criterion->score == "") $criterion->score
= null;
- if ($criterion->score != -1) array_push($tree,
$criterion);
- }
- }
- return $tree;
- }
-
- //$tree: tree of QSOSCriterion objects to render
- //Returns: the rendered score of the single QSOScriterion in $tree
- //Recursive function
- public function renderScore($tree) {
- $score = 0;
- $sum = 0;
- $totalWeight = 0;
-
- for ($i=0; $i < count($tree); $i++) {
- $totalWeight++;
- if ($tree[$i]->score == null) {
- $isRenderable = false;
- }
- $sum += round($tree[$i]->score, 2);
- }
-
- $score = round(($sum/$totalWeight), 2);
-
- return $score;
- }
-}
-?>
\ No newline at end of file
Index: all.png
===================================================================
RCS file: all.png
diff -N all.png
Binary files /tmp/cvso7Jsrg and /dev/null differ
Index: collapse.png
===================================================================
RCS file: collapse.png
diff -N collapse.png
Binary files /tmp/cvsnIybgh and /dev/null differ
Index: config.php
===================================================================
RCS file: config.php
diff -N config.php
--- config.php 11 Dec 2006 22:49:02 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,8 +0,0 @@
-<?php
-$sheet = "sheets";
-$sheet_web = "http://localhost/sheets";
-$template = "template";
-$template_web = "http://localhost/template";
-$delim = "/";
-$jpgraph_path = "jpgraph-2.1.3/src/"
-?>
\ No newline at end of file
Index: decrease-font.png
===================================================================
RCS file: decrease-font.png
diff -N decrease-font.png
Binary files /tmp/cvsnX0okg and /dev/null differ
Index: expand.png
===================================================================
RCS file: expand.png
diff -N expand.png
Binary files /tmp/cvsQnzKoj and /dev/null differ
Index: export_oo.php
===================================================================
RCS file: export_oo.php
diff -N export_oo.php
--- export_oo.php 24 Nov 2006 08:45:12 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,919 +0,0 @@
-<?php
-include("QSOSDocument.php");
-require_once('pclzip.lib.php');
-
-$file = $_GET['f'];
-$odsfile = basename($file, ".qsos").".ods";
-
-//Global variables
-$numrow;
-$graph_formula_content;
-$graph_formula_module;
-
-//loop
-function showtree($output, $input, $tree, $table0, $table, $depth) {
- global $numrow;
- global $graph_formula_content;
- global $graph_formula_module;
- $children = array();
-
- $new_depth = $depth + 1;
- $offset = $new_depth*10;
- $idF = 0;
-
- switch ($depth) {
- case '0':
- //Section
- $style_row = 'ro1';
- $style_title = 'ce2';
- $style_comment = 'ce2';
- $style_score = 'ce5';
- $style_weight = 'ce5';
- break;
- case '1':
- //Level 1 criterion
- $style_row = 'ro1';
- $style_title = 'ce3';
- $style_comment = 'ce3';
- $style_score = 'ce6';
- $style_weight = 'ce6';
- break;
- case '2':
- //Level 2 criterion
- $style_row = 'ro1';
- $style_title = '';
- $style_comment = '';
- $style_score = '';
- $style_weight = '';
- break;
- default:
- //Level N criterion, N > 2
- $style_row = 'ro1';
- $style_title = 'ce8';
- $style_comment = 'ce8';
- $style_score = 'ce9';
- $style_weight = 'ce9';
- break;
- }
-
- $graph_formula_content1 = '';
- $graph_formula_content2 = '';
- $graph_formula_module1 = '';
- $graph_formula_module2 = '';
-
- foreach($tree as $element) {
- $name = $element->name;
- $title = $element->title;
- $subtree = $element->children;
- $comment = $input->getgeneric($name, "comment");
-
- $numrow++;
- array_push($children, $numrow);
-
- if ($depth == '0') {
- $graph_formula_content1 .=
"Evaluation.A$numrow:Evaluation.A$numrow ";
- $graph_formula_content2 .=
"Evaluation.C$numrow:Evaluation.C$numrow ";
- $graph_formula_module1 .= "\$Evaluation.\$A$numrow;";
- $graph_formula_module2 .= "\$Evaluation.\$C$numrow;";
- }
-
- //New row for first sheet
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name",$style_row);
- //Criterion
- $cell = $output->createElement('table:table-cell');
- if ($style_title != "")
$cell->setAttribute("table:style-name",$style_title);
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$title);
- $cell->appendChild($text);
- $row->appendChild($cell);
- //Desc0
- $cell = $output->createElement('table:table-cell');
- if ($style_title != "")
$cell->setAttribute("table:style-name",$style_title);
- $cell->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getgeneric($name, "desc0"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- //Desc1
- $score = $output->createElement('table:table-cell');
- if ($style_title != "")
$score->setAttribute("table:style-name",$style_title);
- $score->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getgeneric($name, "desc1"));
- $score->appendChild($text);
- $row->appendChild($score);
- //Desc2
- $cell = $output->createElement('table:table-cell');
- if ($style_title != "")
$cell->setAttribute("table:style-name",$style_title);
- $cell->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getgeneric($name, "desc2"));
- $cell->appendChild($text);
- $row->appendChild($cell);
-
- $table0->appendChild($row);
-
- //New row for second sheet
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name",$style_row);
- //Criterion
- $cell = $output->createElement('table:table-cell');
- if ($style_title != "")
$cell->setAttribute("table:style-name",$style_title);
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$title);
- $cell->appendChild($text);
- $row->appendChild($cell);
- //Comment
- $cell = $output->createElement('table:table-cell');
- if ($style_comment != "")
$cell->setAttribute("table:style-name",$style_comment);
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$comment);
- $cell->appendChild($text);
- $row->appendChild($cell);
- //Score
- $score = $output->createElement('table:table-cell');
- if ($style_score != "")
$score->setAttribute("table:style-name",$style_score);
- $score->setAttribute("office:value-type","float");
- $score->setAttribute("office:value",$element->score);
- $text = $output->createElement('text:p',$element->score);
- $score->appendChild($text);
- $row->appendChild($score);
- //Weight
- $cell = $output->createElement('table:table-cell');
- if ($style_weight != "")
$cell->setAttribute("table:style-name",$style_weight);
- $cell->setAttribute("office:value-type","float");
- $cell->setAttribute("office:value","1");
- $text = $output->createElement('text:p',"1");
- $cell->appendChild($text);
- $row->appendChild($cell);
-
- $table->appendChild($row);
-
- if ($subtree) {
- //Subcriteria regrouping
- $group0 =
$output->createElement('table:table-row-group');
- $group =
$output->createElement('table:table-row-group');
- $return = showtree($output, $input, $subtree, $group0,
$group, $new_depth);
- //Set score formula
-
$score->setAttribute("table:formula",getFormula($return));
- $table0->appendChild($group0);
- $table->appendChild($group);
- }
- }
-
- if ($depth == 0) {
- $graph_formula_content =
$graph_formula_content1.$graph_formula_content2;
- $graph_formula_module =
$graph_formula_module1.$graph_formula_module2;
- return $children;
- } else {
- return $children;
- }
-}
-
-function getFormula($cells) {
- $quotient = "";
- $dividend = "";
- for ($i=0; $i < count($cells); $i++) {
- if ($i != 0) {
- $quotient .= "+";
- $dividend .= "+";
- }
- $quotient .= "[.C".$cells[$i]."]*[.D".$cells[$i]."]";
- $dividend .= "[.D".$cells[$i]."]";
- }
- return "oooc:=($quotient)/($dividend)";
-}
-
-function createODS($file) {
- global $numrow;
- global $odsfile;
- $input = new QSOSDocument("$file");
- $output = new DOMDocument();
-
- //Document element
- $document = $output->createElement('office:document-content');
-
$document->setAttribute("xmlns:office","urn:oasis:names:tc:opendocument:xmlns:office:1.0");
-
$document->setAttribute("xmlns:style","urn:oasis:names:tc:opendocument:xmlns:style:1.0");
-
$document->setAttribute("xmlns:text","urn:oasis:names:tc:opendocument:xmlns:text:1.0");
-
$document->setAttribute("xmlns:table","urn:oasis:names:tc:opendocument:xmlns:table:1.0");
-
$document->setAttribute("xmlns:draw","urn:oasis:names:tc:opendocument:xmlns:drawing:1.0");
-
$document->setAttribute("xmlns:fo","urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0");
- $document->setAttribute("xmlns:xlink","http://www.w3.org/1999/xlink");
- $document->setAttribute("xmlns:dc","http://purl.org/dc/elements/1.1/");
-
$document->setAttribute("xmlns:meta","urn:oasis:names:tc:opendocument:xmlns:meta:1.0");
-
$document->setAttribute("xmlns:number","urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0");
-
$document->setAttribute("xmlns:svg","urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0");
-
$document->setAttribute("xmlns:chart","urn:oasis:names:tc:opendocument:xmlns:chart:1.0");
-
$document->setAttribute("xmlns:dr3d","urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0");
-
$document->setAttribute("xmlns:math","http://www.w3.org/1998/Math/MathML");
-
$document->setAttribute("xmlns:form","urn:oasis:names:tc:opendocument:xmlns:form:1.0");
-
$document->setAttribute("xmlns:scrip","urn:oasis:names:tc:opendocument:xmlns:script:1.0");
-
$document->setAttribute("xmlns:ooo","http://openoffice.org/2004/office");
-
$document->setAttribute("xmlns:ooow","http://openoffice.org/2004/writer");
- $document->setAttribute("xmlns:oooc","http://openoffice.org/2004/calc");
-
$document->setAttribute("xmlns:dom","http://www.w3.org/2001/xml-events");
- $document->setAttribute("xmlns:xforms","http://www.w3.org/2002/xforms");
- $document->setAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema");
-
$document->setAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
- $document->setAttribute("office:version","1.0");
-
- $document->appendChild($output->createElement('office:scripts'));
-
- //Font declaration
- $fontfaces = $output->createElement('office:font-face-decls');
-
- $font = $output->createElement('style:font-face');
- $font->setAttribute("style:name","Lucida Sans Unicode");
- $font->setAttribute("svg:font-family","'Lucida Sans Unicode'");
- $font->setAttribute("style:font-pitch","variable");
- $fontfaces->appendChild($font);
-
- $font = $output->createElement('style:font-face');
- $font->setAttribute("style:name","Tahoma");
- $font->setAttribute("svg:font-family","Tahoma");
- $font->setAttribute("style:font-pitch","variable");
- $fontfaces->appendChild($font);
-
- $font = $output->createElement('style:font-face');
- $font->setAttribute("style:name","Arial");
- $font->setAttribute("svg:font-family","Arial");
- $font->setAttribute("style:font-pitch","variable");
- $fontfaces->appendChild($font);
-
- $font = $output->createElement('style:font-face');
- $font->setAttribute("style:name","Arial");
- $font->setAttribute("svg:font-family","Arial");
- $font->setAttribute("style:font-family-generic","swiss");
- $font->setAttribute("style:font-pitch","variable");
- $fontfaces->appendChild($font);
-
- $document->appendChild($fontfaces);
-
- //Styles
- $styles = $output->createElement('office:automatic-styles');
-
- //co0
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","co0");
- $style->setAttribute("style:family","table-column");
- $substyle = $output->createElement('style:table-column-properties');
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:column-width","4.717cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //co1
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","co1");
- $style->setAttribute("style:family","table-column");
- $substyle = $output->createElement('style:table-column-properties');
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:column-width","5.117cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //co2
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","co2");
- $style->setAttribute("style:family","table-column");
- $substyle = $output->createElement('style:table-column-properties');
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:column-width","10.931cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //co3
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","co3");
- $style->setAttribute("style:family","table-column");
- $substyle = $output->createElement('style:table-column-properties');
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:column-width","1.452cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //co4
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","co4");
- $style->setAttribute("style:family","table-column");
- $substyle = $output->createElement('style:table-column-properties');
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:column-width","1.452cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ro1
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ro1");
- $style->setAttribute("style:family","table-row");
- $substyle = $output->createElement('style:table-row-properties');
- $substyle->setAttribute("style:row-height","0.453cm");
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:use-optimal-row-height","true");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ro2
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ro2");
- $style->setAttribute("style:family","table-row");
- $substyle = $output->createElement('style:table-row-properties');
- $substyle->setAttribute("style:row-height","0.453cm");
- $substyle->setAttribute("fo:break-before","auto");
- $substyle->setAttribute("style:use-optimal-row-height","true");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ta1: basic table
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ta1");
- $style->setAttribute("style:family","table");
- $style->setAttribute("style:master-page-name","Default");
- $substyle = $output->createElement('style:table-properties');
- $substyle->setAttribute("table:display","true");
- $substyle->setAttribute("style:writing-mode","lr-tb");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce1
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce1");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:wrap-option","wrap");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:text-properties');
- $substyle->setAttribute("fo:color","#ffffff");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce2
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce2");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:background-color","#2323dc");
- $substyle->setAttribute("fo:wrap-option","wrap");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:text-properties');
- $substyle->setAttribute("fo:color","#ffffff");
- $substyle->setAttribute("fo:font-weight","bold");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce3
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce3");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:wrap-option","wrap");
- $substyle->setAttribute("style:vertical-align","middle");
- $substyle->setAttribute("fo:background-color","#99ccff");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce4
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce4");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:wrap-option","wrap");
- $substyle->setAttribute("style:vertical-align","middle");
- $substyle->setAttribute("fo:background-color","#ccffff");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce5
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce5");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:background-color","#2323dc");
- $substyle->setAttribute("style:text-align-source","fix");
- $substyle->setAttribute("style:repeat-content","false");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:paragraph-properties');
- $substyle->setAttribute("fo:text-align","center");
- $substyle->setAttribute("fo:margin-left","0cm");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:text-properties');
- $substyle->setAttribute("fo:color","#ffffff");
- $substyle->setAttribute("fo:font-weight","bold");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce6
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce6");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:background-color","#99ccff");
- $substyle->setAttribute("style:text-align-source","fix");
- $substyle->setAttribute("style:repeat-content","false");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:paragraph-properties');
- $substyle->setAttribute("fo:text-align","center");
- $substyle->setAttribute("fo:margin-left","0cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce7
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce7");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("fo:background-color","#ccffff");
- $substyle->setAttribute("style:text-align-source","fix");
- $substyle->setAttribute("style:repeat-content","false");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:paragraph-properties');
- $substyle->setAttribute("fo:text-align","center");
- $substyle->setAttribute("fo:margin-left","0cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce8
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce8");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("style:text-align-source","fix");
- $substyle->setAttribute("style:repeat-content","false");
- $substyle->setAttribute("fo:wrap-option","wrap");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- //ce9
- $style = $output->createElement('style:style');
- $style->setAttribute("style:name","ce9");
- $style->setAttribute("style:family","table-cell");
- $style->setAttribute("style:parent-style-name","Default");
- $substyle = $output->createElement('style:table-cell-properties');
- $substyle->setAttribute("style:text-align-source","fix");
- $substyle->setAttribute("style:repeat-content","false");
- $substyle->setAttribute("style:vertical-align","middle");
- $style->appendChild($substyle);
- $substyle = $output->createElement('style:paragraph-properties');
- $substyle->setAttribute("fo:text-align","center");
- $substyle->setAttribute("fo:margin-left","0cm");
- $style->appendChild($substyle);
- $styles->appendChild($style);
-
- $document->appendChild($styles);
-
- //Document body
- $body = $output->createElement('office:body');
- $spreadsheet = $output->createElement('office:spreadsheet');
-
- //First sheet (Criteria)
- $table0 = $output->createElement('table:table');
- $table0->setAttribute("table:name","Criteria");
- $table0->setAttribute("table:style-name","ta1");
- $table0->setAttribute("table:print","false");
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co0");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table0->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co0");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table0->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co0");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table0->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co0");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table0->appendChild($column);
-
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $row->setAttribute("table:number-rows-repeated","2");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","Default");
- $cell->setAttribute("table:number-columns-repeated","4");
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- //Software family
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Software family");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getkey("qsosappfamily"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- //QSOS version
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"QSOS version");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("qsosformat"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- //Template version
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Template version");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getkey("qsosspecificformat"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $row->setAttribute("table:number-rows-repeated","2");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","Default");
- $cell->setAttribute("table:number-columns-repeated","4");
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- //Criteria
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Criterion');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Score 0');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Score 1');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Score 2');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $table0->appendChild($row);
-
- //Second sheet (Evaluation)
- $table = $output->createElement('table:table');
- $table->setAttribute("table:name","Evaluation");
- $table->setAttribute("table:style-name","ta1");
- $table->setAttribute("table:print","false");
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co1");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co2");
- $column->setAttribute("table:default-cell-style-name","ce4");
- $table->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co3");
- $column->setAttribute("table:default-cell-style-name","ce7");
- $table->appendChild($column);
-
- $column = $output->createElement('table:table-column');
- $column->setAttribute("table:style-name","co4");
- $column->setAttribute("table:default-cell-style-name","ce7");
- $table->appendChild($column);
-
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $row->setAttribute("table:number-rows-repeated","2");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","Default");
- $cell->setAttribute("table:number-columns-repeated","4");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Header
- //Application
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Application");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("appname"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Release
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Release");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("release"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Software family
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Software family");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text =
$output->createElement('text:p',$input->getkey("qsosappfamily"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //License
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"License");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("licensedesc"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Url
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Website");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("url"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Description
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Description");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("desc"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Authors
- $authors = $input->getauthors();
- $list = "";
- for ($i=0; $i < count($authors); $i++) {
- if ($i != 0) {
- $list .= ", ";
- }
- $list .= $authors[$i]->name." (".$authors[$i]->email.")";
- }
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Authors");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$list);
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Creation date
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Creation date");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("creation"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Validation date
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',"Validation date");
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p',$input->getkey("validation"));
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce8");
- $cell->setAttribute("table:number-columns-repeated","2");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $row->setAttribute("table:number-rows-repeated","2");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","Default");
- $cell->setAttribute("table:number-columns-repeated","4");
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Criteria
- $row = $output->createElement('table:table-row');
- $row->setAttribute("table:style-name","ro1");
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Criterion');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce2");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Comment');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce5");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Score');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $cell = $output->createElement('table:table-cell');
- $cell->setAttribute("table:style-name","ce5");
- $cell->setAttribute("office:value-type","string");
- $text = $output->createElement('text:p','Weight');
- $cell->appendChild($text);
- $row->appendChild($cell);
- $table->appendChild($row);
-
- //Init row counter
- $numrow = 14;
-
- //Init loop
- showtree($output, $input, $input->getTree(), $table0, $table, 0);
-
- $spreadsheet->appendChild($table0);
- $spreadsheet->appendChild($table);
- $body->appendChild($spreadsheet);
- $document->appendChild($body);
- $output->appendChild($document);
-
- $tempdir = "/tmp/".uniqid();
- mkdir($tempdir, 0770);
- $output->save("$tempdir/content.xml");
-
- copy("template.zip", "ods/$odsfile");
-
- $oofile = new PclZip("ods/$odsfile");
- $v_list = $oofile->add("$tempdir/content.xml", PCLZIP_OPT_REMOVE_PATH,
$tempdir);
- if ($v_list == 0) {
- die("Error interne");
- }
-}
-
-if (!(file_exists("ods/$odsfile"))) {
- createODS($file);
-}
-
-header("Location: ods/$odsfile");
-exit;
-
-?>
\ No newline at end of file
Index: graph.png
===================================================================
RCS file: graph.png
diff -N graph.png
Binary files /tmp/cvsyNqsIi and /dev/null differ
Index: hide-comments.png
===================================================================
RCS file: hide-comments.png
diff -N hide-comments.png
Binary files /tmp/cvsTXmQSl and /dev/null differ
Index: html.png
===================================================================
RCS file: html.png
diff -N html.png
Binary files /tmp/cvs2sumnm and /dev/null differ
Index: increase-font.png
===================================================================
RCS file: increase-font.png
diff -N increase-font.png
Binary files /tmp/cvs6jNyJd and /dev/null differ
Index: index.php
===================================================================
RCS file: index.php
diff -N index.php
--- index.php 19 Nov 2006 14:57:36 -0000 1.7
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,109 +0,0 @@
-<html>
-<head>
-<LINK REL=StyleSheet HREF="phpviewer.css" TYPE="text/css"/>
-<script>
-function toggleSVG() {
- var svg = document.getElementById("check").getAttribute("svg");
- var links = document.getElementsByTagName("a");
- for(var i=0; i < links.length; i++) {
- var ref = links[i].getAttribute("href");
- if (svg == "on") {
- if (ref.search(/&svg=yes/) != -1) ref =
ref.split("&svg=")[0];
- document.getElementById("check").setAttribute("svg",
"off");
- } else {
- if (ref.search(/&svg=yes/) == -1) ref += "&svg=yes";
- document.getElementById("check").setAttribute("svg",
"on");
- }
-
- links[i].setAttribute("href", ref);
- }
-
-}
-</script>
-</head>
-
-<body>
-<center>
-<img src="qsos.png"/>
-<br/><br/>
-<?php
-
-include("config.php");
-
-$family = $_GET['f'];
-
-function getFamilies($dir) {
- global $delim;
- $families = array();
- if (is_dir($dir)) {
- if ($dh = opendir($dir)) {
- while (($file = readdir($dh)) !== false) {
- if (is_dir($dir.$delim.$file) && ($file !=
'CVS') && ($file != '.') && ($file != '..') && ($file != 'include') && ($file
!= 'template') && ($file != 'templates')) {
- array_push($families, $file);
- }
- }
- closedir($dh);
- }
- }
- return (isset($families) ? $families : false);
-}
-
-function retrieveTree($path) {
- global $delim;
-
- if (address@hidden($path)) {
- while (($element=readdir($dir))!== false) {
- if (is_dir($path.$delim.$element) && $element != "." &&
$element != ".." && $element != "CVS" && $element != "template" && $element !=
"templates") {
- $array[$element] = retrieveTree($path.$delim.$element);
- } elseif (substr($element, -5) == ".qsos") {
- $array[] = $element;
- }
- }
- closedir($dir);
- }
- return (isset($array) ? $array : false);
-}
-
-if (!isset($family)) {
- $families = getFamilies($sheet);
- echo "<div>Select a software family:<br/><br/>\n";
- echo "<table style='border-collapse: collapse'>\n";
- echo "<tr class='title'><td>Software families</td></tr>\n";
- for ($i=0; $i<count($families); $i++) {
- echo "<tr class='level1'
onmouseover=\"this.setAttribute('class','highlight')\"
onmouseout=\"this.setAttribute('class','level1')\"><td><a
href='index.php?f=$families[$i]'>$families[$i]</a></td></tr>\n";
- }
- echo "</table></div>\n";
-} else {
- $tree= retrieveTree($sheet.$delim.$family);
- $keys = array_keys($tree);
-
- echo "<div>Select a software:<br/><br/>\n";
- echo "<form action='show.php'>\n";
- echo "<table>\n";
- echo "<tr class='title'><td>$family</td><td align='center'>HTML</td><td
align='center'>OpenDocument</td><td><input type='submit'
value='Compare'></td></tr>\n";
- for ($i=0; $i<count($keys); $i++) {
- if (!is_int($keys[$i])) {
- echo "<tr class='level0'><td
colspan='4'>$keys[$i]</td></tr>\n";
- for ($j=0; $j<count($tree[$keys[$i]]); $j++) {
- $file = $tree[$keys[$i]][$j];
- $link =
$sheet.$delim.$family.$delim.$keys[$i].$delim.$file;
- $name = basename($file, ".qsos");
- $odsfile = $name.".ods";
-
- echo "<tr class='level1'
onmouseover=\"this.setAttribute('class','highlight')\"
onmouseout=\"this.setAttribute('class','level1')\">\n";
- echo "<td>$name</td>\n";
- echo "<td align='center'><a
href='show.php?f[]=$link&svg=yes'><img src='html.png' border='0'/></a></td>\n";
- echo "<td align='center'><a
href='export_oo.php?f=$link'><img src='ods.png' border='0'/></a></td>\n";
- echo "<td align='center'><input type='checkbox'
name='f[]' value='$link'></td></tr>\n";
- }
- }
- }
- echo "</table><br/>";
- echo "My brower supports SVG <input id='check' type='checkbox'
name='svg' value='yes' onclick='toggleSVG()' svg='on' checked>";
- echo "</form></div>\n";
-}
-
-?>
-</center>
-</body>
-</html>
\ No newline at end of file
Index: loadremote.php
===================================================================
RCS file: loadremote.php
diff -N loadremote.php
--- loadremote.php 11 Dec 2006 22:50:13 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,64 +0,0 @@
-<?php
-include("config.php");
-$output = new DOMDocument();
-
-$selector = $_REQUEST["tpl"];
-if (isset($selector) && $selector == "yes") $list_templates = true;
-
-function getListTemplates($path, $webpath) {
- global $output;
- global $delim;
-
- $templates = $output->createElement("templates");
- if (is_dir($path) && $dh = opendir($path)) {
- while (($file = readdir($dh)) !== false) {
- if (substr($file, -5) == ".qsos") {
- $newtreeitem = $output->createElement("item");
- $newtreeitem->setAttribute("id",
$webpath.$delim.$file);
- $newtreeitem->setAttribute("label", $file);
- $templates->appendChild($newtreeitem);
- }
- }
- closedir($dh);
- }
- return $templates;
-}
-
-function buildTreeSheets($path, $webpath) {
- global $output;
- global $delim;
-
- $children = $output->createElement("children");
- if (is_dir($path) && $dh = opendir($path)) {
- while (($file = readdir($dh)) !== false) {
- $subpath = $path.$delim.$file;
- $newwebpath = $webpath.$delim.$file;
- if (is_dir($subpath) && ($file != 'CVS') && ($file !=
'.') && ($file != '..') && ($file != 'include') && ($file != 'template') &&
($file != 'templates') && ($file != '.svn')) {
- $newtreeitem = $output->createElement("item");
- $newtreeitem->setAttribute("id", $newwebpath);
- $newtreeitem->setAttribute("label", $file);
-
$newtreeitem->appendChild(buildTreeSheets($subpath, $newwebpath));
- $children->appendChild($newtreeitem);
- } elseif (substr($file, -5) == ".qsos") {
- $newtreeitem = $output->createElement("item");
- $newtreeitem->setAttribute("id", $newwebpath);
- $newtreeitem->setAttribute("label", $file);
- $children->appendChild($newtreeitem);
- }
- }
- closedir($dh);
- }
- return $children;
-}
-
-$doc = $output->createElement("Document");
-if ($list_templates) {
- $output->appendChild(getListTemplates($template, $template_web));
-} else {
- $output->appendChild(buildTreeSheets($sheet, $sheet_web));
-}
-
-header('Content-type: text/xml');
-echo $output->saveXML();
-
-?>
\ No newline at end of file
Index: ods.png
===================================================================
RCS file: ods.png
diff -N ods.png
Binary files /tmp/cvs993zRf and /dev/null differ
Index: pclzip.lib.php
===================================================================
RCS file: pclzip.lib.php
diff -N pclzip.lib.php
--- pclzip.lib.php 11 Nov 2006 00:11:40 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,5748 +0,0 @@
-<?php
-//
--------------------------------------------------------------------------------
-// PhpConcept Library - Zip Module 2.5
-//
--------------------------------------------------------------------------------
-// License GNU/LGPL - Vincent Blavet - March 2006
-// http://www.phpconcept.net
-//
--------------------------------------------------------------------------------
-//
-// Presentation :
-// PclZip is a PHP library that manage ZIP archives.
-// So far tests show that archives generated by PclZip are readable by
-// WinZip application and other tools.
-//
-// Description :
-// See readme.txt and http://www.phpconcept.net
-//
-// Warning :
-// This library and the associated files are non commercial, non professional
-// work.
-// It should not have unexpected results. However if any damage is caused by
-// this software the author can not be responsible.
-// The use of this software is at the risk of the user.
-//
-//
--------------------------------------------------------------------------------
-// $Id: pclzip.lib.php,v 1.1 2006/11/11 00:11:40 rsemeteys Exp $
-//
--------------------------------------------------------------------------------
-
- // ----- Constants
- define( 'PCLZIP_READ_BLOCK_SIZE', 2048 );
-
- // ----- File list separator
- // In version 1.x of PclZip, the separator for file list is a space
- // (which is not a very smart choice, specifically for windows paths !).
- // A better separator should be a comma (,). This constant gives you the
- // abilty to change that.
- // However notice that changing this value, may have impact on existing
- // scripts, using space separated filenames.
- // Recommanded values for compatibility with older versions :
- //define( 'PCLZIP_SEPARATOR', ' ' );
- // Recommanded values for smart separation of filenames.
- define( 'PCLZIP_SEPARATOR', ',' );
-
- // ----- Error configuration
- // 0 : PclZip Class integrated error handling
- // 1 : PclError external library error handling. By enabling this
- // you must ensure that you have included PclError library.
- // [2,...] : reserved for futur use
- define( 'PCLZIP_ERROR_EXTERNAL', 0 );
-
- // ----- Optional static temporary directory
- // By default temporary files are generated in the script current
- // path.
- // If defined :
- // - MUST BE terminated by a '/'.
- // - MUST be a valid, already created directory
- // Samples :
- // define( 'PCLZIP_TEMPORARY_DIR', '/temp/' );
- // define( 'PCLZIP_TEMPORARY_DIR', 'C:/Temp/' );
- define( 'PCLZIP_TEMPORARY_DIR', '' );
-
-//
--------------------------------------------------------------------------------
-// ***** UNDER THIS LINE NOTHING NEEDS TO BE MODIFIED *****
-//
--------------------------------------------------------------------------------
-
- // ----- Global variables
- $g_pclzip_version = "2.5";
-
- // ----- Error codes
- // -1 : Unable to open file in binary write mode
- // -2 : Unable to open file in binary read mode
- // -3 : Invalid parameters
- // -4 : File does not exist
- // -5 : Filename is too long (max. 255)
- // -6 : Not a valid zip file
- // -7 : Invalid extracted file size
- // -8 : Unable to create directory
- // -9 : Invalid archive extension
- // -10 : Invalid archive format
- // -11 : Unable to delete file (unlink)
- // -12 : Unable to rename file (rename)
- // -13 : Invalid header checksum
- // -14 : Invalid archive size
- define( 'PCLZIP_ERR_USER_ABORTED', 2 );
- define( 'PCLZIP_ERR_NO_ERROR', 0 );
- define( 'PCLZIP_ERR_WRITE_OPEN_FAIL', -1 );
- define( 'PCLZIP_ERR_READ_OPEN_FAIL', -2 );
- define( 'PCLZIP_ERR_INVALID_PARAMETER', -3 );
- define( 'PCLZIP_ERR_MISSING_FILE', -4 );
- define( 'PCLZIP_ERR_FILENAME_TOO_LONG', -5 );
- define( 'PCLZIP_ERR_INVALID_ZIP', -6 );
- define( 'PCLZIP_ERR_BAD_EXTRACTED_FILE', -7 );
- define( 'PCLZIP_ERR_DIR_CREATE_FAIL', -8 );
- define( 'PCLZIP_ERR_BAD_EXTENSION', -9 );
- define( 'PCLZIP_ERR_BAD_FORMAT', -10 );
- define( 'PCLZIP_ERR_DELETE_FILE_FAIL', -11 );
- define( 'PCLZIP_ERR_RENAME_FILE_FAIL', -12 );
- define( 'PCLZIP_ERR_BAD_CHECKSUM', -13 );
- define( 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP', -14 );
- define( 'PCLZIP_ERR_MISSING_OPTION_VALUE', -15 );
- define( 'PCLZIP_ERR_INVALID_OPTION_VALUE', -16 );
- define( 'PCLZIP_ERR_ALREADY_A_DIRECTORY', -17 );
- define( 'PCLZIP_ERR_UNSUPPORTED_COMPRESSION', -18 );
- define( 'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION', -19 );
- define( 'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE', -20 );
- define( 'PCLZIP_ERR_DIRECTORY_RESTRICTION', -21 );
-
- // ----- Options values
- define( 'PCLZIP_OPT_PATH', 77001 );
- define( 'PCLZIP_OPT_ADD_PATH', 77002 );
- define( 'PCLZIP_OPT_REMOVE_PATH', 77003 );
- define( 'PCLZIP_OPT_REMOVE_ALL_PATH', 77004 );
- define( 'PCLZIP_OPT_SET_CHMOD', 77005 );
- define( 'PCLZIP_OPT_EXTRACT_AS_STRING', 77006 );
- define( 'PCLZIP_OPT_NO_COMPRESSION', 77007 );
- define( 'PCLZIP_OPT_BY_NAME', 77008 );
- define( 'PCLZIP_OPT_BY_INDEX', 77009 );
- define( 'PCLZIP_OPT_BY_EREG', 77010 );
- define( 'PCLZIP_OPT_BY_PREG', 77011 );
- define( 'PCLZIP_OPT_COMMENT', 77012 );
- define( 'PCLZIP_OPT_ADD_COMMENT', 77013 );
- define( 'PCLZIP_OPT_PREPEND_COMMENT', 77014 );
- define( 'PCLZIP_OPT_EXTRACT_IN_OUTPUT', 77015 );
- define( 'PCLZIP_OPT_REPLACE_NEWER', 77016 );
- define( 'PCLZIP_OPT_STOP_ON_ERROR', 77017 );
- // Having big trouble with crypt. Need to multiply 2 long int
- // which is not correctly supported by PHP ...
- //define( 'PCLZIP_OPT_CRYPT', 77018 );
- define( 'PCLZIP_OPT_EXTRACT_DIR_RESTRICTION', 77019 );
-
- // ----- File description attributes
- define( 'PCLZIP_ATT_FILE_NAME', 79001 );
- define( 'PCLZIP_ATT_FILE_NEW_SHORT_NAME', 79002 );
- define( 'PCLZIP_ATT_FILE_NEW_FULL_NAME', 79003 );
-
- // ----- Call backs values
- define( 'PCLZIP_CB_PRE_EXTRACT', 78001 );
- define( 'PCLZIP_CB_POST_EXTRACT', 78002 );
- define( 'PCLZIP_CB_PRE_ADD', 78003 );
- define( 'PCLZIP_CB_POST_ADD', 78004 );
- /* For futur use
- define( 'PCLZIP_CB_PRE_LIST', 78005 );
- define( 'PCLZIP_CB_POST_LIST', 78006 );
- define( 'PCLZIP_CB_PRE_DELETE', 78007 );
- define( 'PCLZIP_CB_POST_DELETE', 78008 );
- */
-
- //
--------------------------------------------------------------------------------
- // Class : PclZip
- // Description :
- // PclZip is the class that represent a Zip archive.
- // The public methods allow the manipulation of the archive.
- // Attributes :
- // Attributes must not be accessed directly.
- // Methods :
- // PclZip() : Object creator
- // create() : Creates the Zip archive
- // listContent() : List the content of the Zip archive
- // extract() : Extract the content of the archive
- // properties() : List the properties of the archive
- //
--------------------------------------------------------------------------------
- class PclZip
- {
- // ----- Filename of the zip file
- var $zipname = '';
-
- // ----- File descriptor of the zip file
- var $zip_fd = 0;
-
- // ----- Internal error handling
- var $error_code = 1;
- var $error_string = '';
-
- // ----- Current status of the magic_quotes_runtime
- // This value store the php configuration for magic_quotes
- // The class can then disable the magic_quotes and reset it after
- var $magic_quotes_status;
-
- //
--------------------------------------------------------------------------------
- // Function : PclZip()
- // Description :
- // Creates a PclZip object and set the name of the associated Zip archive
- // filename.
- // Note that no real action is taken, if the archive does not exist it is
not
- // created. Use create() for that.
- //
--------------------------------------------------------------------------------
- function PclZip($p_zipname)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::PclZip', "zipname=$p_zipname");
-
- // ----- Tests the zlib
- if (!function_exists('gzopen'))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 1, "zlib
extension seems to be missing");
- die('Abort '.basename(__FILE__).' : Missing zlib extensions');
- }
-
- // ----- Set the attributes
- $this->zipname = $p_zipname;
- $this->zip_fd = 0;
- $this->magic_quotes_status = -1;
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 1);
- return;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function :
- // create($p_filelist, $p_add_dir="", $p_remove_dir="")
- // create($p_filelist, $p_option, $p_option_value, ...)
- // Description :
- // This method supports two different synopsis. The first one is
historical.
- // This method creates a Zip Archive. The Zip file is created in the
- // filesystem. The files and directories indicated in $p_filelist
- // are added in the archive. See the parameters description for the
- // supported format of $p_filelist.
- // When a directory is in the list, the directory and its content is added
- // in the archive.
- // In this synopsis, the function takes an optional variable list of
- // options. See bellow the supported options.
- // Parameters :
- // $p_filelist : An array containing file or directory names, or
- // a string containing one filename or one directory name, or
- // a string containing a list of filenames and/or directory
- // names separated by spaces.
- // $p_add_dir : A path to add before the real path of the archived file,
- // in order to have it memorized in the archive.
- // $p_remove_dir : A path to remove from the real path of the file to
archive,
- // in order to have a shorter path memorized in the
archive.
- // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
- // is removed first, before $p_add_dir is added.
- // Options :
- // PCLZIP_OPT_ADD_PATH :
- // PCLZIP_OPT_REMOVE_PATH :
- // PCLZIP_OPT_REMOVE_ALL_PATH :
- // PCLZIP_OPT_COMMENT :
- // PCLZIP_CB_PRE_ADD :
- // PCLZIP_CB_POST_ADD :
- // Return Values :
- // 0 on failure,
- // The list of the added files, with a status of the add action.
- // (see PclZip::listContent() for list entry format)
- //
--------------------------------------------------------------------------------
- function create($p_filelist)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::create', "filelist='$p_filelist', ...");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Set default values
- $v_options = array();
- $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
-
- // ----- Look for variable options arguments
- $v_size = func_num_args();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size
arguments passed to the method");
-
- // ----- Look for arguments
- if ($v_size > 1) {
- // ----- Get the arguments
- $v_arg_list = func_get_args();
-
- // ----- Remove from the options list the first argument
- array_shift($v_arg_list);
- $v_size--;
-
- // ----- Look for first arg
- if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Variable list of options detected");
-
- // ----- Parse the options
- $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
- array (PCLZIP_OPT_REMOVE_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_ALL_PATH
=> 'optional',
- PCLZIP_OPT_ADD_PATH =>
'optional',
- PCLZIP_CB_PRE_ADD =>
'optional',
- PCLZIP_CB_POST_ADD =>
'optional',
- PCLZIP_OPT_NO_COMPRESSION
=> 'optional',
- PCLZIP_OPT_COMMENT =>
'optional'
- //, PCLZIP_OPT_CRYPT =>
'optional'
- ));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- }
-
- // ----- Look for 2 args
- // Here we need to support the first historic synopsis of the
- // method.
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Static synopsis");
-
- // ----- Get the first argument
- $v_options[PCLZIP_OPT_ADD_PATH] = $v_arg_list[0];
-
- // ----- Look for the optional second argument
- if ($v_size == 2) {
- $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
- }
- else if ($v_size > 2) {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
- "Invalid number / type of arguments");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return 0;
- }
- }
- }
-
- // ----- Init
- $v_string_list = array();
- $v_att_list = array();
- $v_filedescr_list = array();
- $p_result_list = array();
-
- // ----- Look if the $p_filelist is really an array
- if (is_array($p_filelist)) {
-
- // ----- Look if the first element is also an array
- // This will mean that this is a file description entry
- if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
- $v_att_list = $p_filelist;
- }
-
- // ----- The list is a list of string names
- else {
- $v_string_list = $p_filelist;
- }
- }
-
- // ----- Look if the $p_filelist is a string
- else if (is_string($p_filelist)) {
- // ----- Create a list from the string
- $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
- }
-
- // ----- Invalid variable type for $p_filelist
- else {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable
type p_filelist");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Reformat the string list
- if (sizeof($v_string_list) != 0) {
- foreach ($v_string_list as $v_string) {
- if ($v_string != '') {
- $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Ignore an empty filename");
- }
- }
- }
-
- // ----- For each file in the list check the attributes
- $v_supported_attributes
- = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
- ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
- ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
- );
- foreach ($v_att_list as $v_entry) {
- $v_result = $this->privFileDescrParseAtt($v_entry,
- $v_filedescr_list[],
- $v_options,
- $v_supported_attributes);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- }
-
- // ----- Expand the filelist (expand directories)
- $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Call the create fct
- $v_result = $this->privCreate($v_filedescr_list, $p_result_list,
$v_options);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);
- return $p_result_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function :
- // add($p_filelist, $p_add_dir="", $p_remove_dir="")
- // add($p_filelist, $p_option, $p_option_value, ...)
- // Description :
- // This method supports two synopsis. The first one is historical.
- // This methods add the list of files in an existing archive.
- // If a file with the same name already exists, it is added at the end of
the
- // archive, the first one is still present.
- // If the archive does not exist, it is created.
- // Parameters :
- // $p_filelist : An array containing file or directory names, or
- // a string containing one filename or one directory name, or
- // a string containing a list of filenames and/or directory
- // names separated by spaces.
- // $p_add_dir : A path to add before the real path of the archived file,
- // in order to have it memorized in the archive.
- // $p_remove_dir : A path to remove from the real path of the file to
archive,
- // in order to have a shorter path memorized in the
archive.
- // When $p_add_dir and $p_remove_dir are set, $p_remove_dir
- // is removed first, before $p_add_dir is added.
- // Options :
- // PCLZIP_OPT_ADD_PATH :
- // PCLZIP_OPT_REMOVE_PATH :
- // PCLZIP_OPT_REMOVE_ALL_PATH :
- // PCLZIP_OPT_COMMENT :
- // PCLZIP_OPT_ADD_COMMENT :
- // PCLZIP_OPT_PREPEND_COMMENT :
- // PCLZIP_CB_PRE_ADD :
- // PCLZIP_CB_POST_ADD :
- // Return Values :
- // 0 on failure,
- // The list of the added files, with a status of the add action.
- // (see PclZip::listContent() for list entry format)
- //
--------------------------------------------------------------------------------
- function add($p_filelist)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::add', "filelist='$p_filelist', ...");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Set default values
- $v_options = array();
- $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;
-
- // ----- Look for variable options arguments
- $v_size = func_num_args();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size
arguments passed to the method");
-
- // ----- Look for arguments
- if ($v_size > 1) {
- // ----- Get the arguments
- $v_arg_list = func_get_args();
-
- // ----- Remove form the options list the first argument
- array_shift($v_arg_list);
- $v_size--;
-
- // ----- Look for first arg
- if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Variable list of options detected");
-
- // ----- Parse the options
- $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
- array (PCLZIP_OPT_REMOVE_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_ALL_PATH
=> 'optional',
- PCLZIP_OPT_ADD_PATH =>
'optional',
- PCLZIP_CB_PRE_ADD =>
'optional',
- PCLZIP_CB_POST_ADD =>
'optional',
- PCLZIP_OPT_NO_COMPRESSION
=> 'optional',
- PCLZIP_OPT_COMMENT =>
'optional',
- PCLZIP_OPT_ADD_COMMENT =>
'optional',
- PCLZIP_OPT_PREPEND_COMMENT
=> 'optional'
- //, PCLZIP_OPT_CRYPT =>
'optional'
-
));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- }
-
- // ----- Look for 2 args
- // Here we need to support the first historic synopsis of the
- // method.
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Static synopsis");
-
- // ----- Get the first argument
- $v_options[PCLZIP_OPT_ADD_PATH] = $v_add_path = $v_arg_list[0];
-
- // ----- Look for the optional second argument
- if ($v_size == 2) {
- $v_options[PCLZIP_OPT_REMOVE_PATH] = $v_arg_list[1];
- }
- else if ($v_size > 2) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number /
type of arguments");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return 0;
- }
- }
- }
-
- // ----- Init
- $v_string_list = array();
- $v_att_list = array();
- $v_filedescr_list = array();
- $p_result_list = array();
-
- // ----- Look if the $p_filelist is really an array
- if (is_array($p_filelist)) {
-
- // ----- Look if the first element is also an array
- // This will mean that this is a file description entry
- if (isset($p_filelist[0]) && is_array($p_filelist[0])) {
- $v_att_list = $p_filelist;
- }
-
- // ----- The list is a list of string names
- else {
- $v_string_list = $p_filelist;
- }
- }
-
- // ----- Look if the $p_filelist is a string
- else if (is_string($p_filelist)) {
- // ----- Create a list from the string
- $v_string_list = explode(PCLZIP_SEPARATOR, $p_filelist);
- }
-
- // ----- Invalid variable type for $p_filelist
- else {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable
type '".gettype($p_filelist)."' for p_filelist");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Reformat the string list
- if (sizeof($v_string_list) != 0) {
- foreach ($v_string_list as $v_string) {
- $v_att_list[][PCLZIP_ATT_FILE_NAME] = $v_string;
- }
- }
-
- // ----- For each file in the list check the attributes
- $v_supported_attributes
- = array ( PCLZIP_ATT_FILE_NAME => 'mandatory'
- ,PCLZIP_ATT_FILE_NEW_SHORT_NAME => 'optional'
- ,PCLZIP_ATT_FILE_NEW_FULL_NAME => 'optional'
- );
- foreach ($v_att_list as $v_entry) {
- $v_result = $this->privFileDescrParseAtt($v_entry,
- $v_filedescr_list[],
- $v_options,
- $v_supported_attributes);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- }
-
- // ----- Expand the filelist (expand directories)
- $v_result = $this->privFileDescrExpand($v_filedescr_list, $v_options);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Call the create fct
- $v_result = $this->privAdd($v_filedescr_list, $p_result_list, $v_options);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);
- return $p_result_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : listContent()
- // Description :
- // This public method, gives the list of the files and directories, with
their
- // properties.
- // The properties of each entries in the list are (used also in other
functions) :
- // filename : Name of the file. For a create or add action it is the
filename
- // given by the user. For an extract function it is the
filename
- // of the extracted file.
- // stored_filename : Name of the file / directory stored in the archive.
- // size : Size of the stored file.
- // compressed_size : Size of the file's data compressed in the archive
- // (without the headers overhead)
- // mtime : Last known modification date of the file (UNIX timestamp)
- // comment : Comment associated with the file
- // folder : true | false
- // index : index of the file in the archive
- // status : status of the action (depending of the action) :
- // Values are :
- // ok : OK !
- // filtered : the file / dir is not extracted (filtered by
user)
- // already_a_directory : the file can not be extracted
because a
- // directory with the same name already
exists
- // write_protected : the file can not be extracted because a
file
- // with the same name already exists and is
- // write protected
- // newer_exist : the file was not extracted because a newer
file exists
- // path_creation_fail : the file is not extracted because the
folder
- // does not exists and can not be created
- // write_error : the file was not extracted because there was
a
- // error while writing the file
- // read_error : the file was not extracted because there was
a error
- // while reading the file
- // invalid_header : the file was not extracted because of an
archive
- // format error (bad file header)
- // Note that each time a method can continue operating when there
- // is an action error on a file, the error is only logged in the file
status.
- // Return Values :
- // 0 on an unrecoverable failure,
- // The list of the files in the archive.
- //
--------------------------------------------------------------------------------
- function listContent()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::listContent', "");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Call the extracting fct
- $p_list = array();
- if (($v_result = $this->privList($p_list)) != 1)
- {
- unset($p_list);
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0,
PclZip::errorInfo());
- return(0);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
- return $p_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function :
- // extract($p_path="./", $p_remove_path="")
- // extract([$p_option, $p_option_value, ...])
- // Description :
- // This method supports two synopsis. The first one is historical.
- // This method extract all the files / directories from the archive to the
- // folder indicated in $p_path.
- // If you want to ignore the 'root' part of path of the memorized files
- // you can indicate this in the optional $p_remove_path parameter.
- // By default, if a newer file with the same name already exists, the
- // file is not extracted.
- //
- // If both PCLZIP_OPT_PATH and PCLZIP_OPT_ADD_PATH aoptions
- // are used, the path indicated in PCLZIP_OPT_ADD_PATH is append
- // at the end of the path value of PCLZIP_OPT_PATH.
- // Parameters :
- // $p_path : Path where the files and directories are to be extracted
- // $p_remove_path : First part ('root' part) of the memorized path
- // (if any similar) to remove while extracting.
- // Options :
- // PCLZIP_OPT_PATH :
- // PCLZIP_OPT_ADD_PATH :
- // PCLZIP_OPT_REMOVE_PATH :
- // PCLZIP_OPT_REMOVE_ALL_PATH :
- // PCLZIP_CB_PRE_EXTRACT :
- // PCLZIP_CB_POST_EXTRACT :
- // Return Values :
- // 0 or a negative value on failure,
- // The list of the extracted files, with a status of the action.
- // (see PclZip::listContent() for list entry format)
- //
--------------------------------------------------------------------------------
- function extract()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::extract", "");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Set default values
- $v_options = array();
-// $v_path = "./";
- $v_path = '';
- $v_remove_path = "";
- $v_remove_all_path = false;
-
- // ----- Look for variable options arguments
- $v_size = func_num_args();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size
arguments passed to the method");
-
- // ----- Default values for option
- $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
-
- // ----- Look for arguments
- if ($v_size > 0) {
- // ----- Get the arguments
- $v_arg_list = func_get_args();
-
- // ----- Look for first arg
- if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Variable list of options");
-
- // ----- Parse the options
- $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
- array (PCLZIP_OPT_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_ALL_PATH
=> 'optional',
- PCLZIP_OPT_ADD_PATH =>
'optional',
- PCLZIP_CB_PRE_EXTRACT =>
'optional',
- PCLZIP_CB_POST_EXTRACT =>
'optional',
- PCLZIP_OPT_SET_CHMOD =>
'optional',
- PCLZIP_OPT_BY_NAME =>
'optional',
- PCLZIP_OPT_BY_EREG =>
'optional',
- PCLZIP_OPT_BY_PREG =>
'optional',
- PCLZIP_OPT_BY_INDEX =>
'optional',
-
PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
-
PCLZIP_OPT_EXTRACT_IN_OUTPUT => 'optional',
- PCLZIP_OPT_REPLACE_NEWER =>
'optional'
- ,PCLZIP_OPT_STOP_ON_ERROR
=> 'optional'
-
,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional'
-
));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Set the arguments
- if (isset($v_options[PCLZIP_OPT_PATH])) {
- $v_path = $v_options[PCLZIP_OPT_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
- $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
- $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
- // ----- Check for '/' in last path char
- if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
- $v_path .= '/';
- }
- $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
- }
- }
-
- // ----- Look for 2 args
- // Here we need to support the first historic synopsis of the
- // method.
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Static synopsis");
-
- // ----- Get the first argument
- $v_path = $v_arg_list[0];
-
- // ----- Look for the optional second argument
- if ($v_size == 2) {
- $v_remove_path = $v_arg_list[1];
- }
- else if ($v_size > 2) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number /
type of arguments");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0,
PclZip::errorInfo());
- return 0;
- }
- }
- }
-
- // ----- Trace
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"path='$v_path', remove_path='$v_remove_path',
remove_all_path='".($v_remove_path?'true':'false')."'");
-
- // ----- Call the extracting fct
- $p_list = array();
- $v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path,
- $v_remove_all_path, $v_options);
- if ($v_result < 1) {
- unset($p_list);
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0,
PclZip::errorInfo());
- return(0);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
- return $p_list;
- }
- //
--------------------------------------------------------------------------------
-
-
- //
--------------------------------------------------------------------------------
- // Function :
- // extractByIndex($p_index, $p_path="./", $p_remove_path="")
- // extractByIndex($p_index, [$p_option, $p_option_value, ...])
- // Description :
- // This method supports two synopsis. The first one is historical.
- // This method is doing a partial extract of the archive.
- // The extracted files or folders are identified by their index in the
- // archive (from 0 to n).
- // Note that if the index identify a folder, only the folder entry is
- // extracted, not all the files included in the archive.
- // Parameters :
- // $p_index : A single index (integer) or a string of indexes of files to
- // extract. The form of the string is "0,4-6,8-12" with only
numbers
- // and '-' for range or ',' to separate ranges. No spaces or ';'
- // are allowed.
- // $p_path : Path where the files and directories are to be extracted
- // $p_remove_path : First part ('root' part) of the memorized path
- // (if any similar) to remove while extracting.
- // Options :
- // PCLZIP_OPT_PATH :
- // PCLZIP_OPT_ADD_PATH :
- // PCLZIP_OPT_REMOVE_PATH :
- // PCLZIP_OPT_REMOVE_ALL_PATH :
- // PCLZIP_OPT_EXTRACT_AS_STRING : The files are extracted as strings and
- // not as files.
- // The resulting content is in a new field 'content' in the file
- // structure.
- // This option must be used alone (any other options are ignored).
- // PCLZIP_CB_PRE_EXTRACT :
- // PCLZIP_CB_POST_EXTRACT :
- // Return Values :
- // 0 on failure,
- // The list of the extracted files, with a status of the action.
- // (see PclZip::listContent() for list entry format)
- //
--------------------------------------------------------------------------------
- //function extractByIndex($p_index, options...)
- function extractByIndex($p_index)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::extractByIndex", "index='$p_index', ...");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Set default values
- $v_options = array();
-// $v_path = "./";
- $v_path = '';
- $v_remove_path = "";
- $v_remove_all_path = false;
-
- // ----- Look for variable options arguments
- $v_size = func_num_args();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size
arguments passed to the method");
-
- // ----- Default values for option
- $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
-
- // ----- Look for arguments
- if ($v_size > 1) {
- // ----- Get the arguments
- $v_arg_list = func_get_args();
-
- // ----- Remove form the options list the first argument
- array_shift($v_arg_list);
- $v_size--;
-
- // ----- Look for first arg
- if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Variable list of options");
-
- // ----- Parse the options
- $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
- array (PCLZIP_OPT_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_PATH =>
'optional',
- PCLZIP_OPT_REMOVE_ALL_PATH
=> 'optional',
-
PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',
- PCLZIP_OPT_ADD_PATH =>
'optional',
- PCLZIP_CB_PRE_EXTRACT =>
'optional',
- PCLZIP_CB_POST_EXTRACT =>
'optional',
- PCLZIP_OPT_SET_CHMOD =>
'optional',
- PCLZIP_OPT_REPLACE_NEWER =>
'optional'
- ,PCLZIP_OPT_STOP_ON_ERROR
=> 'optional'
-
,PCLZIP_OPT_EXTRACT_DIR_RESTRICTION => 'optional'
-
));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Set the arguments
- if (isset($v_options[PCLZIP_OPT_PATH])) {
- $v_path = $v_options[PCLZIP_OPT_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {
- $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
- $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];
- }
- if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {
- // ----- Check for '/' in last path char
- if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {
- $v_path .= '/';
- }
- $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];
- }
- if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {
- $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Option PCLZIP_OPT_EXTRACT_AS_STRING not set.");
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Option PCLZIP_OPT_EXTRACT_AS_STRING set.");
- }
- }
-
- // ----- Look for 2 args
- // Here we need to support the first historic synopsis of the
- // method.
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Static synopsis");
-
- // ----- Get the first argument
- $v_path = $v_arg_list[0];
-
- // ----- Look for the optional second argument
- if ($v_size == 2) {
- $v_remove_path = $v_arg_list[1];
- }
- else if ($v_size > 2) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number /
type of arguments");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return 0;
- }
- }
- }
-
- // ----- Trace
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"index='$p_index', path='$v_path', remove_path='$v_remove_path',
remove_all_path='".($v_remove_path?'true':'false')."'");
-
- // ----- Trick
- // Here I want to reuse extractByRule(), so I need to parse the $p_index
- // with privParseOptions()
- $v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);
- $v_options_trick = array();
- $v_result = $this->privParseOptions($v_arg_trick, sizeof($v_arg_trick),
$v_options_trick,
- array (PCLZIP_OPT_BY_INDEX =>
'optional' ));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- $v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];
-
- // ----- Call the extracting fct
- if (($v_result = $this->privExtractByRule($p_list, $v_path,
$v_remove_path, $v_remove_all_path, $v_options)) < 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0,
PclZip::errorInfo());
- return(0);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
- return $p_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function :
- // delete([$p_option, $p_option_value, ...])
- // Description :
- // This method removes files from the archive.
- // If no parameters are given, then all the archive is emptied.
- // Parameters :
- // None or optional arguments.
- // Options :
- // PCLZIP_OPT_BY_INDEX :
- // PCLZIP_OPT_BY_NAME :
- // PCLZIP_OPT_BY_EREG :
- // PCLZIP_OPT_BY_PREG :
- // Return Values :
- // 0 on failure,
- // The list of the files which are still present in the archive.
- // (see PclZip::listContent() for list entry format)
- //
--------------------------------------------------------------------------------
- function delete()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::delete", "");
- $v_result=1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Set default values
- $v_options = array();
-
- // ----- Look for variable options arguments
- $v_size = func_num_args();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size
arguments passed to the method");
-
- // ----- Look for arguments
- if ($v_size > 0) {
- // ----- Get the arguments
- $v_arg_list = func_get_args();
-
- // ----- Parse the options
- $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,
- array (PCLZIP_OPT_BY_NAME =>
'optional',
- PCLZIP_OPT_BY_EREG =>
'optional',
- PCLZIP_OPT_BY_PREG =>
'optional',
- PCLZIP_OPT_BY_INDEX =>
'optional' ));
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
- }
-
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Call the delete fct
- $v_list = array();
- if (($v_result = $this->privDeleteByRule($v_list, $v_options)) != 1) {
- $this->privSwapBackMagicQuotes();
- unset($v_list);
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0,
PclZip::errorInfo());
- return(0);
- }
-
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_list);
- return $v_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : deleteByIndex()
- // Description :
- // ***** Deprecated *****
- // delete(PCLZIP_OPT_BY_INDEX, $p_index) should be prefered.
- //
--------------------------------------------------------------------------------
- function deleteByIndex($p_index)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::deleteByIndex", "index='$p_index'");
-
- $p_list = $this->delete(PCLZIP_OPT_BY_INDEX, $p_index);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);
- return $p_list;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : properties()
- // Description :
- // This method gives the properties of the archive.
- // The properties are :
- // nb : Number of files in the archive
- // comment : Comment associated with the archive file
- // status : not_exist, ok
- // Parameters :
- // None
- // Return Values :
- // 0 on failure,
- // An array with the archive properties.
- //
--------------------------------------------------------------------------------
- function properties()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::properties", "");
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Default properties
- $v_prop = array();
- $v_prop['comment'] = '';
- $v_prop['nb'] = 0;
- $v_prop['status'] = 'not_exist';
-
- // ----- Look if file exists
- if (@is_file($this->zipname))
- {
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
- {
- $this->privSwapBackMagicQuotes();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open
archive \''.$this->zipname.'\' in binary read mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), 0);
- return 0;
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return 0;
- }
-
- // ----- Close the zip file
- $this->privCloseFd();
-
- // ----- Set the user attributes
- $v_prop['comment'] = $v_central_dir['comment'];
- $v_prop['nb'] = $v_central_dir['entries'];
- $v_prop['status'] = 'ok';
- }
-
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_prop);
- return $v_prop;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : duplicate()
- // Description :
- // This method creates an archive by copying the content of an other one.
If
- // the archive already exist, it is replaced by the new one without any
warning.
- // Parameters :
- // $p_archive : The filename of a valid archive, or
- // a valid PclZip object.
- // Return Values :
- // 1 on success.
- // 0 or a negative value on error (error code).
- //
--------------------------------------------------------------------------------
- function duplicate($p_archive)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::duplicate", "");
- $v_result = 1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Look if the $p_archive is a PclZip object
- if ((is_object($p_archive)) && (get_class($p_archive) == 'pclzip'))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The
parameter is valid PclZip object '".$p_archive->zipname."'");
-
- // ----- Duplicate the archive
- $v_result = $this->privDuplicate($p_archive->zipname);
- }
-
- // ----- Look if the $p_archive is a string (so a filename)
- else if (is_string($p_archive))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The
parameter is a filename '$p_archive'");
-
- // ----- Check that $p_archive is a valid zip file
- // TBC : Should also check the archive format
- if (!is_file($p_archive)) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "No file with filename
'".$p_archive."'");
- $v_result = PCLZIP_ERR_MISSING_FILE;
- }
- else {
- // ----- Duplicate the archive
- $v_result = $this->privDuplicate($p_archive);
- }
- }
-
- // ----- Invalid variable
- else
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable
type p_archive_to_add");
- $v_result = PCLZIP_ERR_INVALID_PARAMETER;
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : merge()
- // Description :
- // This method merge the $p_archive_to_add archive at the end of the
current
- // one ($this).
- // If the archive ($this) does not exist, the merge becomes a duplicate.
- // If the $p_archive_to_add archive does not exist, the merge is a success.
- // Parameters :
- // $p_archive_to_add : It can be directly the filename of a valid zip
archive,
- // or a PclZip object archive.
- // Return Values :
- // 1 on success,
- // 0 or negative values on error (see below).
- //
--------------------------------------------------------------------------------
- function merge($p_archive_to_add)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::merge", "");
- $v_result = 1;
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Check archive
- if (!$this->privCheckFormat()) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);
- return(0);
- }
-
- // ----- Look if the $p_archive_to_add is a PclZip object
- if ((is_object($p_archive_to_add)) && (get_class($p_archive_to_add) ==
'pclzip'))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The
parameter is valid PclZip object");
-
- // ----- Merge the archive
- $v_result = $this->privMerge($p_archive_to_add);
- }
-
- // ----- Look if the $p_archive_to_add is a string (so a filename)
- else if (is_string($p_archive_to_add))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "The
parameter is a filename");
-
- // ----- Create a temporary archive
- $v_object_archive = new PclZip($p_archive_to_add);
-
- // ----- Merge the archive
- $v_result = $this->privMerge($v_object_archive);
- }
-
- // ----- Invalid variable
- else
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable
type p_archive_to_add");
- $v_result = PCLZIP_ERR_INVALID_PARAMETER;
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
-
-
- //
--------------------------------------------------------------------------------
- // Function : errorCode()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function errorCode()
- {
- if (PCLZIP_ERROR_EXTERNAL == 1) {
- return(PclErrorCode());
- }
- else {
- return($this->error_code);
- }
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : errorName()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function errorName($p_with_code=false)
- {
- $v_name = array ( PCLZIP_ERR_NO_ERROR => 'PCLZIP_ERR_NO_ERROR',
- PCLZIP_ERR_WRITE_OPEN_FAIL =>
'PCLZIP_ERR_WRITE_OPEN_FAIL',
- PCLZIP_ERR_READ_OPEN_FAIL => 'PCLZIP_ERR_READ_OPEN_FAIL',
- PCLZIP_ERR_INVALID_PARAMETER =>
'PCLZIP_ERR_INVALID_PARAMETER',
- PCLZIP_ERR_MISSING_FILE => 'PCLZIP_ERR_MISSING_FILE',
- PCLZIP_ERR_FILENAME_TOO_LONG =>
'PCLZIP_ERR_FILENAME_TOO_LONG',
- PCLZIP_ERR_INVALID_ZIP => 'PCLZIP_ERR_INVALID_ZIP',
- PCLZIP_ERR_BAD_EXTRACTED_FILE =>
'PCLZIP_ERR_BAD_EXTRACTED_FILE',
- PCLZIP_ERR_DIR_CREATE_FAIL =>
'PCLZIP_ERR_DIR_CREATE_FAIL',
- PCLZIP_ERR_BAD_EXTENSION => 'PCLZIP_ERR_BAD_EXTENSION',
- PCLZIP_ERR_BAD_FORMAT => 'PCLZIP_ERR_BAD_FORMAT',
- PCLZIP_ERR_DELETE_FILE_FAIL =>
'PCLZIP_ERR_DELETE_FILE_FAIL',
- PCLZIP_ERR_RENAME_FILE_FAIL =>
'PCLZIP_ERR_RENAME_FILE_FAIL',
- PCLZIP_ERR_BAD_CHECKSUM => 'PCLZIP_ERR_BAD_CHECKSUM',
- PCLZIP_ERR_INVALID_ARCHIVE_ZIP =>
'PCLZIP_ERR_INVALID_ARCHIVE_ZIP',
- PCLZIP_ERR_MISSING_OPTION_VALUE =>
'PCLZIP_ERR_MISSING_OPTION_VALUE',
- PCLZIP_ERR_INVALID_OPTION_VALUE =>
'PCLZIP_ERR_INVALID_OPTION_VALUE',
- PCLZIP_ERR_UNSUPPORTED_COMPRESSION =>
'PCLZIP_ERR_UNSUPPORTED_COMPRESSION',
- PCLZIP_ERR_UNSUPPORTED_ENCRYPTION =>
'PCLZIP_ERR_UNSUPPORTED_ENCRYPTION'
- ,PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE =>
'PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE'
- ,PCLZIP_ERR_DIRECTORY_RESTRICTION =>
'PCLZIP_ERR_DIRECTORY_RESTRICTION'
- );
-
- if (isset($v_name[$this->error_code])) {
- $v_value = $v_name[$this->error_code];
- }
- else {
- $v_value = 'NoName';
- }
-
- if ($p_with_code) {
- return($v_value.' ('.$this->error_code.')');
- }
- else {
- return($v_value);
- }
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : errorInfo()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function errorInfo($p_full=false)
- {
- if (PCLZIP_ERROR_EXTERNAL == 1) {
- return(PclErrorString());
- }
- else {
- if ($p_full) {
- return($this->errorName(true)." : ".$this->error_string);
- }
- else {
- return($this->error_string." [code ".$this->error_code."]");
- }
- }
- }
- //
--------------------------------------------------------------------------------
-
-
-//
--------------------------------------------------------------------------------
-// ***** UNDER THIS LINE ARE DEFINED PRIVATE INTERNAL FUNCTIONS *****
-// ***** *****
-// ***** THESES FUNCTIONS MUST NOT BE USED DIRECTLY *****
-//
--------------------------------------------------------------------------------
-
-
-
- //
--------------------------------------------------------------------------------
- // Function : privCheckFormat()
- // Description :
- // This method check that the archive exists and is a valid zip archive.
- // Several level of check exists. (futur)
- // Parameters :
- // $p_level : Level of check. Default 0.
- // 0 : Check the first bytes (magic codes) (default value))
- // 1 : 0 + Check the central directory (futur)
- // 2 : 1 + Check each file header (futur)
- // Return Values :
- // true on success,
- // false on error, the error code is set.
- //
--------------------------------------------------------------------------------
- function privCheckFormat($p_level=0)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privCheckFormat", "");
- $v_result = true;
-
- // ----- Reset the file system cache
- clearstatcache();
-
- // ----- Reset the error handler
- $this->privErrorReset();
-
- // ----- Look if the file exits
- if (!is_file($this->zipname)) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "Missing archive file
'".$this->zipname."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, false,
PclZip::errorInfo());
- return(false);
- }
-
- // ----- Check that the file is readeable
- if (!is_readable($this->zipname)) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to read archive
'".$this->zipname."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, false,
PclZip::errorInfo());
- return(false);
- }
-
- // ----- Check the magic code
- // TBC
-
- // ----- Check the central header
- // TBC
-
- // ----- Check each file header
- // TBC
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privParseOptions()
- // Description :
- // This internal methods reads the variable list of arguments
($p_options_list,
- // $p_size) and generate an array with the options and values
($v_result_list).
- // $v_requested_options contains the options that can be present and those
that
- // must be present.
- // $v_requested_options is an array, with the option value as key, and
'optional',
- // or 'mandatory' as value.
- // Parameters :
- // See above.
- // Return Values :
- // 1 on success.
- // 0 on failure.
- //
--------------------------------------------------------------------------------
- function privParseOptions(&$p_options_list, $p_size, &$v_result_list,
$v_requested_options=false)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privParseOptions", "");
- $v_result=1;
-
- // ----- Read the options
- $i=0;
- while ($i<$p_size) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Looking for table index $i, option =
'".PclZipUtilOptionText($p_options_list[$i])."(".$p_options_list[$i].")'");
-
- // ----- Check if the option is supported
- if (!isset($v_requested_options[$p_options_list[$i]])) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid optional
parameter '".$p_options_list[$i]."' for this method");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Look for next option
- switch ($p_options_list[$i]) {
- // ----- Look for options that request a path value
- case PCLZIP_OPT_PATH :
- case PCLZIP_OPT_REMOVE_PATH :
- case PCLZIP_OPT_ADD_PATH :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- $v_result_list[$p_options_list[$i]] =
PclZipUtilTranslateWinPath($p_options_list[$i+1], false);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- break;
-
- case PCLZIP_OPT_EXTRACT_DIR_RESTRICTION :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- if ( is_string($p_options_list[$i+1])
- && ($p_options_list[$i+1] != '')) {
- $v_result_list[$p_options_list[$i]] =
PclZipUtilTranslateWinPath($p_options_list[$i+1], false);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." set with an empty value is
ignored.");
- }
- break;
-
- // ----- Look for options that request an array of string for value
- case PCLZIP_OPT_BY_NAME :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- if (is_string($p_options_list[$i+1])) {
- $v_result_list[$p_options_list[$i]][0] = $p_options_list[$i+1];
- }
- else if (is_array($p_options_list[$i+1])) {
- $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
- }
- else {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- break;
-
- // ----- Look for options that request an EREG or PREG expression
- case PCLZIP_OPT_BY_EREG :
- case PCLZIP_OPT_BY_PREG :
- //case PCLZIP_OPT_CRYPT :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- if (is_string($p_options_list[$i+1])) {
- $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
- }
- else {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Wrong
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- break;
-
- // ----- Look for options that takes a string
- case PCLZIP_OPT_COMMENT :
- case PCLZIP_OPT_ADD_COMMENT :
- case PCLZIP_OPT_PREPEND_COMMENT :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE,
- "Missing parameter value for
option '"
-
.PclZipUtilOptionText($p_options_list[$i])
- ."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- if (is_string($p_options_list[$i+1])) {
- $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
- }
- else {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,
- "Wrong parameter value for option
'"
-
.PclZipUtilOptionText($p_options_list[$i])
- ."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- break;
-
- // ----- Look for options that request an array of index
- case PCLZIP_OPT_BY_INDEX :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- $v_work_list = array();
- if (is_string($p_options_list[$i+1])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
4, "Index value is a string '".$p_options_list[$i+1]."'");
-
- // ----- Remove spaces
- $p_options_list[$i+1] = strtr($p_options_list[$i+1], ' ', '');
-
- // ----- Parse items
- $v_work_list = explode(",", $p_options_list[$i+1]);
- }
- else if (is_integer($p_options_list[$i+1])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
4, "Index value is an integer '".$p_options_list[$i+1]."'");
- $v_work_list[0] =
$p_options_list[$i+1].'-'.$p_options_list[$i+1];
- }
- else if (is_array($p_options_list[$i+1])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
4, "Index value is an array");
- $v_work_list = $p_options_list[$i+1];
- }
- else {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Value must
be integer, string or array for option
'".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Reduce the index list
- // each index item in the list must be a couple with a start and
- // an end value : [0,3], [5-5], [8-10], ...
- // ----- Check the format of each item
- $v_sort_flag=false;
- $v_sort_value=0;
- for ($j=0; $j<sizeof($v_work_list); $j++) {
- // ----- Explode the item
- $v_item_list = explode("-", $v_work_list[$j]);
- $v_size_item_list = sizeof($v_item_list);
-
- // ----- TBC : Here we might check that each item is a
- // real integer ...
-
- // ----- Look for single value
- if ($v_size_item_list == 1) {
- // ----- Set the option value
- $v_result_list[$p_options_list[$i]][$j]['start'] =
$v_item_list[0];
- $v_result_list[$p_options_list[$i]][$j]['end'] =
$v_item_list[0];
- }
- elseif ($v_size_item_list == 2) {
- // ----- Set the option value
- $v_result_list[$p_options_list[$i]][$j]['start'] =
$v_item_list[0];
- $v_result_list[$p_options_list[$i]][$j]['end'] =
$v_item_list[1];
- }
- else {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Too
many values in index range for option
'".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Extracted index item =
[".$v_result_list[$p_options_list[$i]][$j]['start'].",".$v_result_list[$p_options_list[$i]][$j]['end']."]");
-
- // ----- Look for list sort
- if ($v_result_list[$p_options_list[$i]][$j]['start'] <
$v_sort_value) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The list should be sorted ...");
- $v_sort_flag=true;
-
- // ----- TBC : An automatic sort should be writen ...
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE,
"Invalid order of index range for option
'".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- $v_sort_value = $v_result_list[$p_options_list[$i]][$j]['start'];
- }
-
- // ----- Sort the items
- if ($v_sort_flag) {
- // TBC : To Be Completed
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "List sorting is not yet write ...");
- }
-
- // ----- Next option
- $i++;
- break;
-
- // ----- Look for options that request no value
- case PCLZIP_OPT_REMOVE_ALL_PATH :
- case PCLZIP_OPT_EXTRACT_AS_STRING :
- case PCLZIP_OPT_NO_COMPRESSION :
- case PCLZIP_OPT_EXTRACT_IN_OUTPUT :
- case PCLZIP_OPT_REPLACE_NEWER :
- case PCLZIP_OPT_STOP_ON_ERROR :
- $v_result_list[$p_options_list[$i]] = true;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- break;
-
- // ----- Look for options that request an octal value
- case PCLZIP_OPT_SET_CHMOD :
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- $v_result_list[$p_options_list[$i]] = $p_options_list[$i+1];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_result_list[$p_options_list[$i]]."'");
- $i++;
- break;
-
- // ----- Look for options that request a call-back
- case PCLZIP_CB_PRE_EXTRACT :
- case PCLZIP_CB_POST_EXTRACT :
- case PCLZIP_CB_PRE_ADD :
- case PCLZIP_CB_POST_ADD :
- /* for futur use
- case PCLZIP_CB_PRE_DELETE :
- case PCLZIP_CB_POST_DELETE :
- case PCLZIP_CB_PRE_LIST :
- case PCLZIP_CB_POST_LIST :
- */
- // ----- Check the number of parameters
- if (($i+1) >= $p_size) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_OPTION_VALUE, "Missing
parameter value for option '".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Get the value
- $v_function_name = $p_options_list[$i+1];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"call-back ".PclZipUtilOptionText($p_options_list[$i])." =
'".$v_function_name."'");
-
- // ----- Check that the value is a valid existing function
- if (!function_exists($v_function_name)) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_OPTION_VALUE, "Function
'".$v_function_name."()' is not an existing function for option
'".PclZipUtilOptionText($p_options_list[$i])."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Set the attribute
- $v_result_list[$p_options_list[$i]] = $v_function_name;
- $i++;
- break;
-
- default :
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
- "Unknown parameter '"
-
.$p_options_list[$i]."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Next options
- $i++;
- }
-
- // ----- Look for mandatory options
- if ($v_requested_options !== false) {
- for ($key=reset($v_requested_options); $key=key($v_requested_options);
$key=next($v_requested_options)) {
- // ----- Look for mandatory option
- if ($v_requested_options[$key] == 'mandatory') {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Detect a mandatory option : ".PclZipUtilOptionText($key)."(".$key.")");
- // ----- Look if present
- if (!isset($v_result_list[$key])) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing
mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privFileDescrParseAtt()
- // Description :
- // Parameters :
- // Return Values :
- // 1 on success.
- // 0 on failure.
- //
--------------------------------------------------------------------------------
- function privFileDescrParseAtt(&$p_file_list, &$p_filedescr, $v_options,
$v_requested_options=false)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privFileDescrParseAtt", "");
- $v_result=1;
-
- // ----- For each file in the list check the attributes
- foreach ($p_file_list as $v_key => $v_value) {
-
- // ----- Check if the option is supported
- if (!isset($v_requested_options[$v_key])) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file
attribute '".$v_key."' for this file");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Look for attribute
- switch ($v_key) {
- case PCLZIP_ATT_FILE_NAME :
- if (!is_string($v_value)) {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
type ".gettype($v_value).". String expected for attribute
'".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- $p_filedescr['filename'] = PclZipUtilPathReduction($v_value);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($v_key)." = '".$v_value."'");
-
- if ($p_filedescr['filename'] == '') {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
empty filename for attribute '".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- break;
-
- case PCLZIP_ATT_FILE_NEW_SHORT_NAME :
- if (!is_string($v_value)) {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
type ".gettype($v_value).". String expected for attribute
'".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- $p_filedescr['new_short_name'] = PclZipUtilPathReduction($v_value);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($v_key)." = '".$v_value."'");
-
- if ($p_filedescr['new_short_name'] == '') {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
empty short filename for attribute '".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- break;
-
- case PCLZIP_ATT_FILE_NEW_FULL_NAME :
- if (!is_string($v_value)) {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
type ".gettype($v_value).". String expected for attribute
'".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- $p_filedescr['new_full_name'] = PclZipUtilPathReduction($v_value);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"".PclZipUtilOptionText($v_key)." = '".$v_value."'");
-
- if ($p_filedescr['new_full_name'] == '') {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ATTRIBUTE_VALUE, "Invalid
empty full filename for attribute '".PclZipUtilOptionText($v_key)."'");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- break;
-
- default :
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,
- "Unknown parameter '".$v_key."'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Look for mandatory options
- if ($v_requested_options !== false) {
- for ($key=reset($v_requested_options); $key=key($v_requested_options);
$key=next($v_requested_options)) {
- // ----- Look for mandatory option
- if ($v_requested_options[$key] == 'mandatory') {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Detect a mandatory option : ".PclZipUtilOptionText($key)."(".$key.")");
- // ----- Look if present
- if (!isset($p_file_list[$key])) {
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Missing
mandatory parameter ".PclZipUtilOptionText($key)."(".$key.")");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
- }
- }
-
- // end foreach
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privFileDescrExpand()
- // Description :
- // Parameters :
- // Return Values :
- // 1 on success.
- // 0 on failure.
- //
--------------------------------------------------------------------------------
- function privFileDescrExpand(&$p_filedescr_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privFileDescrExpand", "");
- $v_result=1;
-
- // ----- Create a result list
- $v_result_list = array();
-
- // ----- Look each entry
- for ($i=0; $i<sizeof($p_filedescr_list); $i++) {
- // ----- Get filedescr
- $v_descr = $p_filedescr_list[$i];
-
- // ----- Reduce the filename
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Filedescr before reduction :'".$v_descr['filename']."'");
- $v_descr['filename'] = PclZipUtilTranslateWinPath($v_descr['filename']);
- $v_descr['filename'] = PclZipUtilPathReduction($v_descr['filename']);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Filedescr after reduction :'".$v_descr['filename']."'");
-
- // ----- Get type of descr
- if (!file_exists($v_descr['filename'])) {
- // ----- Error log
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File '".$v_descr['filename']."' does not exists");
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File
'".$v_descr['filename']."' does not exists");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- if (@is_file($v_descr['filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"This is a file");
- $v_descr['type'] = 'file';
- }
- else if (@is_dir($v_descr['filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"This is a folder");
- $v_descr['type'] = 'folder';
- }
- else if (@is_link($v_descr['filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Unsupported file type : link");
- // skip
- continue;
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Unsupported file type : unknown type");
- // skip
- continue;
- }
-
- // ----- Calculate the stored filename
- $this->privCalculateStoredFilename($v_descr, $p_options);
-
- // ----- Add the descriptor in result list
- $v_result_list[sizeof($v_result_list)] = $v_descr;
-
- // ----- Look for folder
- if ($v_descr['type'] == 'folder') {
- // ----- List of items in folder
- $v_dirlist_descr = array();
- $v_dirlist_nb = 0;
- if ($v_folder_handler = @opendir($v_descr['filename'])) {
- while (($v_item_handler = @readdir($v_folder_handler)) !== false) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Looking for '".$v_item_handler."' in the directory");
-
- // ----- Skip '.' and '..'
- if (($v_item_handler == '.') || ($v_item_handler == '..')) {
- continue;
- }
-
- // ----- Compose the full filename
- $v_dirlist_descr[$v_dirlist_nb]['filename'] =
$v_descr['filename'].'/'.$v_item_handler;
-
- // ----- Look for different stored filename
- // Because the name of the folder was changed, the name of the
- // files/sub-folders also change
- if ($v_descr['stored_filename'] != $v_descr['filename']) {
- $v_dirlist_descr[$v_dirlist_nb]['new_full_name'] =
$v_descr['stored_filename'].'/'.$v_item_handler;
- }
-
- $v_dirlist_nb++;
- }
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unable to open dir '".$v_descr['filename']."' in read mode. Skipped.");
- // TBC : unable to open folder in read mode
- }
-
- // ----- Expand each element of the list
- if ($v_dirlist_nb != 0) {
- // ----- Expand
- if (($v_result = $this->privFileDescrExpand($v_dirlist_descr,
$p_options)) != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Concat the resulting list
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Merging result list (size '".sizeof($v_result_list)."') with dirlist (size
'".sizeof($v_dirlist_descr)."')");
- $v_result_list = array_merge($v_result_list, $v_dirlist_descr);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"merged result list is size '".sizeof($v_result_list)."'");
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Nothing in this folder to expand.");
- }
-
- // ----- Free local array
- unset($v_dirlist_descr);
- }
- }
-
- // ----- Get the result list
- $p_filedescr_list = $v_result_list;
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privCreate()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privCreate($p_filedescr_list, &$p_result_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privCreate", "list");
- $v_result=1;
- $v_list_detail = array();
-
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Open the file in write mode
- if (($v_result = $this->privOpenFd('wb')) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Add the list of files
- $v_result = $this->privAddList($p_filedescr_list, $p_result_list,
$p_options);
-
- // ----- Close
- $this->privCloseFd();
-
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privAdd()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privAdd($p_filedescr_list, &$p_result_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privAdd", "list");
- $v_result=1;
- $v_list_detail = array();
-
- // ----- Look if the archive exists or is empty
- if ((!is_file($this->zipname)) || (filesize($this->zipname) == 0))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Archive does not exist, or is empty, create it.");
-
- // ----- Do a create
- $v_result = $this->privCreate($p_filedescr_list, $p_result_list,
$p_options);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_result=$this->privOpenFd('rb')) != 1)
- {
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Go to beginning of File
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in file : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in file : ".ftell($this->zip_fd)."'");
-
- // ----- Creates a temporay file
- $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
-
- // ----- Open the temporary file in write mode
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
- {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open
temporary file \''.$v_zip_temp_name.'\' in binary write mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Copy the files from the archive to the temporary file
- // TBC : Here I should better append the file and go back to erase the
central dir
- $v_size = $v_central_dir['offset'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = fread($this->zip_fd, $v_read_size);
- @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Swap the file descriptor
- // Here is a trick : I swap the temporary fd with the zip fd, in order to
use
- // the following methods on the temporary fil and not the real archive
- $v_swap = $this->zip_fd;
- $this->zip_fd = $v_zip_temp_fd;
- $v_zip_temp_fd = $v_swap;
-
- // ----- Add the files
- $v_header_list = array();
- if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list,
$p_options)) != 1)
- {
- fclose($v_zip_temp_fd);
- $this->privCloseFd();
- @unlink($v_zip_temp_name);
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Store the offset of the central dir
- $v_offset = @ftell($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "New
offset of central dir : $v_offset");
-
- // ----- Copy the block of file headers from the old archive
- $v_size = $v_central_dir['size'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = @fread($v_zip_temp_fd, $v_read_size);
- @fwrite($this->zip_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Create the Central Dir files header
- for ($i=0, $v_count=0; $i<sizeof($v_header_list); $i++)
- {
- // ----- Create the file header
- if ($v_header_list[$i]['status'] == 'ok') {
- if (($v_result =
$this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
- fclose($v_zip_temp_fd);
- $this->privCloseFd();
- @unlink($v_zip_temp_name);
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- $v_count++;
- }
-
- // ----- Transform the header to a 'usable' info
- $this->privConvertHeader2FileInfo($v_header_list[$i],
$p_result_list[$i]);
- }
-
- // ----- Zip file comment
- $v_comment = $v_central_dir['comment'];
- if (isset($p_options[PCLZIP_OPT_COMMENT])) {
- $v_comment = $p_options[PCLZIP_OPT_COMMENT];
- }
- if (isset($p_options[PCLZIP_OPT_ADD_COMMENT])) {
- $v_comment = $v_comment.$p_options[PCLZIP_OPT_ADD_COMMENT];
- }
- if (isset($p_options[PCLZIP_OPT_PREPEND_COMMENT])) {
- $v_comment = $p_options[PCLZIP_OPT_PREPEND_COMMENT].$v_comment;
- }
-
- // ----- Calculate the size of the central header
- $v_size = @ftell($this->zip_fd)-$v_offset;
-
- // ----- Create the central dir footer
- if (($v_result =
$this->privWriteCentralHeader($v_count+$v_central_dir['entries'], $v_size,
$v_offset, $v_comment)) != 1)
- {
- // ----- Reset the file list
- unset($v_header_list);
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Swap back the file descriptor
- $v_swap = $this->zip_fd;
- $this->zip_fd = $v_zip_temp_fd;
- $v_zip_temp_fd = $v_swap;
-
- // ----- Close
- $this->privCloseFd();
-
- // ----- Close the temporary file
- @fclose($v_zip_temp_fd);
-
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Delete the zip file
- // TBC : I should test the result ...
- @unlink($this->zipname);
-
- // ----- Rename the temporary file
- // TBC : I should test the result ...
- //@rename($v_zip_temp_name, $this->zipname);
- PclZipUtilRename($v_zip_temp_name, $this->zipname);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privOpenFd()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function privOpenFd($p_mode)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privOpenFd", 'mode='.$p_mode);
- $v_result=1;
-
- // ----- Look if already open
- if ($this->zip_fd != 0)
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Zip file
\''.$this->zipname.'\' already open');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Open
file in '.$p_mode.' mode');
- if (($this->zip_fd = @fopen($this->zipname, $p_mode)) == 0)
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive
\''.$this->zipname.'\' in '.$p_mode.' mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privCloseFd()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function privCloseFd()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privCloseFd", "");
- $v_result=1;
-
- if ($this->zip_fd != 0)
- @fclose($this->zip_fd);
- $this->zip_fd = 0;
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privAddList()
- // Description :
- // $p_add_dir and $p_remove_dir will give the ability to memorize a path
which is
- // different from the real path of the file. This is usefull if you want
to have PclTar
- // running in any directory, and memorize relative path from an other
directory.
- // Parameters :
- // $p_list : An array containing the file or directory names to add in the
tar
- // $p_result_list : list of added files with their properties (specially
the status field)
- // $p_add_dir : Path to add in the filename path archived
- // $p_remove_dir : Path to remove in the filename path archived
- // Return Values :
- //
--------------------------------------------------------------------------------
-// function privAddList($p_list, &$p_result_list, $p_add_dir, $p_remove_dir,
$p_remove_all_dir, &$p_options)
- function privAddList($p_filedescr_list, &$p_result_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privAddList", "list");
- $v_result=1;
-
- // ----- Add the files
- $v_header_list = array();
- if (($v_result = $this->privAddFileList($p_filedescr_list, $v_header_list,
$p_options)) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Store the offset of the central dir
- $v_offset = @ftell($this->zip_fd);
-
- // ----- Create the Central Dir files header
- for ($i=0,$v_count=0; $i<sizeof($v_header_list); $i++)
- {
- // ----- Create the file header
- if ($v_header_list[$i]['status'] == 'ok') {
- if (($v_result =
$this->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- $v_count++;
- }
-
- // ----- Transform the header to a 'usable' info
- $this->privConvertHeader2FileInfo($v_header_list[$i],
$p_result_list[$i]);
- }
-
- // ----- Zip file comment
- $v_comment = '';
- if (isset($p_options[PCLZIP_OPT_COMMENT])) {
- $v_comment = $p_options[PCLZIP_OPT_COMMENT];
- }
-
- // ----- Calculate the size of the central header
- $v_size = @ftell($this->zip_fd)-$v_offset;
-
- // ----- Create the central dir footer
- if (($v_result = $this->privWriteCentralHeader($v_count, $v_size,
$v_offset, $v_comment)) != 1)
- {
- // ----- Reset the file list
- unset($v_header_list);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privAddFileList()
- // Description :
- // Parameters :
- // $p_filedescr_list : An array containing the file description
- // or directory names to add in the zip
- // $p_result_list : list of added files with their properties (specially
the status field)
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privAddFileList($p_filedescr_list, &$p_result_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privAddFileList", "filedescr_list");
- $v_result=1;
- $v_header = array();
-
- // ----- Recuperate the current number of elt in list
- $v_nb = sizeof($p_result_list);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Before
add, list have ".$v_nb." elements");
-
- // ----- Loop on the files
- for ($j=0; ($j<sizeof($p_filedescr_list)) && ($v_result==1); $j++) {
- // ----- Format the filename
- $p_filedescr_list[$j]['filename']
- = PclZipUtilTranslateWinPath($p_filedescr_list[$j]['filename'], false);
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Looking for file '".$p_filedescr_list[$j]['filename']."'");
-
- // ----- Skip empty file names
- // TBC : Can this be possible ? not checked in DescrParseAtt ?
- if ($p_filedescr_list[$j]['filename'] == "") {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Skip empty filename");
- continue;
- }
-
- // ----- Check the filename
- if (!file_exists($p_filedescr_list[$j]['filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File '".$p_filedescr_list[$j]['filename']."' does not exists");
- PclZip::privErrorLog(PCLZIP_ERR_MISSING_FILE, "File
'".$p_filedescr_list[$j]['filename']."' does not exists");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Look if it is a file or a dir with no all path remove option
- if ( (is_file($p_filedescr_list[$j]['filename']))
- || ( is_dir($p_filedescr_list[$j]['filename'])
- && ( !isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])
- || !$p_options[PCLZIP_OPT_REMOVE_ALL_PATH]))) {
-
- // ----- Add the file
- $v_result = $this->privAddFile($p_filedescr_list[$j], $v_header,
- $p_options);
- if ($v_result != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Store the file infos
- $p_result_list[$v_nb++] = $v_header;
- }
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "After
add, list have ".$v_nb." elements");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privAddFile()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privAddFile($p_filedescr, &$p_header, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privAddFile", "filename='".$p_filedescr['filename']."'");
- $v_result=1;
-
- // ----- Working variable
- $p_filename = $p_filedescr['filename'];
-
- // TBC : Already done in the fileAtt check ... ?
- if ($p_filename == "") {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid file list
parameter (invalid or empty list)");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Look for a stored different filename
- if (isset($p_filedescr['stored_filename'])) {
- $v_stored_filename = $p_filedescr['stored_filename'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
'Stored filename is NOT the same "'.$v_stored_filename.'"');
- }
- else {
- $v_stored_filename = $p_filedescr['stored_filename'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
'Stored filename is the same');
- }
-
- // ----- Set the file properties
- clearstatcache();
- $p_header['version'] = 20;
- $p_header['version_extracted'] = 10;
- $p_header['flag'] = 0;
- $p_header['compression'] = 0;
- $p_header['mtime'] = filemtime($p_filename);
- $p_header['crc'] = 0;
- $p_header['compressed_size'] = 0;
- $p_header['size'] = filesize($p_filename);
- $p_header['filename_len'] = strlen($p_filename);
- $p_header['extra_len'] = 0;
- $p_header['comment_len'] = 0;
- $p_header['disk'] = 0;
- $p_header['internal'] = 0;
-// $p_header['external'] = (is_file($p_filename)?0xFE49FFE0:0x41FF0010);
- $p_header['external'] = (is_file($p_filename)?0x00000000:0x00000010);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header
external extension '".sprintf("0x%X",$p_header['external'])."'");
- $p_header['offset'] = 0;
- $p_header['filename'] = $p_filename;
- $p_header['stored_filename'] = $v_stored_filename;
- $p_header['extra'] = '';
- $p_header['comment'] = '';
- $p_header['status'] = 'ok';
- $p_header['index'] = -1;
-
- // ----- Look for pre-add callback
- if (isset($p_options[PCLZIP_CB_PRE_ADD])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
pre-callback '".$p_options[PCLZIP_CB_PRE_ADD]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_header, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result = '.$p_options[PCLZIP_CB_PRE_ADD].'(PCLZIP_CB_PRE_ADD,
$v_local_header);');
- if ($v_result == 0) {
- // ----- Change the file status
- $p_header['status'] = "skipped";
- $v_result = 1;
- }
-
- // ----- Update the informations
- // Only some fields can be modified
- if ($p_header['stored_filename'] != $v_local_header['stored_filename']) {
- $p_header['stored_filename'] =
PclZipUtilPathReduction($v_local_header['stored_filename']);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New
stored filename is '".$p_header['stored_filename']."'");
- }
- }
-
- // ----- Look for empty stored filename
- if ($p_header['stored_filename'] == "") {
- $p_header['status'] = "filtered";
- }
-
- // ----- Check the path length
- if (strlen($p_header['stored_filename']) > 0xFF) {
- $p_header['status'] = 'filename_too_long';
- }
-
- // ----- Look if no error, or file not skipped
- if ($p_header['status'] == 'ok') {
-
- // ----- Look for a file
- if (is_file($p_filename))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"'".$p_filename."' is a file");
- // ----- Open the source file
- if (($v_file = @fopen($p_filename, "rb")) == 0) {
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file
'$p_filename' in binary read mode");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- if ($p_options[PCLZIP_OPT_NO_COMPRESSION]) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File will not be compressed");
- // ----- Read the file content
- $v_content_compressed = @fread($v_file, $p_header['size']);
-
- // ----- Calculate the CRC
- $p_header['crc'] = @crc32($v_content_compressed);
-
- // ----- Set header parameters
- $p_header['compressed_size'] = $p_header['size'];
- $p_header['compression'] = 0;
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File will be compressed");
- // ----- Read the file content
- $v_content = @fread($v_file, $p_header['size']);
-
- // ----- Calculate the CRC
- $p_header['crc'] = @crc32($v_content);
-
- // ----- Compress the file
- $v_content_compressed = @gzdeflate($v_content);
-
- // ----- Set header parameters
- $p_header['compressed_size'] = strlen($v_content_compressed);
- $p_header['compression'] = 8;
- }
-
- // ----- Look for encryption
- /*
- if ((isset($p_options[PCLZIP_OPT_CRYPT]))
- && ($p_options[PCLZIP_OPT_CRYPT] != "")) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File need to be crypted ....");
-
- // Should be a random header
- $v_header = 'xxxxxxxxxxxx';
- $v_content_compressed =
PclZipUtilZipEncrypt($v_content_compressed,
-
$p_header['compressed_size'],
- $v_header,
-
$p_header['crc'],
-
"test");
-
- $p_header['compressed_size'] += 12;
- $p_header['flag'] = 1;
-
- // ----- Add the header to the data
- $v_content_compressed = $v_header.$v_content_compressed;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Size after header : ".strlen($v_content_compressed)."");
- }
- */
-
- // ----- Call the header generation
- if (($v_result = $this->privWriteFileHeader($p_header)) != 1) {
- @fclose($v_file);
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Write the compressed (or not) content
- @fwrite($this->zip_fd,
- $v_content_compressed,
$p_header['compressed_size']);
-
- // ----- Close the file
- @fclose($v_file);
- }
-
- // ----- Look for a directory
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"'".$p_filename."' is a folder");
- // ----- Look for directory last '/'
- if (@substr($p_header['stored_filename'], -1) != '/') {
- $p_header['stored_filename'] .= '/';
- }
-
- // ----- Set the file properties
- $p_header['size'] = 0;
- //$p_header['external'] = 0x41FF0010; // Value for a folder : to be
checked
- $p_header['external'] = 0x00000010; // Value for a folder : to be
checked
-
- // ----- Call the header generation
- if (($v_result = $this->privWriteFileHeader($p_header)) != 1)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- }
- }
-
- // ----- Look for post-add callback
- if (isset($p_options[PCLZIP_CB_POST_ADD])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
post-callback '".$p_options[PCLZIP_CB_POST_ADD]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_header, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result = '.$p_options[PCLZIP_CB_POST_ADD].'(PCLZIP_CB_POST_ADD,
$v_local_header);');
- if ($v_result == 0) {
- // ----- Ignored
- $v_result = 1;
- }
-
- // ----- Update the informations
- // Nothing can be modified
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privCalculateStoredFilename()
- // Description :
- // Based on file descriptor properties and global options, this method
- // calculate the filename that will be stored in the archive.
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privCalculateStoredFilename(&$p_filedescr, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privCalculateStoredFilename",
"filename='".$p_filedescr['filename']."'");
- $v_result=1;
-
- // ----- Working variables
- $p_filename = $p_filedescr['filename'];
- if (isset($p_options[PCLZIP_OPT_ADD_PATH])) {
- $p_add_dir = $p_options[PCLZIP_OPT_ADD_PATH];
- }
- else {
- $p_add_dir = '';
- }
- if (isset($p_options[PCLZIP_OPT_REMOVE_PATH])) {
- $p_remove_dir = $p_options[PCLZIP_OPT_REMOVE_PATH];
- }
- else {
- $p_remove_dir = '';
- }
- if (isset($p_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {
- $p_remove_all_dir = $p_options[PCLZIP_OPT_REMOVE_ALL_PATH];
- }
- else {
- $p_remove_all_dir = 0;
- }
-
- // ----- Look for full name change
- if (isset($p_filedescr['new_full_name'])) {
- $v_stored_filename = $p_filedescr['new_full_name'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Changing full name of '".$p_filename."' for '".$v_stored_filename."'");
- }
-
- // ----- Look for path and/or short name change
- else {
-
- // ----- Look for short name change
- if (isset($p_filedescr['new_short_name'])) {
- $v_path_info = pathinfo($p_filename);
- $v_dir = '';
- if ($v_path_info['dirname'] != '') {
- $v_dir = $v_path_info['dirname'].'/';
- }
- $v_stored_filename = $v_dir.$p_filedescr['new_short_name'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Changing short name of '".$p_filename."' for '".$v_stored_filename."'");
- }
- else {
- // ----- Calculate the stored filename
- $v_stored_filename = $p_filename;
- }
-
- // ----- Look for all path to remove
- if ($p_remove_all_dir) {
- $v_stored_filename = basename($p_filename);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Remove all path selected change '".$p_filename."' for
'".$v_stored_filename."'");
- }
- // ----- Look for partial path remove
- else if ($p_remove_dir != "") {
- if (substr($p_remove_dir, -1) != '/')
- $p_remove_dir .= "/";
-
- if ( (substr($p_filename, 0, 2) == "./")
- || (substr($p_remove_dir, 0, 2) == "./")) {
-
- if ( (substr($p_filename, 0, 2) == "./")
- && (substr($p_remove_dir, 0, 2) != "./")) {
- $p_remove_dir = "./".$p_remove_dir;
- }
- if ( (substr($p_filename, 0, 2) != "./")
- && (substr($p_remove_dir, 0, 2) == "./")) {
- $p_remove_dir = substr($p_remove_dir, 2);
- }
- }
-
- $v_compare = PclZipUtilPathInclusion($p_remove_dir,
- $v_stored_filename);
- if ($v_compare > 0) {
- if ($v_compare == 2) {
- $v_stored_filename = "";
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Path to remove is the current folder");
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Remove path '$p_remove_dir' in file '$v_stored_filename'");
- $v_stored_filename = substr($v_stored_filename,
- strlen($p_remove_dir));
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Result is '$v_stored_filename'");
- }
- }
- }
- // ----- Look for path to add
- if ($p_add_dir != "") {
- if (substr($p_add_dir, -1) == "/")
- $v_stored_filename = $p_add_dir.$v_stored_filename;
- else
- $v_stored_filename = $p_add_dir."/".$v_stored_filename;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Add
path '$p_add_dir' in file '$p_filename' = '$v_stored_filename'");
- }
- }
-
- // ----- Filename (reduce the path of stored name)
- $v_stored_filename = PclZipUtilPathReduction($v_stored_filename);
- $p_filedescr['stored_filename'] = $v_stored_filename;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Stored
filename will be '".$p_filedescr['stored_filename']."', strlen
".strlen($p_filedescr['stored_filename']));
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privWriteFileHeader()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privWriteFileHeader(&$p_header)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privWriteFileHeader", 'file="'.$p_header['filename'].'", stored as
"'.$p_header['stored_filename'].'"');
- $v_result=1;
-
- // ----- Store the offset position of the file
- $p_header['offset'] = ftell($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, 'File
offset of the header :'.$p_header['offset']);
-
- // ----- Transform UNIX mtime to DOS format mdate/mtime
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date :
\''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- $v_date = getdate($p_header['mtime']);
- $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) +
$v_date['seconds']/2;
- $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) +
$v_date['mday'];
-
- // ----- Packed data
- $v_binary_data = pack("VvvvvvVVVvv", 0x04034b50,
- $p_header['version_extracted'], $p_header['flag'],
- $p_header['compression'], $v_mtime, $v_mdate,
- $p_header['crc'], $p_header['compressed_size'],
- $p_header['size'],
- strlen($p_header['stored_filename']),
- $p_header['extra_len']);
-
- // ----- Write the first 148 bytes of the header in the archive
- fputs($this->zip_fd, $v_binary_data, 30);
-
- // ----- Write the variable fields
- if (strlen($p_header['stored_filename']) != 0)
- {
- fputs($this->zip_fd, $p_header['stored_filename'],
strlen($p_header['stored_filename']));
- }
- if ($p_header['extra_len'] != 0)
- {
- fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privWriteCentralFileHeader()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privWriteCentralFileHeader(&$p_header)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privWriteCentralFileHeader", 'file="'.$p_header['filename'].'", stored
as "'.$p_header['stored_filename'].'"');
- $v_result=1;
-
- // TBC
- //for(reset($p_header); $key = key($p_header); next($p_header)) {
- // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"header[$key] = ".$p_header[$key]);
- //}
-
- // ----- Transform UNIX mtime to DOS format mdate/mtime
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date :
\''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- $v_date = getdate($p_header['mtime']);
- $v_mtime = ($v_date['hours']<<11) + ($v_date['minutes']<<5) +
$v_date['seconds']/2;
- $v_mdate = (($v_date['year']-1980)<<9) + ($v_date['mon']<<5) +
$v_date['mday'];
-
- // ----- Packed data
- $v_binary_data = pack("VvvvvvvVVVvvvvvVV", 0x02014b50,
- $p_header['version'],
$p_header['version_extracted'],
- $p_header['flag'], $p_header['compression'],
- $v_mtime, $v_mdate,
$p_header['crc'],
- $p_header['compressed_size'], $p_header['size'],
- strlen($p_header['stored_filename']),
- $p_header['extra_len'],
$p_header['comment_len'],
- $p_header['disk'], $p_header['internal'],
- $p_header['external'],
$p_header['offset']);
-
- // ----- Write the 42 bytes of the header in the zip file
- fputs($this->zip_fd, $v_binary_data, 46);
-
- // ----- Write the variable fields
- if (strlen($p_header['stored_filename']) != 0)
- {
- fputs($this->zip_fd, $p_header['stored_filename'],
strlen($p_header['stored_filename']));
- }
- if ($p_header['extra_len'] != 0)
- {
- fputs($this->zip_fd, $p_header['extra'], $p_header['extra_len']);
- }
- if ($p_header['comment_len'] != 0)
- {
- fputs($this->zip_fd, $p_header['comment'], $p_header['comment_len']);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privWriteCentralHeader()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privWriteCentralHeader($p_nb_entries, $p_size, $p_offset,
$p_comment)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privWriteCentralHeader", 'nb_entries='.$p_nb_entries.',
size='.$p_size.', offset='.$p_offset.', comment="'.$p_comment.'"');
- $v_result=1;
-
- // ----- Packed data
- $v_binary_data = pack("VvvvvVVv", 0x06054b50, 0, 0, $p_nb_entries,
- $p_nb_entries, $p_size,
- $p_offset,
strlen($p_comment));
-
- // ----- Write the 22 bytes of the header in the zip file
- fputs($this->zip_fd, $v_binary_data, 22);
-
- // ----- Write the variable fields
- if (strlen($p_comment) != 0)
- {
- fputs($this->zip_fd, $p_comment, strlen($p_comment));
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privList()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privList(&$p_list)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privList", "list");
- $v_result=1;
-
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($this->zip_fd = @fopen($this->zipname, 'rb')) == 0)
- {
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive
\''.$this->zipname.'\' in binary read mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Go to beginning of Central Dir
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Offset
: ".$v_central_dir['offset']."'");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Position in file : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Position in file : ".ftell($this->zip_fd)."'");
- if (@fseek($this->zip_fd, $v_central_dir['offset']))
- {
- $this->privSwapBackMagicQuotes();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive
size');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Position in file : ".ftell($this->zip_fd)."'");
-
- // ----- Read each entry
- for ($i=0; $i<$v_central_dir['entries']; $i++)
- {
- // ----- Read the file header
- if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
- {
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- $v_header['index'] = $i;
-
- // ----- Get the only interesting attributes
- $this->privConvertHeader2FileInfo($v_header, $p_list[$i]);
- unset($v_header);
- }
-
- // ----- Close the zip file
- $this->privCloseFd();
-
- // ----- Magic quotes trick
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privConvertHeader2FileInfo()
- // Description :
- // This function takes the file informations from the central directory
- // entries and extract the interesting parameters that will be given back.
- // The resulting file infos are set in the array $p_info
- // $p_info['filename'] : Filename with full path. Given by user (add),
- // extracted in the filesystem (extract).
- // $p_info['stored_filename'] : Stored filename in the archive.
- // $p_info['size'] = Size of the file.
- // $p_info['compressed_size'] = Compressed size of the file.
- // $p_info['mtime'] = Last modification date of the file.
- // $p_info['comment'] = Comment associated with the file.
- // $p_info['folder'] = true/false : indicates if the entry is a folder
or not.
- // $p_info['status'] = status of the action on the file.
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privConvertHeader2FileInfo($p_header, &$p_info)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privConvertHeader2FileInfo", "Filename='".$p_header['filename']."'");
- $v_result=1;
-
- // ----- Get the interesting attributes
- $p_info['filename'] = $p_header['filename'];
- $p_info['stored_filename'] = $p_header['stored_filename'];
- $p_info['size'] = $p_header['size'];
- $p_info['compressed_size'] = $p_header['compressed_size'];
- $p_info['mtime'] = $p_header['mtime'];
- $p_info['comment'] = $p_header['comment'];
- $p_info['folder'] = (($p_header['external']&0x00000010)==0x00000010);
- $p_info['index'] = $p_header['index'];
- $p_info['status'] = $p_header['status'];
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privExtractByRule()
- // Description :
- // Extract a file or directory depending of rules (by index, by name, ...)
- // Parameters :
- // $p_file_list : An array where will be placed the properties of each
- // extracted file
- // $p_path : Path to add while writing the extracted files
- // $p_remove_path : Path to remove (from the file memorized path) while
writing the
- // extracted files. If the path does not match the file
path,
- // the file is extracted with its memorized path.
- // $p_remove_path does not apply to 'list' mode.
- // $p_path and $p_remove_path are commulative.
- // Return Values :
- // 1 on success,0 or less on error (see error code list)
- //
--------------------------------------------------------------------------------
- function privExtractByRule(&$p_file_list, $p_path, $p_remove_path,
$p_remove_all_path, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privExtractByRule", "path='$p_path', remove_path='$p_remove_path',
remove_all_path='".($p_remove_all_path?'true':'false')."'");
- $v_result=1;
-
- // ----- Magic quotes trick
- $this->privDisableMagicQuotes();
-
- // ----- Check the path
- if ( ($p_path == "")
- || ( (substr($p_path, 0, 1) != "/")
- && (substr($p_path, 0, 3) != "../")
- && (substr($p_path,1,2)!=":/")))
- $p_path = "./".$p_path;
-
- // ----- Reduce the path last (and duplicated) '/'
- if (($p_path != "./") && ($p_path != "/"))
- {
- // ----- Look for the path end '/'
- while (substr($p_path, -1) == "/")
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Destination path [$p_path] ends by '/'");
- $p_path = substr($p_path, 0, strlen($p_path)-1);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Modified to [$p_path]");
- }
- }
-
- // ----- Look for path to remove format (should end by /)
- if (($p_remove_path != "") && (substr($p_remove_path, -1) != '/'))
- {
- $p_remove_path .= '/';
- }
- $p_remove_path_size = strlen($p_remove_path);
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_result = $this->privOpenFd('rb')) != 1)
- {
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Start at beginning of Central Dir
- $v_pos_entry = $v_central_dir['offset'];
-
- // ----- Read each entry
- $j_start = 0;
- for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Read
next file header entry : '$i'");
-
- // ----- Read next Central dir entry
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Position before rewind : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Position after rewind : ".ftell($this->zip_fd)."'");
- if (@fseek($this->zip_fd, $v_pos_entry))
- {
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive
size');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Position after fseek : ".ftell($this->zip_fd)."'");
-
- // ----- Read the file header
- $v_header = array();
- if (($v_result = $this->privReadCentralFileHeader($v_header)) != 1)
- {
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Store the index
- $v_header['index'] = $i;
-
- // ----- Store the file position
- $v_pos_entry = ftell($this->zip_fd);
-
- // ----- Look for the specific extract rules
- $v_extract = false;
-
- // ----- Look for extract by name rule
- if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
- && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByName'");
-
- // ----- Look if the filename is in the list
- for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) &&
(!$v_extract); $j++) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Compare with file '".$p_options[PCLZIP_OPT_BY_NAME][$j]."'");
-
- // ----- Look for a directory
- if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The searched item is a directory");
-
- // ----- Look if the directory is in the filename path
- if ( (strlen($v_header['stored_filename']) >
strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
- && (substr($v_header['stored_filename'], 0,
strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) ==
$p_options[PCLZIP_OPT_BY_NAME][$j])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The directory is in the file path");
- $v_extract = true;
- }
- }
- // ----- Look for a filename
- elseif ($v_header['stored_filename'] ==
$p_options[PCLZIP_OPT_BY_NAME][$j]) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The file is the right one.");
- $v_extract = true;
- }
- }
- }
-
- // ----- Look for extract by ereg rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
- && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract by ereg '".$p_options[PCLZIP_OPT_BY_EREG]."'");
-
- if (ereg($p_options[PCLZIP_OPT_BY_EREG],
$v_header['stored_filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Filename match the regular expression");
- $v_extract = true;
- }
- }
-
- // ----- Look for extract by preg rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
- && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByEreg'");
-
- if (preg_match($p_options[PCLZIP_OPT_BY_PREG],
$v_header['stored_filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Filename match the regular expression");
- $v_extract = true;
- }
- }
-
- // ----- Look for extract by index rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
- && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByIndex'");
-
- // ----- Look if the index is in the list
- for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) &&
(!$v_extract); $j++) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Look if index '$i' is in
[".$p_options[PCLZIP_OPT_BY_INDEX][$j]['start'].",".$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']."]");
-
- if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) &&
($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Found as part of an index range");
- $v_extract = true;
- }
- if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Do not look this index range for next loop");
- $j_start = $j+1;
- }
-
- if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Index range is greater than index, stop loop");
- break;
- }
- }
- }
-
- // ----- Look for no rule, which means extract all the archive
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with no rule (extract all)");
- $v_extract = true;
- }
-
- // ----- Check compression method
- if ( ($v_extract)
- && ( ($v_header['compression'] != 8)
- && ($v_header['compression'] != 0))) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unsupported compression method (".$v_header['compression'].")");
- $v_header['status'] = 'unsupported_compression';
-
- // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
- if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
- && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
-
- $this->privSwapBackMagicQuotes();
-
- PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_COMPRESSION,
- "Filename
'".$v_header['stored_filename']."' is "
- ."compressed by an
unsupported compression "
- ."method
(".$v_header['compression'].") ");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Check encrypted files
- if (($v_extract) && (($v_header['flag'] & 1) == 1)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unsupported file encryption");
- $v_header['status'] = 'unsupported_encryption';
-
- // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
- if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
- && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
-
- $this->privSwapBackMagicQuotes();
-
- PclZip::privErrorLog(PCLZIP_ERR_UNSUPPORTED_ENCRYPTION,
- "Unsupported encryption for "
- ." filename
'".$v_header['stored_filename']
- ."'");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Look for real extraction
- if (($v_extract) && ($v_header['status'] != 'ok')) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"No need for extract");
- $v_result = $this->privConvertHeader2FileInfo($v_header,
-
$p_file_list[$v_nb_extracted++]);
- if ($v_result != 1) {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- $v_extract = false;
- }
-
- // ----- Look for real extraction
- if ($v_extract)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting file '".$v_header['filename']."', index '$i'");
-
- // ----- Go to the file position
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position before rewind : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after rewind : ".ftell($this->zip_fd)."'");
- if (@fseek($this->zip_fd, $v_header['offset']))
- {
- // ----- Close the zip file
- $this->privCloseFd();
-
- $this->privSwapBackMagicQuotes();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid
archive size');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after fseek : ".ftell($this->zip_fd)."'");
-
- // ----- Look for extraction as string
- if ($p_options[PCLZIP_OPT_EXTRACT_AS_STRING]) {
-
- // ----- Extracting the file
- $v_result1 = $this->privExtractFileAsString($v_header, $v_string);
- if ($v_result1 < 1) {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result1);
- return $v_result1;
- }
-
- // ----- Get the only interesting attributes
- if (($v_result = $this->privConvertHeader2FileInfo($v_header,
$p_file_list[$v_nb_extracted])) != 1)
- {
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Set the file content
- $p_file_list[$v_nb_extracted]['content'] = $v_string;
-
- // ----- Next extracted file
- $v_nb_extracted++;
-
- // ----- Look for user callback abort
- if ($v_result1 == 2) {
- break;
- }
- }
- // ----- Look for extraction in standard output
- elseif ( (isset($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT]))
- && ($p_options[PCLZIP_OPT_EXTRACT_IN_OUTPUT])) {
- // ----- Extracting the file in standard output
- $v_result1 = $this->privExtractFileInOutput($v_header, $p_options);
- if ($v_result1 < 1) {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result1);
- return $v_result1;
- }
-
- // ----- Get the only interesting attributes
- if (($v_result = $this->privConvertHeader2FileInfo($v_header,
$p_file_list[$v_nb_extracted++])) != 1) {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Look for user callback abort
- if ($v_result1 == 2) {
- break;
- }
- }
- // ----- Look for normal extraction
- else {
- // ----- Extracting the file
- $v_result1 = $this->privExtractFile($v_header,
- $p_path, $p_remove_path,
-
$p_remove_all_path,
-
$p_options);
- if ($v_result1 < 1) {
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result1);
- return $v_result1;
- }
-
- // ----- Get the only interesting attributes
- if (($v_result = $this->privConvertHeader2FileInfo($v_header,
$p_file_list[$v_nb_extracted++])) != 1)
- {
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Look for user callback abort
- if ($v_result1 == 2) {
- break;
- }
- }
- }
- }
-
- // ----- Close the zip file
- $this->privCloseFd();
- $this->privSwapBackMagicQuotes();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privExtractFile()
- // Description :
- // Parameters :
- // Return Values :
- //
- // 1 : ... ?
- // PCLZIP_ERR_USER_ABORTED(2) : User ask for extraction stop in callback
- //
--------------------------------------------------------------------------------
- function privExtractFile(&$p_entry, $p_path, $p_remove_path,
$p_remove_all_path, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privExtractFile', "path='$p_path', remove_path='$p_remove_path',
remove_all_path='".($p_remove_all_path?'true':'false')."'");
- $v_result=1;
-
- // ----- Read the file header
- if (($v_result = $this->privReadFileHeader($v_header)) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found
file '".$v_header['filename']."', size '".$v_header['size']."'");
-
- // ----- Check that the file header is coherent with $p_entry info
- if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
- // TBC
- }
-
- // ----- Look for all path to remove
- if ($p_remove_all_path == true) {
- // ----- Look for folder entry that not need to be extracted
- if (($p_entry['external']&0x00000010)==0x00000010) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"The entry is a folder : need to be filtered");
-
- $p_entry['status'] = "filtered";
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "All
path is removed");
- // ----- Get the basename of the path
- $p_entry['filename'] = basename($p_entry['filename']);
- }
-
- // ----- Look for path to remove
- else if ($p_remove_path != "")
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Look
for some path to remove");
- if (PclZipUtilPathInclusion($p_remove_path, $p_entry['filename']) == 2)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The
folder is the same as the removed path '".$p_entry['filename']."'");
-
- // ----- Change the file status
- $p_entry['status'] = "filtered";
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- $p_remove_path_size = strlen($p_remove_path);
- if (substr($p_entry['filename'], 0, $p_remove_path_size) ==
$p_remove_path)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Found path '$p_remove_path' to remove in file '".$p_entry['filename']."'");
-
- // ----- Remove the path
- $p_entry['filename'] = substr($p_entry['filename'],
$p_remove_path_size);
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Resulting file is '".$p_entry['filename']."'");
- }
- }
-
- // ----- Add the path
- if ($p_path != '') {
- $p_entry['filename'] = $p_path."/".$p_entry['filename'];
- }
-
- // ----- Check a base_dir_restriction
- if (isset($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Check
the extract directory restriction");
- $v_inclusion
- = PclZipUtilPathInclusion($p_options[PCLZIP_OPT_EXTRACT_DIR_RESTRICTION],
- $p_entry['filename']);
- if ($v_inclusion == 0) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"PCLZIP_OPT_EXTRACT_DIR_RESTRICTION is selected, file is outside restriction");
-
- PclZip::privErrorLog(PCLZIP_ERR_DIRECTORY_RESTRICTION,
- "Filename
'".$p_entry['filename']."' is "
- ."outside
PCLZIP_OPT_EXTRACT_DIR_RESTRICTION");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Look for pre-extract callback
- if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
pre-callback '".$p_options[PCLZIP_CB_PRE_EXTRACT]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result =
'.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT,
$v_local_header);');
- if ($v_result == 0) {
- // ----- Change the file status
- $p_entry['status'] = "skipped";
- $v_result = 1;
- }
-
- // ----- Look for abort result
- if ($v_result == 2) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"User callback abort the extraction");
- // ----- This status is internal and will be changed in 'skipped'
- $p_entry['status'] = "aborted";
- $v_result = PCLZIP_ERR_USER_ABORTED;
- }
-
- // ----- Update the informations
- // Only some fields can be modified
- $p_entry['filename'] = $v_local_header['filename'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New
filename is '".$p_entry['filename']."'");
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting file (with path) '".$p_entry['filename']."', size
'$v_header[size]'");
-
- // ----- Look if extraction should be done
- if ($p_entry['status'] == 'ok') {
-
- // ----- Look for specific actions while the file exist
- if (file_exists($p_entry['filename']))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "File
'".$p_entry['filename']."' already exists");
-
- // ----- Look if file is a directory
- if (is_dir($p_entry['filename']))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Existing file '".$p_entry['filename']."' is a directory");
-
- // ----- Change the file status
- $p_entry['status'] = "already_a_directory";
-
- // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
- // For historical reason first PclZip implementation does not stop
- // when this kind of error occurs.
- if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
- && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
-
- PclZip::privErrorLog(PCLZIP_ERR_ALREADY_A_DIRECTORY,
- "Filename
'".$p_entry['filename']."' is "
- ."already used
by an existing directory");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
- // ----- Look if file is write protected
- else if (!is_writeable($p_entry['filename']))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Existing file '".$p_entry['filename']."' is write protected");
-
- // ----- Change the file status
- $p_entry['status'] = "write_protected";
-
- // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
- // For historical reason first PclZip implementation does not stop
- // when this kind of error occurs.
- if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
- && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
-
- PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
- "Filename
'".$p_entry['filename']."' exists "
- ."and is write
protected");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Look if the extracted file is older
- else if (filemtime($p_entry['filename']) > $p_entry['mtime'])
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Existing file '".$p_entry['filename']."' is newer (".date("l dS of F Y h:i:s
A", filemtime($p_entry['filename'])).") than the extracted file (".date("l dS
of F Y h:i:s A", $p_entry['mtime']).")");
- // ----- Change the file status
- if ( (isset($p_options[PCLZIP_OPT_REPLACE_NEWER]))
- && ($p_options[PCLZIP_OPT_REPLACE_NEWER]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"PCLZIP_OPT_REPLACE_NEWER is selected, file will be replaced");
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File will not be replaced");
- $p_entry['status'] = "newer_exist";
-
- // ----- Look for PCLZIP_OPT_STOP_ON_ERROR
- // For historical reason first PclZip implementation does not stop
- // when this kind of error occurs.
- if ( (isset($p_options[PCLZIP_OPT_STOP_ON_ERROR]))
- && ($p_options[PCLZIP_OPT_STOP_ON_ERROR]===true)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
2, "PCLZIP_OPT_STOP_ON_ERROR is selected, extraction will be stopped");
-
- PclZip::privErrorLog(PCLZIP_ERR_WRITE_OPEN_FAIL,
- "Newer version of
'".$p_entry['filename']."' exists "
- ."and option
PCLZIP_OPT_REPLACE_NEWER is not selected");
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Existing file '".$p_entry['filename']."' is older than the extrated one - will
be replaced by the extracted one (".date("l dS of F Y h:i:s A",
filemtime($p_entry['filename'])).") than the extracted file (".date("l dS of F
Y h:i:s A", $p_entry['mtime']).")");
- }
- }
-
- // ----- Check the directory availability and create it if necessary
- else {
- if ((($p_entry['external']&0x00000010)==0x00000010) ||
(substr($p_entry['filename'], -1) == '/'))
- $v_dir_to_check = $p_entry['filename'];
- else if (!strstr($p_entry['filename'], "/"))
- $v_dir_to_check = "";
- else
- $v_dir_to_check = dirname($p_entry['filename']);
-
- if (($v_result = $this->privDirCheck($v_dir_to_check,
(($p_entry['external']&0x00000010)==0x00000010))) != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unable to create path for '".$p_entry['filename']."'");
-
- // ----- Change the file status
- $p_entry['status'] = "path_creation_fail";
-
- // ----- Return
- ////--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- //return $v_result;
- $v_result = 1;
- }
- }
- }
-
- // ----- Look if extraction should be done
- if ($p_entry['status'] == 'ok') {
-
- // ----- Do the extraction (if not a folder)
- if (!(($p_entry['external']&0x00000010)==0x00000010))
- {
- // ----- Look for not compressed file
- if ($p_entry['compression'] == 0) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting an un-compressed file");
-
- // ----- Opening destination file
- if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Error while opening '".$p_entry['filename']."' in write binary mode");
-
- // ----- Change the file status
- $p_entry['status'] = "write_error";
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Read '".$p_entry['size']."' bytes");
-
- // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks
- $v_size = $p_entry['compressed_size'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Read $v_read_size bytes");
- $v_buffer = @fread($this->zip_fd, $v_read_size);
- /* Try to speed up the code
- $v_binary_data = pack('a'.$v_read_size, $v_buffer);
- @fwrite($v_dest_file, $v_binary_data, $v_read_size);
- */
- @fwrite($v_dest_file, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Closing the destination file
- fclose($v_dest_file);
-
- // ----- Change the file mtime
- touch($p_entry['filename'], $p_entry['mtime']);
-
-
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting a compressed file (Compression method
".$p_entry['compression'].")");
- // ----- TBC
- // Need to be finished
- if (($p_entry['flag'] & 1) == 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
2, "File is encrypted");
- /*
- // ----- Read the encryption header
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
5, "Read 12 encryption header bytes");
- $v_encryption_header = @fread($this->zip_fd, 12);
-
- // ----- Read the encrypted & compressed file in a buffer
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
5, "Read '".($p_entry['compressed_size']-12)."' compressed & encrypted bytes");
- $v_buffer = @fread($this->zip_fd,
$p_entry['compressed_size']-12);
-
- // ----- Decrypt the buffer
- $this->privDecrypt($v_encryption_header, $v_buffer,
- $p_entry['compressed_size']-12,
$p_entry['crc']);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
5, "Buffer is '".$v_buffer."'");
- */
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
5, "Read '".$p_entry['compressed_size']."' compressed bytes");
- // ----- Read the compressed file in a buffer (one shot)
- $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
- }
-
- // ----- Decompress the file
- $v_file_content = @gzinflate($v_buffer);
- unset($v_buffer);
- if ($v_file_content === FALSE) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unable to inflate compressed file");
-
- // ----- Change the file status
- // TBC
- $p_entry['status'] = "error";
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Opening destination file
- if (($v_dest_file = @fopen($p_entry['filename'], 'wb')) == 0) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Error while opening '".$p_entry['filename']."' in write binary mode");
-
- // ----- Change the file status
- $p_entry['status'] = "write_error";
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Write the uncompressed data
- @fwrite($v_dest_file, $v_file_content, $p_entry['size']);
- unset($v_file_content);
-
- // ----- Closing the destination file
- @fclose($v_dest_file);
-
- // ----- Change the file mtime
- @touch($p_entry['filename'], $p_entry['mtime']);
- }
-
- // ----- Look for chmod option
- if (isset($p_options[PCLZIP_OPT_SET_CHMOD])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"chmod option activated '".$p_options[PCLZIP_OPT_SET_CHMOD]."'");
-
- // ----- Change the mode of the file
- @chmod($p_entry['filename'], $p_options[PCLZIP_OPT_SET_CHMOD]);
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extraction done");
- }
- }
-
- // ----- Change abort status
- if ($p_entry['status'] == "aborted") {
- $p_entry['status'] = "skipped";
- }
-
- // ----- Look for post-extract callback
- elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
post-callback '".$p_options[PCLZIP_CB_POST_EXTRACT]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result =
'.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT,
$v_local_header);');
-
- // ----- Look for abort result
- if ($v_result == 2) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"User callback abort the extraction");
- $v_result = PCLZIP_ERR_USER_ABORTED;
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privExtractFileInOutput()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privExtractFileInOutput(&$p_entry, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privExtractFileInOutput', "");
- $v_result=1;
-
- // ----- Read the file header
- if (($v_result = $this->privReadFileHeader($v_header)) != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found
file '".$v_header['filename']."', size '".$v_header['size']."'");
-
- // ----- Check that the file header is coherent with $p_entry info
- if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
- // TBC
- }
-
- // ----- Look for pre-extract callback
- if (isset($p_options[PCLZIP_CB_PRE_EXTRACT])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
pre-callback '".$p_options[PCLZIP_CB_PRE_EXTRACT]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result =
'.$p_options[PCLZIP_CB_PRE_EXTRACT].'(PCLZIP_CB_PRE_EXTRACT,
$v_local_header);');
- if ($v_result == 0) {
- // ----- Change the file status
- $p_entry['status'] = "skipped";
- $v_result = 1;
- }
-
- // ----- Look for abort result
- if ($v_result == 2) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"User callback abort the extraction");
- // ----- This status is internal and will be changed in 'skipped'
- $p_entry['status'] = "aborted";
- $v_result = PCLZIP_ERR_USER_ABORTED;
- }
-
- // ----- Update the informations
- // Only some fields can be modified
- $p_entry['filename'] = $v_local_header['filename'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "New
filename is '".$p_entry['filename']."'");
- }
-
- // ----- Trace
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting file (with path) '".$p_entry['filename']."', size
'$v_header[size]'");
-
- // ----- Look if extraction should be done
- if ($p_entry['status'] == 'ok') {
-
- // ----- Do the extraction (if not a folder)
- if (!(($p_entry['external']&0x00000010)==0x00000010)) {
- // ----- Look for not compressed file
- if ($p_entry['compressed_size'] == $p_entry['size']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting an un-compressed file");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Reading '".$p_entry['size']."' bytes");
-
- // ----- Read the file in a buffer (one shot)
- $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
-
- // ----- Send the file to the output
- echo $v_buffer;
- unset($v_buffer);
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting a compressed file");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Reading '".$p_entry['size']."' bytes");
-
- // ----- Read the compressed file in a buffer (one shot)
- $v_buffer = @fread($this->zip_fd, $p_entry['compressed_size']);
-
- // ----- Decompress the file
- $v_file_content = gzinflate($v_buffer);
- unset($v_buffer);
-
- // ----- Send the file to the output
- echo $v_file_content;
- unset($v_file_content);
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extraction done");
- }
- }
-
- // ----- Change abort status
- if ($p_entry['status'] == "aborted") {
- $p_entry['status'] = "skipped";
- }
-
- // ----- Look for post-extract callback
- elseif (isset($p_options[PCLZIP_CB_POST_EXTRACT])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "A
post-callback '".$p_options[PCLZIP_CB_POST_EXTRACT]."()') is defined for the
extraction");
-
- // ----- Generate a local information
- $v_local_header = array();
- $this->privConvertHeader2FileInfo($p_entry, $v_local_header);
-
- // ----- Call the callback
- // Here I do not use call_user_func() because I need to send a reference
to the
- // header.
- eval('$v_result =
'.$p_options[PCLZIP_CB_POST_EXTRACT].'(PCLZIP_CB_POST_EXTRACT,
$v_local_header);');
-
- // ----- Look for abort result
- if ($v_result == 2) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"User callback abort the extraction");
- $v_result = PCLZIP_ERR_USER_ABORTED;
- }
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privExtractFileAsString()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privExtractFileAsString(&$p_entry, &$p_string)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privExtractFileAsString',
"p_entry['filename']='".$p_entry['filename']."'");
- $v_result=1;
-
- // ----- Read the file header
- $v_header = array();
- if (($v_result = $this->privReadFileHeader($v_header)) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Found
file '".$v_header['filename']."', size '".$v_header['size']."'");
-
- // ----- Check that the file header is coherent with $p_entry info
- if ($this->privCheckFileHeaders($v_header, $p_entry) != 1) {
- // TBC
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting file in string (with path) '".$p_entry['filename']."', size
'$v_header[size]'");
-
- // ----- Do the extraction (if not a folder)
- if (!(($p_entry['external']&0x00000010)==0x00000010))
- {
- // ----- Look for not compressed file
-// if ($p_entry['compressed_size'] == $p_entry['size'])
- if ($p_entry['compression'] == 0) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting an un-compressed file");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Reading '".$p_entry['size']."' bytes");
-
- // ----- Reading the file
- $p_string = @fread($this->zip_fd, $p_entry['compressed_size']);
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extracting a compressed file (compression method
'".$p_entry['compression']."')");
-
- // ----- Reading the file
- $v_data = @fread($this->zip_fd, $p_entry['compressed_size']);
-
- // ----- Decompress the file
- if (($p_string = @gzinflate($v_data)) === FALSE) {
- // TBC
- }
- }
-
- // ----- Trace
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Extraction done");
- }
- else {
- // TBC : error : can not extract a folder in a string
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privReadFileHeader()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privReadFileHeader(&$p_header)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privReadFileHeader", "");
- $v_result=1;
-
- // ----- Read the 4 bytes signature
- $v_binary_data = @fread($this->zip_fd, 4);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary
data is : '".sprintf("%08x", $v_binary_data)."'");
- $v_data = unpack('Vid', $v_binary_data);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary
signature is : '".sprintf("0x%08x", $v_data['id'])."'");
-
- // ----- Check signature
- if ($v_data['id'] != 0x04034b50)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Invalid File header");
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Read the first 42 bytes of the header
- $v_binary_data = fread($this->zip_fd, 26);
-
- // ----- Look for invalid block size
- if (strlen($v_binary_data) != 26)
- {
- $p_header['filename'] = "";
- $p_header['status'] = "invalid_header";
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Invalid block size : ".strlen($v_binary_data));
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size :
".strlen($v_binary_data));
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Extract the values
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Header
: '".$v_binary_data."'");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Header
(Hex) : '".bin2hex($v_binary_data)."'");
- $v_data =
unpack('vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len',
$v_binary_data);
-
- // ----- Get filename
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "File
name length : ".$v_data['filename_len']);
- $p_header['filename'] = fread($this->zip_fd, $v_data['filename_len']);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Filename : \''.$p_header['filename'].'\'');
-
- // ----- Get extra_fields
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Extra
field length : ".$v_data['extra_len']);
- if ($v_data['extra_len'] != 0) {
- $p_header['extra'] = fread($this->zip_fd, $v_data['extra_len']);
- }
- else {
- $p_header['extra'] = '';
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Extra
field : \''.bin2hex($p_header['extra']).'\'');
-
- // ----- Extract properties
- $p_header['version_extracted'] = $v_data['version'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version
need to extract : ('.$p_header['version_extracted'].')
\''.($p_header['version_extracted']/10).'.'.($p_header['version_extracted']%10).'\'');
- $p_header['compression'] = $v_data['compression'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Compression method : \''.$p_header['compression'].'\'');
- $p_header['size'] = $v_data['size'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Size :
\''.$p_header['size'].'\'');
- $p_header['compressed_size'] = $v_data['compressed_size'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Compressed Size : \''.$p_header['compressed_size'].'\'');
- $p_header['crc'] = $v_data['crc'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'CRC :
\''.sprintf("0x%X", $p_header['crc']).'\'');
- $p_header['flag'] = $v_data['flag'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Flag :
\''.$p_header['flag'].'\'');
- $p_header['filename_len'] = $v_data['filename_len'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Filename_len : \''.$p_header['filename_len'].'\'');
-
- // ----- Recuperate date in UNIX format
- $p_header['mdate'] = $v_data['mdate'];
- $p_header['mtime'] = $v_data['mtime'];
- if ($p_header['mdate'] && $p_header['mtime'])
- {
- // ----- Extract time
- $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
- $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
- $v_seconde = ($p_header['mtime'] & 0x001F)*2;
-
- // ----- Extract date
- $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
- $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
- $v_day = $p_header['mdate'] & 0x001F;
-
- // ----- Get UNIX date format
- $p_header['mtime'] = mktime($v_hour, $v_minute, $v_seconde, $v_month,
$v_day, $v_year);
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date
: \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- }
- else
- {
- $p_header['mtime'] = time();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Date
is actual : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- }
-
- // TBC
- //for(reset($v_data); $key = key($v_data); next($v_data)) {
- // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Attribut[$key] = ".$v_data[$key]);
- //}
-
- // ----- Set the stored filename
- $p_header['stored_filename'] = $p_header['filename'];
-
- // ----- Set the status field
- $p_header['status'] = "ok";
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privReadCentralFileHeader()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privReadCentralFileHeader(&$p_header)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privReadCentralFileHeader", "");
- $v_result=1;
-
- // ----- Read the 4 bytes signature
- $v_binary_data = @fread($this->zip_fd, 4);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary
data is : '".sprintf("%08x", $v_binary_data)."'");
- $v_data = unpack('Vid', $v_binary_data);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Binary
signature is : '".sprintf("0x%08x", $v_data['id'])."'");
-
- // ----- Check signature
- if ($v_data['id'] != 0x02014b50)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Invalid Central Dir File signature");
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Invalid archive structure');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Read the first 42 bytes of the header
- $v_binary_data = fread($this->zip_fd, 42);
-
- // ----- Look for invalid block size
- if (strlen($v_binary_data) != 42)
- {
- $p_header['filename'] = "";
- $p_header['status'] = "invalid_header";
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Invalid block size : ".strlen($v_binary_data));
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size :
".strlen($v_binary_data));
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Extract the values
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header
: '".$v_binary_data."'");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Header
(Hex) : '".bin2hex($v_binary_data)."'");
- $p_header =
unpack('vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset',
$v_binary_data);
-
- // ----- Get filename
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "File
name length : ".$p_header['filename_len']);
- if ($p_header['filename_len'] != 0)
- $p_header['filename'] = fread($this->zip_fd, $p_header['filename_len']);
- else
- $p_header['filename'] = '';
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Filename : \''.$p_header['filename'].'\'');
-
- // ----- Get extra
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Extra
length : ".$p_header['extra_len']);
- if ($p_header['extra_len'] != 0)
- $p_header['extra'] = fread($this->zip_fd, $p_header['extra_len']);
- else
- $p_header['extra'] = '';
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Extra :
\''.$p_header['extra'].'\'');
-
- // ----- Get comment
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Comment
length : ".$p_header['comment_len']);
- if ($p_header['comment_len'] != 0)
- $p_header['comment'] = fread($this->zip_fd, $p_header['comment_len']);
- else
- $p_header['comment'] = '';
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Comment
: \''.$p_header['comment'].'\'');
-
- // ----- Extract properties
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version
: \''.($p_header['version']/10).'.'.($p_header['version']%10).'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Version
need to extract :
\''.($p_header['version_extracted']/10).'.'.($p_header['version_extracted']%10).'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Size :
\''.$p_header['size'].'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Compressed Size : \''.$p_header['compressed_size'].'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'CRC :
\''.sprintf("0x%X", $p_header['crc']).'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Flag :
\''.$p_header['flag'].'\'');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Offset
: \''.$p_header['offset'].'\'');
-
- // ----- Recuperate date in UNIX format
- if ($p_header['mdate'] && $p_header['mtime'])
- {
- // ----- Extract time
- $v_hour = ($p_header['mtime'] & 0xF800) >> 11;
- $v_minute = ($p_header['mtime'] & 0x07E0) >> 5;
- $v_seconde = ($p_header['mtime'] & 0x001F)*2;
-
- // ----- Extract date
- $v_year = (($p_header['mdate'] & 0xFE00) >> 9) + 1980;
- $v_month = ($p_header['mdate'] & 0x01E0) >> 5;
- $v_day = $p_header['mdate'] & 0x001F;
-
- // ----- Get UNIX date format
- $p_header['mtime'] = mktime($v_hour, $v_minute, $v_seconde, $v_month,
$v_day, $v_year);
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Date
: \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- }
- else
- {
- $p_header['mtime'] = time();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Date
is actual : \''.date("d/m/y H:i:s", $p_header['mtime']).'\'');
- }
-
- // ----- Set the stored filename
- $p_header['stored_filename'] = $p_header['filename'];
-
- // ----- Set default status to ok
- $p_header['status'] = 'ok';
-
- // ----- Look if it is a directory
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Internal (Hex) : '".sprintf("Ox%04X", $p_header['internal'])."'");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"External (Hex) : '".sprintf("Ox%04X", $p_header['external'])."'
(".(($p_header['external']&0x00000010)==0x00000010?'is a folder':'is a
file').')');
- if (substr($p_header['filename'], -1) == '/') {
- //$p_header['external'] = 0x41FF0010;
- $p_header['external'] = 0x00000010;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Force
folder external : \''.sprintf("Ox%04X", $p_header['external']).'\'');
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Header
of filename : \''.$p_header['filename'].'\'');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privCheckFileHeaders()
- // Description :
- // Parameters :
- // Return Values :
- // 1 on success,
- // 0 on error;
- //
--------------------------------------------------------------------------------
- function privCheckFileHeaders(&$p_local_header, &$p_central_header)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privCheckFileHeaders", "");
- $v_result=1;
-
- // ----- Check the static values
- // TBC
- if ($p_local_header['filename'] != $p_central_header['filename']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "filename" : TBC To Be Completed');
- }
- if ($p_local_header['version_extracted'] !=
$p_central_header['version_extracted']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "version_extracted" : TBC To Be Completed');
- }
- if ($p_local_header['flag'] != $p_central_header['flag']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "flag" : TBC To Be Completed');
- }
- if ($p_local_header['compression'] != $p_central_header['compression'])
{
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "compression" : TBC To Be Completed');
- }
- if ($p_local_header['mtime'] != $p_central_header['mtime']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "mtime" : TBC To Be Completed');
- }
- if ($p_local_header['filename_len'] !=
$p_central_header['filename_len']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Bad
check "filename_len" : TBC To Be Completed');
- }
-
- // ----- Look for flag bit 3
- if (($p_local_header['flag'] & 8) == 8) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Purpose bit flag bit 3 set !');
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'File size, compression size and crc found in central header');
- $p_local_header['size'] = $p_central_header['size'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Size : \''.$p_local_header['size'].'\'');
- $p_local_header['compressed_size'] =
$p_central_header['compressed_size'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
'Compressed Size : \''.$p_local_header['compressed_size'].'\'');
- $p_local_header['crc'] = $p_central_header['crc'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'CRC
: \''.sprintf("0x%X", $p_local_header['crc']).'\'');
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privReadEndCentralDir()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privReadEndCentralDir(&$p_central_dir)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privReadEndCentralDir", "");
- $v_result=1;
-
- // ----- Go to the end of the zip file
- $v_size = filesize($this->zipname);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "Size of
the file :$v_size");
- @fseek($this->zip_fd, $v_size);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Position at end of zip file : \''.ftell($this->zip_fd).'\'');
- if (@ftell($this->zip_fd) != $v_size)
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to go to the end of
the archive \''.$this->zipname.'\'');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- First try : look if this is an archive with no commentaries (most
of the time)
- // in this case the end of central dir is at 22 bytes of the file end
- $v_found = 0;
- if ($v_size > 26) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Look
for central dir with no comment');
- @fseek($this->zip_fd, $v_size-22);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Position after min central position : \''.ftell($this->zip_fd).'\'');
- if (($v_pos = @ftell($this->zip_fd)) != ($v_size-22))
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to
the middle of the archive \''.$this->zipname.'\'');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Read for bytes
- $v_binary_data = @fread($this->zip_fd, 4);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Binary data is : '".sprintf("%08x", $v_binary_data)."'");
- $v_data = @unpack('Vid', $v_binary_data);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Binary signature is : '".sprintf("0x%08x", $v_data['id'])."'");
-
- // ----- Check signature
- if ($v_data['id'] == 0x06054b50) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Found central dir at the default position.");
- $v_found = 1;
- }
-
- $v_pos = ftell($this->zip_fd);
- }
-
- // ----- Go back to the maximum possible size of the Central Dir End Record
- if (!$v_found) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, 'Start
extended search of end central dir');
- $v_maximum_size = 65557; // 0xFFFF + 22;
- if ($v_maximum_size > $v_size)
- $v_maximum_size = $v_size;
- @fseek($this->zip_fd, $v_size-$v_maximum_size);
- if (@ftell($this->zip_fd) != ($v_size-$v_maximum_size))
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, 'Unable to seek back to
the middle of the archive \''.$this->zipname.'\'');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Position after max central position : \''.ftell($this->zip_fd).'\'');
-
- // ----- Read byte per byte in order to find the signature
- $v_pos = ftell($this->zip_fd);
- $v_bytes = 0x00000000;
- while ($v_pos < $v_size)
- {
- // ----- Read a byte
- $v_byte = @fread($this->zip_fd, 1);
-
- // ----- Add the byte
- $v_bytes = ($v_bytes << 8) | Ord($v_byte);
-
- // ----- Compare the bytes
- if ($v_bytes == 0x504b0506)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
'Found End Central Dir signature at position : \''.ftell($this->zip_fd).'\'');
- $v_pos++;
- break;
- }
-
- $v_pos++;
- }
-
- // ----- Look if not found end of central dir
- if ($v_pos == $v_size)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Unable to find End of Central Dir Record signature");
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Unable to find End of
Central Dir Record signature");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Read the first 18 bytes of the header
- $v_binary_data = fread($this->zip_fd, 18);
-
- // ----- Look for invalid block size
- if (strlen($v_binary_data) != 18)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"Invalid End of Central Dir Record size : ".strlen($v_binary_data));
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid End of Central Dir
Record size : ".strlen($v_binary_data));
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Extract the values
- ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Central Dir Record : '".$v_binary_data."'");
- ////--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Central Dir Record (Hex) : '".bin2hex($v_binary_data)."'");
- $v_data =
unpack('vdisk/vdisk_start/vdisk_entries/ventries/Vsize/Voffset/vcomment_size',
$v_binary_data);
-
- // ----- Check the global size
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Comment
length : ".$v_data['comment_size']);
- if (($v_pos + $v_data['comment_size'] + 18) != $v_size) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "The
central dir is not at the end of the archive. Some trailing bytes exists after
the archive.");
-
- // ----- Removed in release 2.2 see readme file
- // The check of the file size is a little too strict.
- // Some bugs where found when a zip is encrypted/decrypted with
'crypt'.
- // While decrypted, zip has training 0 bytes
- if (0) {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT,
- 'The central dir is not at the end of the
archive.'
- .' Some trailing bytes
exists after the archive.');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- }
-
- // ----- Get comment
- if ($v_data['comment_size'] != 0)
- $p_central_dir['comment'] = fread($this->zip_fd,
$v_data['comment_size']);
- else
- $p_central_dir['comment'] = '';
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Comment
: \''.$p_central_dir['comment'].'\'');
-
- $p_central_dir['entries'] = $v_data['entries'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Nb of
entries : \''.$p_central_dir['entries'].'\'');
- $p_central_dir['disk_entries'] = $v_data['disk_entries'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Nb of
entries for this disk : \''.$p_central_dir['disk_entries'].'\'');
- $p_central_dir['offset'] = $v_data['offset'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Offset
of Central Dir : \''.$p_central_dir['offset'].'\'');
- $p_central_dir['size'] = $v_data['size'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Size of
Central Dir : \''.$p_central_dir['size'].'\'');
- $p_central_dir['disk'] = $v_data['disk'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Disk
number : \''.$p_central_dir['disk'].'\'');
- $p_central_dir['disk_start'] = $v_data['disk_start'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, 'Start
disk number : \''.$p_central_dir['disk_start'].'\'');
-
- // TBC
- //for(reset($p_central_dir); $key = key($p_central_dir);
next($p_central_dir)) {
- // //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"central_dir[$key] = ".$p_central_dir[$key]);
- //}
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privDeleteByRule()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privDeleteByRule(&$p_result_list, &$p_options)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privDeleteByRule", "");
- $v_result=1;
- $v_list_detail = array();
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_result=$this->privOpenFd('rb')) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- $this->privCloseFd();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Go to beginning of File
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in file : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in file : ".ftell($this->zip_fd)."'");
-
- // ----- Scan all the files
- // ----- Start at beginning of Central Dir
- $v_pos_entry = $v_central_dir['offset'];
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position before rewind : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after rewind : ".ftell($this->zip_fd)."'");
- if (@fseek($this->zip_fd, $v_pos_entry))
- {
- // ----- Close the zip file
- $this->privCloseFd();
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid archive
size');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after fseek : ".ftell($this->zip_fd)."'");
-
- // ----- Read each entry
- $v_header_list = array();
- $j_start = 0;
- for ($i=0, $v_nb_extracted=0; $i<$v_central_dir['entries']; $i++)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Read
next file header entry (index '$i')");
-
- // ----- Read the file header
- $v_header_list[$v_nb_extracted] = array();
- if (($v_result =
$this->privReadCentralFileHeader($v_header_list[$v_nb_extracted])) != 1)
- {
- // ----- Close the zip file
- $this->privCloseFd();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Filename (index '$i') :
'".$v_header_list[$v_nb_extracted]['stored_filename']."'");
-
- // ----- Store the index
- $v_header_list[$v_nb_extracted]['index'] = $i;
-
- // ----- Look for the specific extract rules
- $v_found = false;
-
- // ----- Look for extract by name rule
- if ( (isset($p_options[PCLZIP_OPT_BY_NAME]))
- && ($p_options[PCLZIP_OPT_BY_NAME] != 0)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByName'");
-
- // ----- Look if the filename is in the list
- for ($j=0; ($j<sizeof($p_options[PCLZIP_OPT_BY_NAME])) &&
(!$v_found); $j++) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Compare with file '".$p_options[PCLZIP_OPT_BY_NAME][$j]."'");
-
- // ----- Look for a directory
- if (substr($p_options[PCLZIP_OPT_BY_NAME][$j], -1) == "/") {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The searched item is a directory");
-
- // ----- Look if the directory is in the filename path
- if (
(strlen($v_header_list[$v_nb_extracted]['stored_filename']) >
strlen($p_options[PCLZIP_OPT_BY_NAME][$j]))
- &&
(substr($v_header_list[$v_nb_extracted]['stored_filename'], 0,
strlen($p_options[PCLZIP_OPT_BY_NAME][$j])) ==
$p_options[PCLZIP_OPT_BY_NAME][$j])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The directory is in the file path");
- $v_found = true;
- }
- elseif (
(($v_header_list[$v_nb_extracted]['external']&0x00000010)==0x00000010) /*
Indicates a folder */
- &&
($v_header_list[$v_nb_extracted]['stored_filename'].'/' ==
$p_options[PCLZIP_OPT_BY_NAME][$j])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The entry is the searched directory");
- $v_found = true;
- }
- }
- // ----- Look for a filename
- elseif ($v_header_list[$v_nb_extracted]['stored_filename'] ==
$p_options[PCLZIP_OPT_BY_NAME][$j]) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "The file is the right one.");
- $v_found = true;
- }
- }
- }
-
- // ----- Look for extract by ereg rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_EREG]))
- && ($p_options[PCLZIP_OPT_BY_EREG] != "")) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract by ereg '".$p_options[PCLZIP_OPT_BY_EREG]."'");
-
- if (ereg($p_options[PCLZIP_OPT_BY_EREG],
$v_header_list[$v_nb_extracted]['stored_filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Filename match the regular expression");
- $v_found = true;
- }
- }
-
- // ----- Look for extract by preg rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_PREG]))
- && ($p_options[PCLZIP_OPT_BY_PREG] != "")) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByEreg'");
-
- if (preg_match($p_options[PCLZIP_OPT_BY_PREG],
$v_header_list[$v_nb_extracted]['stored_filename'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Filename match the regular expression");
- $v_found = true;
- }
- }
-
- // ----- Look for extract by index rule
- else if ( (isset($p_options[PCLZIP_OPT_BY_INDEX]))
- && ($p_options[PCLZIP_OPT_BY_INDEX] != 0)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Extract with rule 'ByIndex'");
-
- // ----- Look if the index is in the list
- for ($j=$j_start; ($j<sizeof($p_options[PCLZIP_OPT_BY_INDEX])) &&
(!$v_found); $j++) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Look if index '$i' is in
[".$p_options[PCLZIP_OPT_BY_INDEX][$j]['start'].",".$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']."]");
-
- if (($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['start']) &&
($i<=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end'])) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Found as part of an index range");
- $v_found = true;
- }
- if ($i>=$p_options[PCLZIP_OPT_BY_INDEX][$j]['end']) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Do not look this index range for next loop");
- $j_start = $j+1;
- }
-
- if ($p_options[PCLZIP_OPT_BY_INDEX][$j]['start']>$i) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__,
__LINE__, 3, "Index range is greater than index, stop loop");
- break;
- }
- }
- }
- else {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "No
argument mean remove all file");
- $v_found = true;
- }
-
- // ----- Look for deletion
- if ($v_found)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File '".$v_header_list[$v_nb_extracted]['stored_filename']."', index '$i' need
to be deleted");
- unset($v_header_list[$v_nb_extracted]);
- }
- else
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2,
"File '".$v_header_list[$v_nb_extracted]['stored_filename']."', index '$i' will
not be deleted");
- $v_nb_extracted++;
- }
- }
-
- // ----- Look if something need to be deleted
- if ($v_nb_extracted > 0) {
-
- // ----- Creates a temporay file
- $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
-
- // ----- Creates a temporary zip archive
- $v_temp_zip = new PclZip($v_zip_temp_name);
-
- // ----- Open the temporary zip file in write mode
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Open file in binary write mode");
- if (($v_result = $v_temp_zip->privOpenFd('wb')) != 1) {
- $this->privCloseFd();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Look which file need to be kept
- for ($i=0; $i<sizeof($v_header_list); $i++) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Keep entry index '$i' : '".$v_header_list[$i]['filename']."'");
-
- // ----- Calculate the position of the header
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Offset='". $v_header_list[$i]['offset']."'");
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position before rewind : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after rewind : ".ftell($this->zip_fd)."'");
- if (@fseek($this->zip_fd, $v_header_list[$i]['offset'])) {
- // ----- Close the zip file
- $this->privCloseFd();
- $v_temp_zip->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_INVALID_ARCHIVE_ZIP, 'Invalid
archive size');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position after fseek : ".ftell($this->zip_fd)."'");
-
- // ----- Read the file header
- $v_local_header = array();
- if (($v_result = $this->privReadFileHeader($v_local_header)) != 1)
{
- // ----- Close the zip file
- $this->privCloseFd();
- $v_temp_zip->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Check that local file header is same as central file
header
- if ($this->privCheckFileHeaders($v_local_header,
- $v_header_list[$i]) !=
1) {
- // TBC
- }
- unset($v_local_header);
-
- // ----- Write the file header
- if (($v_result =
$v_temp_zip->privWriteFileHeader($v_header_list[$i])) != 1) {
- // ----- Close the zip file
- $this->privCloseFd();
- $v_temp_zip->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Offset for this file is '".$v_header_list[$i]['offset']."'");
-
- // ----- Read/write the data block
- if (($v_result = PclZipUtilCopyBlock($this->zip_fd,
$v_temp_zip->zip_fd, $v_header_list[$i]['compressed_size'])) != 1) {
- // ----- Close the zip file
- $this->privCloseFd();
- $v_temp_zip->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- }
-
- // ----- Store the offset of the central dir
- $v_offset = @ftell($v_temp_zip->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "New
offset of central dir : $v_offset");
-
- // ----- Re-Create the Central Dir files header
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Creates the new central directory");
- for ($i=0; $i<sizeof($v_header_list); $i++) {
- // ----- Create the file header
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Offset of file : ".$v_header_list[$i]['offset']);
- if (($v_result =
$v_temp_zip->privWriteCentralFileHeader($v_header_list[$i])) != 1) {
- $v_temp_zip->privCloseFd();
- $this->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Transform the header to a 'usable' info
- $v_temp_zip->privConvertHeader2FileInfo($v_header_list[$i],
$p_result_list[$i]);
- }
-
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Creates the central directory footer");
-
- // ----- Zip file comment
- $v_comment = '';
- if (isset($p_options[PCLZIP_OPT_COMMENT])) {
- $v_comment = $p_options[PCLZIP_OPT_COMMENT];
- }
-
- // ----- Calculate the size of the central header
- $v_size = @ftell($v_temp_zip->zip_fd)-$v_offset;
-
- // ----- Create the central dir footer
- if (($v_result =
$v_temp_zip->privWriteCentralHeader(sizeof($v_header_list), $v_size, $v_offset,
$v_comment)) != 1) {
- // ----- Reset the file list
- unset($v_header_list);
- $v_temp_zip->privCloseFd();
- $this->privCloseFd();
- @unlink($v_zip_temp_name);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- // ----- Close
- $v_temp_zip->privCloseFd();
- $this->privCloseFd();
-
- // ----- Delete the zip file
- // TBC : I should test the result ...
- @unlink($this->zipname);
-
- // ----- Rename the temporary file
- // TBC : I should test the result ...
- //@rename($v_zip_temp_name, $this->zipname);
- PclZipUtilRename($v_zip_temp_name, $this->zipname);
-
- // ----- Destroy the temporary archive
- unset($v_temp_zip);
- }
-
- // ----- Remove every files : reset the file
- else if ($v_central_dir['entries'] != 0) {
- $this->privCloseFd();
-
- if (($v_result = $this->privOpenFd('wb')) != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- if (($v_result = $this->privWriteCentralHeader(0, 0, 0, '')) != 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
-
- $this->privCloseFd();
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privDirCheck()
- // Description :
- // Check if a directory exists, if not it creates it and all the parents
directory
- // which may be useful.
- // Parameters :
- // $p_dir : Directory path to check.
- // Return Values :
- // 1 : OK
- // -1 : Unable to create directory
- //
--------------------------------------------------------------------------------
- function privDirCheck($p_dir, $p_is_dir=false)
- {
- $v_result = 1;
-
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privDirCheck", "entry='$p_dir',
is_dir='".($p_is_dir?"true":"false")."'");
-
- // ----- Remove the final '/'
- if (($p_is_dir) && (substr($p_dir, -1)=='/'))
- {
- $p_dir = substr($p_dir, 0, strlen($p_dir)-1);
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Looking
for entry '$p_dir'");
-
- // ----- Check the directory availability
- if ((is_dir($p_dir)) || ($p_dir == ""))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, "'$p_dir' is
a directory");
- return 1;
- }
-
- // ----- Extract parent directory
- $p_parent_dir = dirname($p_dir);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Parent
directory is '$p_parent_dir'");
-
- // ----- Just a check
- if ($p_parent_dir != $p_dir)
- {
- // ----- Look for parent directory
- if ($p_parent_dir != "")
- {
- if (($v_result = $this->privDirCheck($p_parent_dir)) != 1)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
$v_result);
- return $v_result;
- }
- }
- }
-
- // ----- Create the directory
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Create
directory '$p_dir'");
- if (address@hidden($p_dir, 0777))
- {
- // ----- Error log
- PclZip::privErrorLog(PCLZIP_ERR_DIR_CREATE_FAIL, "Unable to create
directory '$p_dir'");
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result,
"Directory '$p_dir' created");
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privMerge()
- // Description :
- // If $p_archive_to_add does not exist, the function exit with a success
result.
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privMerge(&$p_archive_to_add)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privMerge", "archive='".$p_archive_to_add->zipname."'");
- $v_result=1;
-
- // ----- Look if the archive_to_add exists
- if (!is_file($p_archive_to_add->zipname))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Archive to add does not exist. End of merge.");
-
- // ----- Nothing to merge, so merge is a success
- $v_result = 1;
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Look if the archive exists
- if (!is_file($this->zipname))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Archive does not exist, duplicate the archive_to_add.");
-
- // ----- Do a duplicate
- $v_result = $this->privDuplicate($p_archive_to_add->zipname);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_result=$this->privOpenFd('rb')) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Read the central directory informations
- $v_central_dir = array();
- if (($v_result = $this->privReadEndCentralDir($v_central_dir)) != 1)
- {
- $this->privCloseFd();
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Go to beginning of File
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in zip : ".ftell($this->zip_fd)."'");
- @rewind($this->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in zip : ".ftell($this->zip_fd)."'");
-
- // ----- Open the archive_to_add file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
archive_to_add in binary read mode");
- if (($v_result=$p_archive_to_add->privOpenFd('rb')) != 1)
- {
- $this->privCloseFd();
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Read the central directory informations
- $v_central_dir_to_add = array();
- if (($v_result =
$p_archive_to_add->privReadEndCentralDir($v_central_dir_to_add)) != 1)
- {
- $this->privCloseFd();
- $p_archive_to_add->privCloseFd();
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Go to beginning of File
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in archive_to_add : ".ftell($p_archive_to_add->zip_fd)."'");
- @rewind($p_archive_to_add->zip_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Position in archive_to_add : ".ftell($p_archive_to_add->zip_fd)."'");
-
- // ----- Creates a temporay file
- $v_zip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.tmp';
-
- // ----- Open the temporary file in write mode
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_zip_temp_fd = @fopen($v_zip_temp_name, 'wb')) == 0)
- {
- $this->privCloseFd();
- $p_archive_to_add->privCloseFd();
-
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open
temporary file \''.$v_zip_temp_name.'\' in binary write mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Copy the files from the archive to the temporary file
- // TBC : Here I should better append the file and go back to erase the
central dir
- $v_size = $v_central_dir['offset'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = fread($this->zip_fd, $v_read_size);
- @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Copy the files from the archive_to_add into the temporary file
- $v_size = $v_central_dir_to_add['offset'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = fread($p_archive_to_add->zip_fd, $v_read_size);
- @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Store the offset of the central dir
- $v_offset = @ftell($v_zip_temp_fd);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "New
offset of central dir : $v_offset");
-
- // ----- Copy the block of file headers from the old archive
- $v_size = $v_central_dir['size'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = @fread($this->zip_fd, $v_read_size);
- @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Copy the block of file headers from the archive_to_add
- $v_size = $v_central_dir_to_add['size'];
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Read
$v_read_size bytes");
- $v_buffer = @fread($p_archive_to_add->zip_fd, $v_read_size);
- @fwrite($v_zip_temp_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Merge the file comments
- $v_comment = $v_central_dir['comment'].'
'.$v_central_dir_to_add['comment'];
-
- // ----- Calculate the size of the (new) central header
- $v_size = @ftell($v_zip_temp_fd)-$v_offset;
-
- // ----- Swap the file descriptor
- // Here is a trick : I swap the temporary fd with the zip fd, in order to
use
- // the following methods on the temporary fil and not the real archive fd
- $v_swap = $this->zip_fd;
- $this->zip_fd = $v_zip_temp_fd;
- $v_zip_temp_fd = $v_swap;
-
- // ----- Create the central dir footer
- if (($v_result =
$this->privWriteCentralHeader($v_central_dir['entries']+$v_central_dir_to_add['entries'],
$v_size, $v_offset, $v_comment)) != 1)
- {
- $this->privCloseFd();
- $p_archive_to_add->privCloseFd();
- @fclose($v_zip_temp_fd);
- $this->zip_fd = null;
-
- // ----- Reset the file list
- unset($v_header_list);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Swap back the file descriptor
- $v_swap = $this->zip_fd;
- $this->zip_fd = $v_zip_temp_fd;
- $v_zip_temp_fd = $v_swap;
-
- // ----- Close
- $this->privCloseFd();
- $p_archive_to_add->privCloseFd();
-
- // ----- Close the temporary file
- @fclose($v_zip_temp_fd);
-
- // ----- Delete the zip file
- // TBC : I should test the result ...
- @unlink($this->zipname);
-
- // ----- Rename the temporary file
- // TBC : I should test the result ...
- //@rename($v_zip_temp_name, $this->zipname);
- PclZipUtilRename($v_zip_temp_name, $this->zipname);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privDuplicate()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privDuplicate($p_archive_filename)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZip::privDuplicate", "archive_filename='$p_archive_filename'");
- $v_result=1;
-
- // ----- Look if the $p_archive_filename exists
- if (!is_file($p_archive_filename))
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Archive to duplicate does not exist. End of duplicate.");
-
- // ----- Nothing to duplicate, so duplicate is a success.
- $v_result = 1;
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Open the zip file
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_result=$this->privOpenFd('wb')) != 1)
- {
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Open the temporary file in write mode
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Open
file in binary read mode");
- if (($v_zip_temp_fd = @fopen($p_archive_filename, 'rb')) == 0)
- {
- $this->privCloseFd();
-
- PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive
file \''.$p_archive_filename.'\' in binary write mode');
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__,
PclZip::errorCode(), PclZip::errorInfo());
- return PclZip::errorCode();
- }
-
- // ----- Copy the files from the archive to the temporary file
- // TBC : Here I should better append the file and go back to erase the
central dir
- $v_size = filesize($p_archive_filename);
- while ($v_size != 0)
- {
- $v_read_size = ($v_size < PCLZIP_READ_BLOCK_SIZE ? $v_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Read
$v_read_size bytes");
- $v_buffer = fread($v_zip_temp_fd, $v_read_size);
- @fwrite($this->zip_fd, $v_buffer, $v_read_size);
- $v_size -= $v_read_size;
- }
-
- // ----- Close
- $this->privCloseFd();
-
- // ----- Close the temporary file
- @fclose($v_zip_temp_fd);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privErrorLog()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function privErrorLog($p_error_code=0, $p_error_string='')
- {
- if (PCLZIP_ERROR_EXTERNAL == 1) {
- PclError($p_error_code, $p_error_string);
- }
- else {
- $this->error_code = $p_error_code;
- $this->error_string = $p_error_string;
- }
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privErrorReset()
- // Description :
- // Parameters :
- //
--------------------------------------------------------------------------------
- function privErrorReset()
- {
- if (PCLZIP_ERROR_EXTERNAL == 1) {
- PclErrorReset();
- }
- else {
- $this->error_code = 0;
- $this->error_string = '';
- }
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privDecrypt()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privDecrypt($p_encryption_header, &$p_buffer, $p_size, $p_crc)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privDecrypt', "size=".$p_size."");
- $v_result=1;
-
- // ----- To Be Modified ;-)
- $v_pwd = "test";
-
- $p_buffer = PclZipUtilZipDecrypt($p_buffer, $p_size, $p_encryption_header,
- $p_crc, $v_pwd);
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privDisableMagicQuotes()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privDisableMagicQuotes()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privDisableMagicQuotes', "");
- $v_result=1;
-
- // ----- Look if function exists
- if ( (!function_exists("get_magic_quotes_runtime"))
- || (!function_exists("set_magic_quotes_runtime"))) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Functions *et_magic_quotes_runtime are not supported");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Look if already done
- if ($this->magic_quotes_status != -1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"magic_quote already disabled");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Get and memorize the magic_quote value
- $this->magic_quotes_status = @get_magic_quotes_runtime();
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Current
magic_quotes_runtime status is
'".($this->magic_quotes_status==0?'disable':'enable')."'");
-
- // ----- Disable magic_quotes
- if ($this->magic_quotes_status == 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Disable magic_quotes");
- @set_magic_quotes_runtime(0);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : privSwapBackMagicQuotes()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function privSwapBackMagicQuotes()
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
'PclZip::privSwapBackMagicQuotes', "");
- $v_result=1;
-
- // ----- Look if function exists
- if ( (!function_exists("get_magic_quotes_runtime"))
- || (!function_exists("set_magic_quotes_runtime"))) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Functions *et_magic_quotes_runtime are not supported");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Look if something to do
- if ($this->magic_quotes_status != -1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"magic_quote not modified");
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
-
- // ----- Swap back magic_quotes
- if ($this->magic_quotes_status == 1) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3,
"Enable back magic_quotes");
- @set_magic_quotes_runtime($this->magic_quotes_status);
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- }
- // End of class
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilPathReduction()
- // Description :
- // Parameters :
- // Return Values :
- //
--------------------------------------------------------------------------------
- function PclZipUtilPathReduction($p_dir)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZipUtilPathReduction", "dir='$p_dir'");
- $v_result = "";
-
- // ----- Look for not empty path
- if ($p_dir != "") {
- // ----- Explode path by directory names
- $v_list = explode("/", $p_dir);
-
- // ----- Study directories from last to first
- $v_skip = 0;
- for ($i=sizeof($v_list)-1; $i>=0; $i--) {
- // ----- Look for current path
- if ($v_list[$i] == ".") {
- // ----- Ignore this directory
- // Should be the first $i=0, but no check is done
- }
- else if ($v_list[$i] == "..") {
- $v_skip++;
- }
- else if ($v_list[$i] == "") {
- // ----- First '/' i.e. root slash
- if ($i == 0) {
- $v_result = "/".$v_result;
- if ($v_skip > 0) {
- // ----- It is an invalid path, so the path is not
modified
- // TBC
- $v_result = $p_dir;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__,
3, "Invalid path is unchanged");
- $v_skip = 0;
- }
- }
- // ----- Last '/' i.e. indicates a directory
- else if ($i == (sizeof($v_list)-1)) {
- $v_result = $v_list[$i];
- }
- // ----- Double '/' inside the path
- else {
- // ----- Ignore only the double '//' in path,
- // but not the first and last '/'
- }
- }
- else {
- // ----- Look for item to skip
- if ($v_skip > 0) {
- $v_skip--;
- }
- else {
- $v_result = $v_list[$i].($i!=(sizeof($v_list)-1)?"/".$v_result:"");
- }
- }
- }
-
- // ----- Look for skip
- if ($v_skip > 0) {
- while ($v_skip > 0) {
- $v_result = '../'.$v_result;
- $v_skip--;
- }
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilPathInclusion()
- // Description :
- // This function indicates if the path $p_path is under the $p_dir tree.
Or,
- // said in an other way, if the file or sub-dir $p_path is inside the dir
- // $p_dir.
- // The function indicates also if the path is exactly the same as the dir.
- // This function supports path with duplicated '/' like '//', but does not
- // support '.' or '..' statements.
- // Parameters :
- // Return Values :
- // 0 if $p_path is not inside directory $p_dir
- // 1 if $p_path is inside directory $p_dir
- // 2 if $p_path is exactly the same as $p_dir
- //
--------------------------------------------------------------------------------
- function PclZipUtilPathInclusion($p_dir, $p_path)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZipUtilPathInclusion", "dir='$p_dir', path='$p_path'");
- $v_result = 1;
-
- // ----- Look for path beginning by ./
- if ( ($p_dir == '.')
- || ((strlen($p_dir) >=2) && (substr($p_dir, 0, 2) == './'))) {
- $p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_dir,
1);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Replacing ./ by full path in p_dir '".$p_dir."'");
- }
- if ( ($p_path == '.')
- || ((strlen($p_path) >=2) && (substr($p_path, 0, 2) == './'))) {
- $p_path = PclZipUtilTranslateWinPath(getcwd(),
FALSE).'/'.substr($p_path, 1);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Replacing ./ by full path in p_path '".$p_path."'");
- }
-
- // ----- Explode dir and path by directory separator
- $v_list_dir = explode("/", $p_dir);
- $v_list_dir_size = sizeof($v_list_dir);
- $v_list_path = explode("/", $p_path);
- $v_list_path_size = sizeof($v_list_path);
-
- // ----- Study directories paths
- $i = 0;
- $j = 0;
- while (($i < $v_list_dir_size) && ($j < $v_list_path_size) && ($v_result))
{
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Working on dir($i)='".$v_list_dir[$i]."' and path($j)='".$v_list_path[$j]."'");
-
- // ----- Look for empty dir (path reduction)
- if ($v_list_dir[$i] == '') {
- $i++;
- continue;
- }
- if ($v_list_path[$j] == '') {
- $j++;
- continue;
- }
-
- // ----- Compare the items
- if (($v_list_dir[$i] != $v_list_path[$j]) && ($v_list_dir[$i] != '') &&
( $v_list_path[$j] != '')) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Items ($i,$j) are different");
- $v_result = 0;
- }
-
- // ----- Next items
- $i++;
- $j++;
- }
-
- // ----- Look if everything seems to be the same
- if ($v_result) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Look
for tie break");
- // ----- Skip all the empty items
- while (($j < $v_list_path_size) && ($v_list_path[$j] == '')) $j++;
- while (($i < $v_list_dir_size) && ($v_list_dir[$i] == '')) $i++;
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Looking on dir($i)='".($i < $v_list_dir_size?$v_list_dir[$i]:'')."' and
path($j)='".($j < $v_list_path_size?$v_list_path[$j]:'')."'");
-
- if (($i >= $v_list_dir_size) && ($j >= $v_list_path_size)) {
- // ----- There are exactly the same
- $v_result = 2;
- }
- else if ($i < $v_list_dir_size) {
- // ----- The path is shorter than the dir
- $v_result = 0;
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilCopyBlock()
- // Description :
- // Parameters :
- // $p_mode : read/write compression mode
- // 0 : src & dest normal
- // 1 : src gzip, dest normal
- // 2 : src normal, dest gzip
- // 3 : src & dest gzip
- // Return Values :
- //
--------------------------------------------------------------------------------
- function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZipUtilCopyBlock", "size=$p_size, mode=$p_mode");
- $v_result = 1;
-
- if ($p_mode==0)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Src
offset before read :".(@ftell($p_src)));
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Dest
offset before write :".(@ftell($p_dest)));
- while ($p_size != 0)
- {
- $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Read $v_read_size bytes");
- $v_buffer = @fread($p_src, $v_read_size);
- @fwrite($p_dest, $v_buffer, $v_read_size);
- $p_size -= $v_read_size;
- }
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Src
offset after read :".(@ftell($p_src)));
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Dest
offset after write :".(@ftell($p_dest)));
- }
- else if ($p_mode==1)
- {
- while ($p_size != 0)
- {
- $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Read $v_read_size bytes");
- $v_buffer = @gzread($p_src, $v_read_size);
- @fwrite($p_dest, $v_buffer, $v_read_size);
- $p_size -= $v_read_size;
- }
- }
- else if ($p_mode==2)
- {
- while ($p_size != 0)
- {
- $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Read $v_read_size bytes");
- $v_buffer = @fread($p_src, $v_read_size);
- @gzwrite($p_dest, $v_buffer, $v_read_size);
- $p_size -= $v_read_size;
- }
- }
- else if ($p_mode==3)
- {
- while ($p_size != 0)
- {
- $v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size :
PCLZIP_READ_BLOCK_SIZE);
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4,
"Read $v_read_size bytes");
- $v_buffer = @gzread($p_src, $v_read_size);
- @gzwrite($p_dest, $v_buffer, $v_read_size);
- $p_size -= $v_read_size;
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilRename()
- // Description :
- // This function tries to do a simple rename() function. If it fails, it
- // tries to copy the $p_src file in a new $p_dest file and then unlink the
- // first one.
- // Parameters :
- // $p_src : Old filename
- // $p_dest : New filename
- // Return Values :
- // 1 on success, 0 on failure.
- //
--------------------------------------------------------------------------------
- function PclZipUtilRename($p_src, $p_dest)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZipUtilRename", "source=$p_src, destination=$p_dest");
- $v_result = 1;
-
- // ----- Try to rename the files
- if (address@hidden($p_src, $p_dest)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5, "Fail
to rename file, try copy+unlink");
-
- // ----- Try to copy & unlink the src
- if (address@hidden($p_src, $p_dest)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Fail to copy file");
- $v_result = 0;
- }
- else if (address@hidden($p_src)) {
- //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 5,
"Fail to unlink old filename");
- $v_result = 0;
- }
- }
-
- // ----- Return
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilOptionText()
- // Description :
- // Translate option value in text. Mainly for debug purpose.
- // Parameters :
- // $p_option : the option value.
- // Return Values :
- // The option text value.
- //
--------------------------------------------------------------------------------
- function PclZipUtilOptionText($p_option)
- {
- //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__,
"PclZipUtilOptionText", "option='".$p_option."'");
-
- $v_list = get_defined_constants();
- for (reset($v_list); $v_key = key($v_list); next($v_list)) {
- $v_prefix = substr($v_key, 0, 10);
- if (( ($v_prefix == 'PCLZIP_OPT')
- || ($v_prefix == 'PCLZIP_CB_')
- || ($v_prefix == 'PCLZIP_ATT'))
- && ($v_list[$v_key] == $p_option)) {
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_key);
- return $v_key;
- }
- }
-
- $v_result = 'Unknown';
-
- //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $v_result);
- return $v_result;
- }
- //
--------------------------------------------------------------------------------
-
- //
--------------------------------------------------------------------------------
- // Function : PclZipUtilTranslateWinPath()
- // Description :
- // Translate windows path by replacing '\' by '/' and optionally removing
- // drive letter.
- // Parameters :
- // $p_path : path to translate.
- // $p_remove_disk_letter : true | false
- // Return Values :
- // The path translated.
- //
--------------------------------------------------------------------------------
- function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true)
- {
- if (stristr(php_uname(), 'windows')) {
- // ----- Look for potential disk letter
- if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) !=
false)) {
- $p_path = substr($p_path, $v_position+1);
- }
- // ----- Change potential windows directory separator
- if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {
- $p_path = strtr($p_path, '\\', '/');
- }
- }
- return $p_path;
- }
- //
--------------------------------------------------------------------------------
-
-
-?>
Index: phpviewer.css
===================================================================
RCS file: phpviewer.css
diff -N phpviewer.css
--- phpviewer.css 19 Nov 2006 14:56:41 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,54 +0,0 @@
-span.collapsed {
- cursor: pointer;
- background-image: url("expand.png");
- background-repeat: no-repeat;
- background-position: center left;
- padding-left: 12px;
-}
-
-span.expanded {
- cursor: pointer;
- background-image: url("collapse.png");
- background-repeat: no-repeat;
- background-position: center left;
- padding-left: 12px;
-}
-
-.title {
- background-color: black;
- font-weight: bold;
- color: white;
-}
-
-.level0 {
- background-color: #0047ff;
- font-weight: bold;
-}
-
-.level1 {
- background-color: #0099ff;
-}
-
-.level2 {
- background-color: #99ccff;
-}
-
-.level3 {
- background-color: #bfdbf8;
-}
-
-.level4 {
- background-color: #e7ecf2;
-}
-
-.highlight {
- background-color: #e0faf3;
-}
-
-.score {
- text-align: center;
-}
-
-A:link { text-decoration: none; color: #0b1c51}
-A:visited { text-decoration: none; color: #0b1c51}
-A:hover { text-decoration: underline; color: #0b1c51}
\ No newline at end of file
Index: qsos.png
===================================================================
RCS file: qsos.png
diff -N qsos.png
Binary files /tmp/cvsAA4Yel and /dev/null differ
Index: radar.php
===================================================================
RCS file: radar.php
diff -N radar.php
--- radar.php 24 Nov 2006 15:12:20 -0000 1.5
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,369 +0,0 @@
-<?php
-
-$svg = $_GET['svg'];
-
-if(isset($svg) && ($svg == "yes")) {
-//Graph generated in SVG format
- header("Content-type: image/svg+xml");
- include('QSOSDocument.php');
-
- $files = $_GET['f']; //QSOS files to display
- $name = $_GET['c']; //Criterion to detail
-
- if (!(isset($files))) {
- die("No QSOS file provided !");
- }
-
- $SCALE = 100; //1 QSOS unit in pixels
- $FONT_SIZE = 14; //$SCALE/10;
- $doc = new DOMDocument('1.0');
-
- $myDoc = array();
- $num = count($files);
-
- //Initialization of data arrays
- for($i=0; $i<$num; $i++) {
- $myDoc[$i] = new QSOSDocument($files[$i]);
- }
-
- //draw $n equidistant axis
- function drawAxis($n) {
- global $SCALE;
- drawCircle(0.5*$SCALE);
- drawMark(0.5*$SCALE-25, 15, "0.5");
- drawCircle($SCALE);
- drawMark($SCALE-15, 15, "1");
- drawCircle(1.5*$SCALE);
- drawMark(1.5*$SCALE-25, 15, "1.5");
- drawCircle(2*$SCALE);
- drawMark(2*$SCALE-15, 15, "2");
-
- for ($i=1; $i < $n+1; $i++) {
- drawSingleAxis(2*$i*pi()/$n);
- }
- }
-
- //draw a single axis at $angle (in radians) from angle 0
- function drawSingleAxis($angle) {
- global $SCALE;
- $x2 = 2*$SCALE*cos($angle);
- $y2 = 2*$SCALE*sin($angle);
- drawLine(0, 0, $x2, $y2);
- }
-
- //draw a circle of $r radius
- function drawCircle($r) {
- global $doc;
- global $g;
- $circle = $doc->createElement("circle");
- $circle->setAttribute("cx", 0);
- $circle->setAttribute("cy", 0);
- $circle->setAttribute("r", $r);
- $circle->setAttribute("fill", "none");
- $circle->setAttribute("stroke", "lightgrey");
- $circle->setAttribute("stroke-width", "1");
- $g->appendChild($circle);
- }
-
- //draw a line between two points
- function drawLine($x1, $y1, $x2, $y2) {
- global $doc;
- global $g;
- $line = $doc->createElement("line");
- $line->setAttribute("x1", $x1);
- $line->setAttribute("y1", $y1);
- $line->setAttribute("x2", $x2);
- $line->setAttribute("y2", $y2);
- $line->setAttribute("stroke", "lightgrey");
- $line->setAttribute("stroke-width", "1");
- $g->appendChild($line);
- }
-
- //draw scale mark on the radar
- //$x, $y: coordinates
- //$mark : text to be displayed
- function drawMark($x, $y, $mark) {
- global $doc;
- global $g;
- global $FONT_SIZE;
- $text = $doc->createElement("text");
- $text->setAttribute("x", $x);
- $text->setAttribute("y", $y);
- $text->setAttribute("font-family", "Verdana");
- $text->setAttribute("font-size", $FONT_SIZE);
-
- $text->setAttribute("fill", "lightgrey");
- $text->appendChild($doc->createTextNode($mark));
- $g->appendChild($text);
- }
-
- //draw an axis legend
- //$x, $y: coordinates
- //$element : element which title is to be displayed
- function drawText($x, $y, $element) {
- global $files;
- global $doc;
- global $g;
- global $FONT_SIZE;
- $text = $doc->createElement("text");
- $text->setAttribute("x", $x);
- $text->setAttribute("y", $y);
- $text->setAttribute("font-family", "Verdana");
- $text->setAttribute("font-size", $FONT_SIZE);
- $text->appendChild($doc->createTextNode($element->title));
-
- if ($element->children) {
- $text->setAttribute("fill", "green");
- $a = $doc->createElement("a");
- $f = "";
- foreach($files as $file) {
- $f .= "f[]=$file&";
- }
- $a->setAttribute("xlink:href",
$_SERVER['PHP_SELF']."?".$f."c=".$element->name."&svg=yes");
- $a->appendChild($text);
- $g->appendChild($a);
- } else {
- $text->setAttribute("fill", "black");
- $g->appendChild($text);
- }
-
- //text position is ajusted to be outside the circle shape
- //8 here is empiric data :)
- $textLength = strlen($element->title)*8;
- $myX = (abs($x)==$x)?$x:$x-$textLength;
- $myY = (abs($y)==$y)?$y+$FONT_SIZE:$y;
- $text->setAttribute("x", $myX);
- $text->setAttribute("y", $myY);
- }
-
- //draw the graph's title including software name and release and
navigation tree
- //$name : name of the current criterion
- function drawTitle($name) {
- global $doc;
- global $myDoc;
- global $FONT_SIZE;
- $title = $myDoc[0]->getkeytitle($name);
- $node = $name;
-
- $text = $doc->createElement("text");
- $text->setAttribute("font-family", "Verdana");
- $text->setAttribute("font-weight", "bold");
- $text->setAttribute("font-size", $FONT_SIZE);
- $text->setAttribute("x", -475);
- $text->setAttribute("y", -275);
-
- while ($myDoc[0]->getParent($node)) {
- $title =
$myDoc[0]->getParent($node)->getAttribute("title") . " > ". $title;
- $node =
$myDoc[0]->getParent($node)->getAttribute("name");
- }
-
- for ($i=0; $i < count($myDoc); $i++) {
- $tspan = $doc->createElement("tspan");
- $tspan->setAttribute("fill", getcolor($i));
-
$tspan->appendChild($doc->createTextNode($myDoc[$i]->getkey("appname")."
".$myDoc[$i]->getkey("release")." "));
- $text->appendChild($tspan);
- }
-
- $text->appendChild($doc->createTextNode($title));
-
- return $text;
- }
-
- //draw path between points on each axis
- //$myDoc : QSOSDocument concerned
- //$name : name of the criteria regrouping subcriteria to be displayed
- // if $name is not set, gobal sectiosn are displayed
- //$n : position of the software to display in the list (used for
coloring)
- function drawPath($myDoc, $name, $n) {
- global $doc;
- global $SCALE;
- global $num;
- $path = $doc->createElement("path");
- $myD = "";
-
- if (isset($name)) {
- $tree = $myDoc->getSubTree($name);
- } else {
- $tree = $myDoc->getTree();
- }
-
- drawAxis(count($tree));
- for ($i=0; $i < count($tree); $i++) {
- $myD .= ($i==0)?"M":"L";
- $angle = ($i+1)*2*pi()/(count($tree));
- $myD .= " " . ($tree[$i]->score)*$SCALE*cos($angle) . "
" . ($tree[$i]->score)*$SCALE*sin($angle) . " ";
- //2.1 = 2 + 0.1 of padding before actual text display
- drawText(2.1*$SCALE*cos($angle),
2.1*$SCALE*sin($angle), $tree[$i]);
- }
- $myD .= "z";
- $path->setAttribute("d", $myD);
- $path->setAttribute("fill", getColor($n));
- $path->setAttribute("fill-opacity", "0.2");
- $path->setAttribute("stroke-width", "3");
- $path->setAttribute("stroke", getColor($n));
-
- return $path;
- }
-
- $colors = array('red', 'blue', 'green', 'purple');
- //Return drawing color depending on software position in the list
- function getColor($i) {
- global $colors;
- if($i < count($colors)) {
- return $colors[$i];
- } else {
- return "black";
- }
- }
-
- //svg element
- $svg = $doc->createElement('svg');
- $svg->setAttribute('xmlns', 'http://www.w3.org/2000/svg');
- $svg->setAttribute('xmlns:xlink', 'http://www.w3.org/1999/xlink');
- $svg->setAttribute('width', '100%');
- $svg->setAttribute('height', '100%');
-
- //Graph element
- $g = $doc->createElement('g');
- $g->setAttribute('transform', 'translate(500,300)');
- $g->appendChild(drawTitle($name));
- //display each software on teh graph
- for($i=0; $i<$num; $i++) {
- $g->appendChild(drawPath($myDoc[$i], $name, $i));
- }
- $svg->appendChild($g);
- $doc->appendChild($svg);
-
- echo $doc->saveXML();
-} else {
-//Graph generated with jpgraph
- include("config.php");
- include ($jpgraph_path."jpgraph.php");
- include ($jpgraph_path."jpgraph_radar.php");
- include("QSOSDocument.php");
-
- $files = $_GET['f'];
- $name = $_GET['c'];
-
- $myDoc = array();
- $app = array();
- $trees = array();
- $scores = array();
- $titles = array();
-
- $i = 0;
- $num = count($files);
-
- //Initialization of data arrays
- for($i=0; $i<$num; $i++) {
- $myDoc[$i] = new QSOSDocument($files[$i]);
- $trees[$i] = array();
- if (isset($name)) {
- $trees[$i] = $myDoc[$i]->getSubTree($name);
- } else {
- $trees[$i] = $myDoc[$i]->getTree();
- }
-
- $scores[$i] = array();
- foreach($trees[$i] as $element) {
- array_push($scores[$i], $element->score);
- }
- }
-
- //Graph's title
- if (isset($name)) {
- $title = $myDoc[0]->getkeytitle($name);
- } else {
- $title = $myDoc[0]->getkey("qsosappfamily");
- }
-
- //Axis titles
- foreach($trees[0] as $element) {
- array_push($titles, $element->title);
- }
-
- // Create the basic radar graph
- $graph = new RadarGraph(700,500,"auto");
-
- // Set background color and shadow
- $graph->SetColor("white");
- $graph->SetFrame(false,'',0);
-
- // Position the graph
- $graph->SetCenter(0.4,0.55);
- $graph->SetPos(0.5,0.6);
-
- // Setup the axis formatting
- $graph->SetScale('lin',0,2);
- $graph->axis->SetFont(FF_ARIAL,FS_BOLD);
- $graph->axis->title->SetFont(FF_ARIAL,FS_BOLD);
- $graph->axis->title->SetMargin(5);
- $graph->axis->SetWeight(1);
- $graph->axis->SetColor('darkgray');
-
- // Setup the grid lines
- $graph->grid->SetLineStyle("longdashed");
- $graph->grid->SetColor("darkgray");
- $graph->grid->Show();
- $graph->HideTickMarks();
-
- // Setup graph titles
- $graph->title->Set($title);
- $graph->title->SetFont(FF_ARIAL,FS_BOLD,12);
- $graph->SetTitles($titles);
-
- // Setup graph legend
- $graph->legend->SetFont(FF_ARIAL,FS_BOLD);
-
- function getColor($b_safe = TRUE) {
- //if a browser safe color is requested then set the array up
- //so that only a browser safe color can be returned
- if($b_safe) {
- $ary_codes = array('00','33','66','99','CC','FF');
- $max = 5; //the highest array offest
- //if a browser safe color is not requested then set the
array
- //up so that any color can be returned.
- } else {
- $ary_codes = array();
- for($i=0;$i<16;$i++) {
- $t_1 = dechex($i);
- for($j=0;$j<16;$j++) {
- $t_2 = dechex($j);
- $ary_codes[] = "$t_1$t_2";
- }
- }
- $max = 256; //the highest array offset
- }
- $retVal = '';
-
- //generate a random color code
- for($i=0;$i<3;$i++) {
- $offset = rand(0,$max);
- $retVal .= $ary_codes[$offset];
- } //end for i
-
- return "#".$retVal;
- }
-
- //Generate graph for each software
- function getPlot($scores, $myDoc) {
- global $num;
- $plot = new RadarPlot($scores);
- $plot->SetLegend($myDoc->getkey("appname")."
".$myDoc->getkey("release"));
- $color = getColor();
- $plot->SetColor("address@hidden");
- if ($num == 1) $plot->SetFillColor("address@hidden");
- $plot->SetLineWeight(3);
- return $plot;
- }
-
- //Add them to the global graph
- for($i=0; $i<$num; $i++) {
- $graph->Add(getPlot($scores[$i], $myDoc[$i]));
- }
-
- //Output the graph
- $graph->Stroke();
-}
-
-?>
Index: show-comments.png
===================================================================
RCS file: show-comments.png
diff -N show-comments.png
Binary files /tmp/cvs2BtlRm and /dev/null differ
Index: show.php
===================================================================
RCS file: show.php
diff -N show.php
--- show.php 19 Nov 2006 15:00:28 -0000 1.7
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,216 +0,0 @@
-<html>
-<head>
-<LINK REL=StyleSheet HREF="phpviewer.css" TYPE="text/css"/>
-<script language="JavaScript" type="text/javascript">
-var size = 12;
-
-function matchStart(target, pattern) {
- var pos = target.indexOf(pattern);
- if (pos == 0) {
- return true;
- } else {
- return false;
- }
-}
-
-function expand(div) {
- var rows = document.getElementsByTagName("tr");
- var id = div.parentNode.parentNode.id + "-";
- for (var i = 0; i < rows.length; i++) {
- var r = rows[i];
- if (matchStart(r.id, id)) {
- if (document.all) r.style.display = "block"; //IE4+
specific code
- else r.style.display = "table-row"; //Netscape and
Mozilla
- }
- }
- div.className = "expanded";
- div.onclick = function () {
- collapse(this);
- }
-}
-
-function collapse(div) {
- var rows = document.getElementsByTagName("tr");
- var id = div.parentNode.parentNode.id + "-";
- for (var i = 0; i < rows.length; i++) {
- var r = rows[i];
- if (matchStart(r.id, id)) {
- r.style.display = "none";
- }
- }
- div.className = "collapsed";
- div.onclick = function () {
- expand(this);
- }
-}
-
-function collapseAll() {
- var rows = document.getElementsByTagName("TR");
- for (var j = 0; j < rows.length; j++) {
- var r = rows[j];
- if (r.id.indexOf("-") >= 0) {
- r.style.display = "none";
- }
- }
- document.getElementById("all_selector").href =
"javascript:expandAll();";
- document.getElementById("all_selector").firstChild.nodeValue = "Expand
All";
-}
-
-function expandAll() {
- var rows = document.getElementsByTagName("TR");
- for (var j = 0; j < rows.length; j++) {
- var r = rows[j];
- if (r.id.indexOf("-") >= 0) {
- if (document.all) r.style.display = "block"; //IE4+
specific code
- else r.style.display = "table-row"; //Netscape and
Mozilla
- }
- }
- document.getElementById("all_selector").href =
"javascript:collapseAll();";
- document.getElementById("all_selector").firstChild.nodeValue =
"Collapse All";
-}
-
-function showComments() {
- var cells = document.getElementsByTagName("td");
- for (var i = 0; i < cells.length; i++) {
- var c = cells[i];
- if (c.id == 'comment') {
- if (document.all) c.style.display = "block"; //IE4+
specific code
- else c.style.display = "table-row"; //Netscape and
Mozilla
- }
- }
- document.getElementById("comment_selector").href =
"javascript:hideComments();";
- document.getElementById("column").src = "hide-comments.png"
-}
-
-function hideComments() {
- var cells = document.getElementsByTagName("td");
- for (var i = 0; i < cells.length; i++) {
- var c = cells[i];
- if (c.id == 'comment') {
- c.style.display = "none";
- }
- }
- document.getElementById("comment_selector").href =
"javascript:showComments();";
- document.getElementById("column").src = "show-comments.png";
-}
-
-function decreaseFontSize() {
- size--;
- document.getElementById("table").style.fontSize = size + "pt";
-}
-
-function increaseFontSize() {
- size++;
- document.getElementById("table").style.fontSize = size + "pt";
-}
-</script>
-</head>
-<body>
-<center>
-<img src="qsos.png"/>
-<br/><br/>
-<?php
-include("QSOSDocument.php");
-
-$files = $_GET['f'];
-$svg = $_GET['svg'];
-
-$num = count($files);
-$myDoc = array();
-$app = array();
-$trees = array();
-
-$i = 0;
-foreach($files as $file) {
- $myDoc[$i] = new QSOSDocument($file);
- $app[$i] = $myDoc[$i]->getkey("appname")."
".$myDoc[$i]->getkey("release");
- $trees[$i] = $myDoc[$i]->getTree();
- $i++;
-}
-
-$family = $myDoc[0]->getkey("qsosappfamily");
-
-$f = "";
-foreach($files as $file) {
- $f .= "f[]=$file&";
-}
-
-echo "<table>";
-echo "<tr width='100%'><td>";
-//echo "<a id='all_selector' href='javascript:collapseAll();'><img
src='all.png' border=0 onmouseover=\"return escape('Expand/collapse
all')\"/></a>";
-echo "<a id='comment_selector' href='javascript:hideComments();'><img
id='column' src='hide-comments.png' border=0 onmouseover=\"return
escape('Hide/Show comments')\"/></a>";
-echo " <a href='javascript:decreaseFontSize();'><img src='decrease-font.png'
border=0 onmouseover=\"return escape('Decrease font size')\"/></a>";
-echo " <a href='javascript:increaseFontSize();'><img src='increase-font.png'
border=0 onmouseover=\"return escape('Increase font size')\"/></a>";
-echo " <a href='radar.php?".$f."svg=$svg'><img src='graph.png' border=0
onmouseover=\"return escape('Show graph')\"/></a></td></tr></table>";
-
-echo "<table id='table' style='border-collapse: collapse; font-size: 12pt;
table-layout: fixed'>\n";
-echo "<tr class='title' style='width: 250px'><td>$family</td>";
-echo "<td style='width: 30px'><a href='radar.php?".$f."svg=$svg'><img
src='graph.png' border=''/></a></td>";
-for($i=0; $i<$num; $i++) {
- echo "<td><div style='width: 100px'>$app[$i]</div></td><td id='comment'
style='width: 300px'>Comments</td>";
-}
-echo "</tr>\n";
-
-showtree($myDoc, $trees, 0, '');
-echo "</table>\n";
-
-function showtree($myDoc, $trees, $depth, $idP) {
- global $svg;
- $new_depth = $depth + 1;
- $offset = $new_depth*10;
- $idF = 0;
- $tree = $trees[0];
-
- for($k=0; $k<count($tree); $k++) {
- $name = $tree[$k]->name;
- $title = $tree[$k]->title;
- $subtree = $tree[$k]->children;
- $subtrees = array();
-
- $idF++;
- if ($idP == '') {
- $id = $idF;
- } else {
- $id = $idP."-".$idF;
- }
-
- echo "<tr id='$id' name='$name' class='level$depth'
onmouseover=\"this.setAttribute('class','highlight')\"
onmouseout=\"this.setAttribute('class','level$depth')\">\n";
- if ($subtree) {
- echo "<td style='width: 250px; text-indent:
$offset'><span onclick=\"collapse(this);\"
class='expanded'>$title</span></td><td style='width: 30px'>";
- if ($myDoc[0]->hassubelements($name) > 2) {
- $files = $_GET['f'];
- $f = "";
- foreach($files as $file) {
- $f .= "f[]=$file&";
- }
- echo "<a
href='radar.php?".$f."c=$name&svg=$svg'><img src='graph.png'
border=''/></a></td>";
- }
- } else {
- echo "<td style='width: 250px; text-indent:
$offset'><span>$title</span></td><td style='width: 30px'></td>\n";;
- }
-
- for($i=0; $i<count($trees); $i++) {
- $desc = addslashes($myDoc[$i]->getgeneric($name,
"desc".$trees[$i][$k]->score));
- if ($desc != "") {
- echo "<td class='score' style='width: 100px;
cursor:help'' onmouseover=\"return
escape('".$desc."')\">".$trees[$i][$k]->score."</td>\n";
- } else {
- echo "<td class='score' style='width:
100px'>".$trees[$i][$k]->score."</td>\n";
- }
- echo "<td id='comment'><div style='width:
300px'>".$myDoc[$i]->getgeneric($name, "comment")."</div></td>\n";
- }
- echo "</tr>\n";
-;
- if ($subtree) {
- for($i=0; $i<count($trees); $i++) {
- $subtrees[$i] = $trees[$i][$k]->children;
- }
- showtree($myDoc, $subtrees, $new_depth, $id);
- }
- }
-}
-
-?>
-</center>
-<script language="JavaScript" type="text/javascript"
src="wz_tooltip.js"></script>
-</body>
-</html>
\ No newline at end of file
Index: template.zip
===================================================================
RCS file: template.zip
diff -N template.zip
Binary files /tmp/cvsYSyrzm and /dev/null differ
Index: writeremote.php
===================================================================
RCS file: writeremote.php
diff -N writeremote.php
--- writeremote.php 14 Dec 2006 13:33:34 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,8 +0,0 @@
-<?php
-$file = $_FILES['myfile'];
-$destination = "incoming/".$file['name']. "." . uniqid().".qsos";
-
-move_uploaded_file($file['tmp_name'], $destination);
-chmod ($destination, 0770);
-echo "File successfully uploaded";
-?>
\ No newline at end of file
Index: wz_tooltip.js
===================================================================
RCS file: wz_tooltip.js
diff -N wz_tooltip.js
--- wz_tooltip.js 15 Nov 2006 22:40:13 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,483 +0,0 @@
-/* This notice must be untouched at all times.
-
-wz_tooltip.js v. 3.42
-
-The latest version is available at
-http://www.walterzorn.com
-or http://www.devira.com
-or http://www.walterzorn.de
-
-Copyright (c) 2002-2005 Walter Zorn. All rights reserved.
-Created 1. 12. 2002 by Walter Zorn (Web: http://www.walterzorn.com )
-Last modified: 8. 11. 2006
-
-Cross-browser tooltips working even in Opera 5 and 6,
-as well as in NN 4, Gecko-Browsers, IE4+, Opera 7+ and Konqueror.
-No onmouseouts required.
-Appearance of tooltips can be individually configured
-via commands within the onmouseovers.
-
-LICENSE: LGPL
-
-This library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Lesser General Public
-License (LGPL) as published by the Free Software Foundation; either
-version 2.1 of the License, or (at your option) any later version.
-
-This library 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.
-
-For more details on the GNU Lesser General Public License,
-see http://www.gnu.org/copyleft/lesser.html
-*/
-
-
-
-//////////////// GLOBAL TOOPTIP CONFIGURATION /////////////////////
-var ttAbove = false; // tooltip above mousepointer? Alternative:
true
-var ttBgColor = "#e6ecff";
-var ttBgImg = ""; // path to background image;
-var ttBorderColor = "#003399";
-var ttBorderWidth = 1;
-var ttDelay = 500; // time span until tooltip shows up
[milliseconds]
-var ttFontColor = "#000066";
-var ttFontFace = "arial,helvetica,sans-serif";
-var ttFontSize = "11px";
-var ttFontWeight = "normal"; // alternative: "bold";
-var ttLeft = false; // tooltip on the left of the mouse?
Alternative: true
-var ttOffsetX = 12; // horizontal offset of left-top corner from
mousepointer
-var ttOffsetY = 15; // vertical offset "
-var ttOpacity = 100; // opacity of tooltip in percent (must be
integer between 0 and 100)
-var ttPadding = 3; // spacing between border and content
-var ttShadowColor = "";
-var ttShadowWidth = 0;
-var ttStatic = false; // tooltip NOT move with the mouse?
Alternative: true
-var ttSticky = false; // do NOT hide tooltip on mouseout?
Alternative: true
-var ttTemp = 0; // time span after which the tooltip
disappears; 0 (zero) means "infinite timespan"
-var ttTextAlign = "left";
-var ttTitleColor = "#ffffff"; // color of caption text
-var ttWidth = 300;
-//////////////////// END OF TOOLTIP CONFIG ////////////////////////
-
-
-
-////////////// TAGS WITH TOOLTIP FUNCTIONALITY ////////////////////
-// List may be extended or shortened:
-var tt_tags = new
Array("a","area","b","big","caption","center","code","dd","div","dl","dt","em","h1","h2","h3","h4","h5","h6","i","img","input","li","map","ol","p","pre","s",
"select",
"small","span","strike","strong","sub","sup","table","td","textarea","th","tr","tt","u","var","ul","layer");
-/////////////////////////////////////////////////////////////////////
-
-
-
-///////// DON'T CHANGE ANYTHING BELOW THIS LINE /////////////////////
-var tt_obj = null, // current tooltip
-tt_ifrm = null, // iframe to cover windowed controls in IE
-tt_objW = 0, tt_objH = 0, // width and height of tt_obj
-tt_objX = 0, tt_objY = 0,
-tt_offX = 0, tt_offY = 0,
-xlim = 0, ylim = 0, // right and bottom borders of visible client area
-tt_sup = false, // true if T_ABOVE cmd
-tt_sticky = false, // tt_obj sticky?
-tt_wait = false,
-tt_act = false, // tooltip visibility flag
-tt_sub = false, // true while tooltip below mousepointer
-tt_u = "undefined",
-tt_mf = null, // stores previous mousemove evthandler
-// Opera: disable href when hovering <a>
-tt_tag = null; // stores hovered dom node, href and previous
statusbar txt
-
-
-var tt_db = (document.compatMode && document.compatMode != "BackCompat")?
document.documentElement : document.body? document.body : null,
-tt_n = navigator.userAgent.toLowerCase(),
-tt_nv = navigator.appVersion;
-// Browser flags
-var tt_op = !!(window.opera && document.getElementById),
-tt_op6 = tt_op && !document.defaultView,
-tt_op7 = tt_op && !tt_op6,
-tt_ie = tt_n.indexOf("msie") != -1 && document.all && tt_db && !tt_op,
-tt_ie7 = tt_ie && typeof document.body.style.maxHeight != tt_u,
-tt_ie6 = tt_ie && !tt_ie7 &&
parseFloat(tt_nv.substring(tt_nv.indexOf("MSIE")+5)) >= 5.5,
-tt_n4 = (document.layers && typeof document.classes != tt_u),
-tt_n6 = (!tt_op && document.defaultView && typeof
document.defaultView.getComputedStyle != tt_u),
-tt_w3c = !tt_ie && !tt_n6 && !tt_op && document.getElementById;
-
-function tt_Int(t_x)
-{
- var t_y;
- return isNaN(t_y = parseInt(t_x))? 0 : t_y;
-}
-function wzReplace(t_x, t_y)
-{
- var t_ret = "",
- t_str = this,
- t_xI;
- while((t_xI = t_str.indexOf(t_x)) != -1)
- {
- t_ret += t_str.substring(0, t_xI) + t_y;
- t_str = t_str.substring(t_xI + t_x.length);
- }
- return t_ret+t_str;
-}
-String.prototype.wzReplace = wzReplace;
-function tt_N4Tags(tagtyp, t_d, t_y)
-{
- t_d = t_d || document;
- t_y = t_y || new Array();
- var t_x = (tagtyp=="a")? t_d.links : t_d.layers;
- for(var z = t_x.length; z--;) t_y[t_y.length] = t_x[z];
- for(z = t_d.layers.length; z--;) t_y = tt_N4Tags(tagtyp,
t_d.layers[z].document, t_y);
- return t_y;
-}
-function tt_Htm(tt, t_id, txt)
-{
- var t_bgc = (typeof tt.T_BGCOLOR != tt_u)? tt.T_BGCOLOR : ttBgColor,
- t_bgimg = (typeof tt.T_BGIMG != tt_u)? tt.T_BGIMG : ttBgImg,
- t_bc = (typeof tt.T_BORDERCOLOR != tt_u)? tt.T_BORDERCOLOR :
ttBorderColor,
- t_bw = (typeof tt.T_BORDERWIDTH != tt_u)? tt.T_BORDERWIDTH :
ttBorderWidth,
- t_ff = (typeof tt.T_FONTFACE != tt_u)? tt.T_FONTFACE : ttFontFace,
- t_fc = (typeof tt.T_FONTCOLOR != tt_u)? tt.T_FONTCOLOR :
ttFontColor,
- t_fsz = (typeof tt.T_FONTSIZE != tt_u)? tt.T_FONTSIZE : ttFontSize,
- t_fwght = (typeof tt.T_FONTWEIGHT != tt_u)? tt.T_FONTWEIGHT :
ttFontWeight,
- t_opa = (typeof tt.T_OPACITY != tt_u)? tt.T_OPACITY : ttOpacity,
- t_padd = (typeof tt.T_PADDING != tt_u)? tt.T_PADDING : ttPadding,
- t_shc = (typeof tt.T_SHADOWCOLOR != tt_u)? tt.T_SHADOWCOLOR :
(ttShadowColor || 0),
- t_shw = (typeof tt.T_SHADOWWIDTH != tt_u)? tt.T_SHADOWWIDTH :
(ttShadowWidth || 0),
- t_algn = (typeof tt.T_TEXTALIGN != tt_u)? tt.T_TEXTALIGN :
ttTextAlign,
- t_tit = (typeof tt.T_TITLE != tt_u)? tt.T_TITLE : "",
- t_titc = (typeof tt.T_TITLECOLOR != tt_u)? tt.T_TITLECOLOR :
ttTitleColor,
- t_w = (typeof tt.T_WIDTH != tt_u)? tt.T_WIDTH : ttWidth;
- if(t_shc || t_shw)
- {
- t_shc = t_shc || "#cccccc";
- t_shw = t_shw || 5;
- }
- if(tt_n4 && (t_fsz == "10px" || t_fsz == "11px")) t_fsz = "12px";
-
- var t_optx = (tt_n4? '' : tt_n6? ('-moz-opacity:'+(t_opa/100.0)) :
tt_ie? ('filter:Alpha(opacity='+t_opa+')') : ('opacity:'+(t_opa/100.0))) + ';';
- var t_y = '<div id="'+t_id+'" style="position:absolute;z-index:1010;';
- t_y += 'left:0px;top:0px;width:'+(t_w+t_shw)+'px;visibility:'+(tt_n4?
'hide' : 'hidden')+';'+t_optx+'">' +
- '<table border="0" cellpadding="0" cellspacing="0"'+(t_bc? ('
bgcolor="'+t_bc+'" style="background:'+t_bc+';"') : '')+' width="'+t_w+'">';
- if(t_tit)
- {
- t_y += '<tr><td style="padding-left:3px;padding-right:3px;"
align="'+t_algn+'"><font color="'+t_titc+'" face="'+t_ff+'" ' +
-
'style="color:'+t_titc+';font-family:'+t_ff+';font-size:'+t_fsz+';"><b>' +
- (tt_n4? ' ' : '')+t_tit+'</b></font></td></tr>';
- }
- t_y += '<tr><td><table border="0" cellpadding="'+t_padd+'"
cellspacing="'+t_bw+'" width="100%">' +
- '<tr><td'+(t_bgc? (' bgcolor="'+t_bgc+'"') : '')+(t_bgimg? '
background="'+t_bgimg+'"' : '')+' style="text-align:'+t_algn+';';
- if(tt_n6) t_y += 'padding:'+t_padd+'px;';
- t_y += '" align="'+t_algn+'"><font color="'+t_fc+'" face="'+t_ff+'"' +
- '
style="color:'+t_fc+';font-family:'+t_ff+';font-size:'+t_fsz+';font-weight:'+t_fwght+';">';
- if(t_fwght == 'bold') t_y += '<b>';
- t_y += txt;
- if(t_fwght == 'bold') t_y += '</b>';
- t_y += '</font></td></tr></table></td></tr></table>';
- if(t_shw)
- {
- var t_spct = Math.round(t_shw*1.3);
- if(tt_n4)
- {
- t_y += '<layer bgcolor="'+t_shc+'" left="'+t_w+'"
top="'+t_spct+'" width="'+t_shw+'" height="0"></layer>' +
- '<layer bgcolor="'+t_shc+'" left="'+t_spct+'"
align="bottom" width="'+(t_w-t_spct)+'" height="'+t_shw+'"></layer>';
- }
- else
- {
- t_optx = tt_n6? '-moz-opacity:0.85;' : tt_ie?
'filter:Alpha(opacity=85);' : 'opacity:0.85;';
- t_y += '<div id="'+t_id+'R"
style="position:absolute;background:'+t_shc+';left:'+t_w+'px;top:'+t_spct+'px;width:'+t_shw+'px;height:1px;overflow:hidden;'+t_optx+'"></div>'
+
- '<div
style="position:relative;background:'+t_shc+';left:'+t_spct+'px;top:0px;width:'+(t_w-t_spct)+'px;height:'+t_shw+'px;overflow:hidden;'+t_optx+'"></div>';
- }
- }
- return(t_y+'</div>');
-}
-function tt_EvX(t_e)
-{
- var t_y = tt_Int(t_e.pageX || t_e.clientX || 0) +
- tt_Int(tt_ie? tt_db.scrollLeft : 0) +
- tt_offX;
- if(t_y > xlim) t_y = xlim;
- var t_scr = tt_Int(window.pageXOffset || (tt_db? tt_db.scrollLeft : 0)
|| 0);
- if(t_y < t_scr) t_y = t_scr;
- return t_y;
-}
-function tt_EvY(t_e)
-{
- var t_y2;
-
- var t_y = tt_Int(t_e.pageY || t_e.clientY || 0) +
- tt_Int(tt_ie? tt_db.scrollTop : 0);
- if(tt_sup && (t_y2 = t_y - (tt_objH + tt_offY - 15)) >=
tt_Int(window.pageYOffset || (tt_db? tt_db.scrollTop : 0) || 0))
- t_y -= (tt_objH + tt_offY - 15);
- else if(t_y > ylim || !tt_sub && t_y > ylim-24)
- {
- t_y -= (tt_objH + 5);
- tt_sub = false;
- }
- else
- {
- t_y += tt_offY;
- tt_sub = true;
- }
- return t_y;
-}
-function tt_ReleasMov()
-{
- if(document.onmousemove == tt_Move)
- {
- if(!tt_mf && document.releaseEvents)
document.releaseEvents(Event.MOUSEMOVE);
- document.onmousemove = tt_mf;
- }
-}
-function tt_ShowIfrm(t_x)
-{
- if(!tt_obj || !tt_ifrm) return;
- if(t_x)
- {
- tt_ifrm.style.width = tt_objW+'px';
- tt_ifrm.style.height = tt_objH+'px';
- tt_ifrm.style.display = "block";
- }
- else tt_ifrm.style.display = "none";
-}
-function tt_GetDiv(t_id)
-{
- return(
- tt_n4? (document.layers[t_id] || null)
- : tt_ie? (document.all[t_id] || null)
- : (document.getElementById(t_id) || null)
- );
-}
-function tt_GetDivW()
-{
- return tt_Int(
- tt_n4? tt_obj.clip.width
- : (tt_obj.style.pixelWidth || tt_obj.offsetWidth)
- );
-}
-function tt_GetDivH()
-{
- return tt_Int(
- tt_n4? tt_obj.clip.height
- : (tt_obj.style.pixelHeight || tt_obj.offsetHeight)
- );
-}
-
-// Compat with DragDrop Lib: Ensure that z-index of tooltip is lifted beyond
toplevel dragdrop element
-function tt_SetDivZ()
-{
- var t_i = tt_obj.style || tt_obj;
- if(t_i)
- {
- if(window.dd && dd.z)
- t_i.zIndex = Math.max(dd.z+1, t_i.zIndex);
- if(tt_ifrm) tt_ifrm.style.zIndex = t_i.zIndex-1;
- }
-}
-function tt_SetDivPos(t_x, t_y)
-{
- var t_i = tt_obj.style || tt_obj;
- var t_px = (tt_op6 || tt_n4)? '' : 'px';
- t_i.left = (tt_objX = t_x) + t_px;
- t_i.top = (tt_objY = t_y) + t_px;
- // window... to work around the FireFox Alzheimer Bug
- if(window.tt_ifrm)
- {
- tt_ifrm.style.left = t_i.left;
- tt_ifrm.style.top = t_i.top;
- }
-}
-function tt_ShowDiv(t_x)
-{
- tt_ShowIfrm(t_x);
- if(tt_n4) tt_obj.visibility = t_x? 'show' : 'hide';
- else tt_obj.style.visibility = t_x? 'visible' : 'hidden';
- tt_act = t_x;
-}
-function tt_OpDeHref(t_e)
-{
- var t_tag;
- if(t_e)
- {
- t_tag = t_e.target;
- while(t_tag)
- {
- if(t_tag.hasAttribute("href"))
- {
- tt_tag = t_tag
- tt_tag.t_href = tt_tag.getAttribute("href");
- tt_tag.removeAttribute("href");
- tt_tag.style.cursor = "hand";
- tt_tag.onmousedown = tt_OpReHref;
- tt_tag.stats = window.status;
- window.status = tt_tag.t_href;
- break;
- }
- t_tag = t_tag.parentElement;
- }
- }
-}
-function tt_OpReHref()
-{
- if(tt_tag)
- {
- tt_tag.setAttribute("href", tt_tag.t_href);
- window.status = tt_tag.stats;
- tt_tag = null;
- }
-}
-function tt_Show(t_e, t_id, t_sup, t_delay, t_fix, t_left, t_offx, t_offy,
t_static, t_sticky, t_temp)
-{
- if(tt_obj) tt_Hide();
- tt_mf = document.onmousemove || null;
- if(window.dd && (window.DRAG && tt_mf == DRAG || window.RESIZE && tt_mf
== RESIZE)) return;
- var t_sh, t_h;
-
- tt_obj = tt_GetDiv(t_id);
- if(tt_obj)
- {
- t_e = t_e || window.event;
- tt_sub = !(tt_sup = t_sup);
- tt_sticky = t_sticky;
- tt_objW = tt_GetDivW();
- tt_objH = tt_GetDivH();
- tt_offX = t_left? -(tt_objW+t_offx) : t_offx;
- tt_offY = t_offy;
- if(tt_op7) tt_OpDeHref(t_e);
- if(tt_n4)
- {
- if(tt_obj.document.layers.length)
- {
- t_sh = tt_obj.document.layers[0];
- t_sh.clip.height = tt_objH -
Math.round(t_sh.clip.width*1.3);
- }
- }
- else
- {
- t_sh = tt_GetDiv(t_id+'R');
- if(t_sh)
- {
- t_h = tt_objH - tt_Int(t_sh.style.pixelTop ||
t_sh.style.top || 0);
- if(typeof t_sh.style.pixelHeight != tt_u)
t_sh.style.pixelHeight = t_h;
- else t_sh.style.height = t_h+'px';
- }
- }
-
- xlim = tt_Int((tt_db && tt_db.clientWidth)? tt_db.clientWidth :
window.innerWidth) +
- tt_Int(window.pageXOffset || (tt_db? tt_db.scrollLeft :
0) || 0) -
- tt_objW -
- (tt_n4? 21 : 0);
- ylim = tt_Int(window.innerHeight || tt_db.clientHeight) +
- tt_Int(window.pageYOffset || (tt_db? tt_db.scrollTop :
0) || 0) -
- tt_objH - tt_offY;
-
- tt_SetDivZ();
- if(t_fix) tt_SetDivPos(tt_Int((t_fix = t_fix.split(','))[0]),
tt_Int(t_fix[1]));
- else tt_SetDivPos(tt_EvX(t_e), tt_EvY(t_e));
-
- var t_txt = 'tt_ShowDiv(\'true\');';
- if(t_sticky) t_txt += '{'+
- 'tt_ReleasMov();'+
- 'window.tt_upFunc = document.onmouseup ||
null;'+
- 'if(document.captureEvents)
document.captureEvents(Event.MOUSEUP);'+
- 'document.onmouseup = new
Function("window.setTimeout(\'tt_Hide();\', 10);");'+
- '}';
- else if(t_static) t_txt += 'tt_ReleasMov();';
- if(t_temp > 0) t_txt += 'window.tt_rtm =
window.setTimeout(\'tt_sticky = false; tt_Hide();\','+t_temp+');';
- window.tt_rdl = window.setTimeout(t_txt, t_delay);
-
- if(!t_fix)
- {
- if(document.captureEvents)
document.captureEvents(Event.MOUSEMOVE);
- document.onmousemove = tt_Move;
- }
- }
-}
-var tt_area = false;
-function tt_Move(t_ev)
-{
- if(!tt_obj) return;
- if(tt_n6 || tt_w3c)
- {
- if(tt_wait) return;
- tt_wait = true;
- setTimeout('tt_wait = false;', 5);
- }
- var t_e = t_ev || window.event;
- tt_SetDivPos(tt_EvX(t_e), tt_EvY(t_e));
- if(tt_op6)
- {
- if(tt_area && t_e.target.tagName != 'AREA') tt_Hide();
- else if(t_e.target.tagName == 'AREA') tt_area = true;
- }
-}
-function tt_Hide()
-{
- if(window.tt_obj)
- {
- if(window.tt_rdl) window.clearTimeout(tt_rdl);
- if(!tt_sticky || !tt_act)
- {
- if(window.tt_rtm) window.clearTimeout(tt_rtm);
- tt_ShowDiv(false);
- tt_SetDivPos(-tt_objW, -tt_objH);
- tt_obj = null;
- if(typeof window.tt_upFunc != tt_u) document.onmouseup
= window.tt_upFunc;
- }
- tt_sticky = false;
- if(tt_op6 && tt_area) tt_area = false;
- tt_ReleasMov();
- if(tt_op7) tt_OpReHref();
- }
-}
-function tt_Init()
-{
- if(!(tt_op || tt_n4 || tt_n6 || tt_ie || tt_w3c)) return;
-
- var htm = tt_n4? '<div style="position:absolute;"></div>' : '',
- tags,
- t_tj,
- over,
- esc = 'return escape(';
- var i = tt_tags.length; while(i--)
- {
- tags = tt_ie? (document.all.tags(tt_tags[i]) || 1)
- : document.getElementsByTagName?
(document.getElementsByTagName(tt_tags[i]) || 1)
- : (!tt_n4 && tt_tags[i]=="a")? document.links
- : 1;
- if(tt_n4 && (tt_tags[i] == "a" || tt_tags[i] == "layer")) tags
= tt_N4Tags(tt_tags[i]);
- var j = tags.length; while(j--)
- {
- if(typeof (t_tj = tags[j]).onmouseover == "function" &&
t_tj.onmouseover.toString().indexOf(esc) != -1 && !tt_n6 || tt_n6 && (over =
t_tj.getAttribute("onmouseover")) && over.indexOf(esc) != -1)
- {
- if(over) t_tj.onmouseover = new Function(over);
- var txt = unescape(t_tj.onmouseover());
- htm += tt_Htm(
- t_tj,
- "tOoLtIp"+i+""+j,
- txt.wzReplace("& ","&")
- );
- // window... to work around the FF Alzheimer Bug
- t_tj.onmouseover = new Function('e',
- 'if(window.tt_Show && tt_Show)
tt_Show(e,'+
- '"tOoLtIp' +i+''+j+ '",'+
- ((typeof t_tj.T_ABOVE != tt_u)?
t_tj.T_ABOVE : ttAbove)+','+
- ((typeof t_tj.T_DELAY != tt_u)?
t_tj.T_DELAY : ttDelay)+','+
- ((typeof t_tj.T_FIX != tt_u)?
'"'+t_tj.T_FIX+'"' : '""')+','+
- ((typeof t_tj.T_LEFT != tt_u)?
t_tj.T_LEFT : ttLeft)+','+
- ((typeof t_tj.T_OFFSETX != tt_u)?
t_tj.T_OFFSETX : ttOffsetX)+','+
- ((typeof t_tj.T_OFFSETY != tt_u)?
t_tj.T_OFFSETY : ttOffsetY)+','+
- ((typeof t_tj.T_STATIC != tt_u)?
t_tj.T_STATIC : ttStatic)+','+
- ((typeof t_tj.T_STICKY != tt_u)?
t_tj.T_STICKY : ttSticky)+','+
- ((typeof t_tj.T_TEMP != tt_u)?
t_tj.T_TEMP : ttTemp)+
- ');'
- );
- t_tj.onmouseout = tt_Hide;
- if(t_tj.alt) t_tj.alt = "";
- if(t_tj.title) t_tj.title = "";
- }
- }
- }
- if(tt_ie6) htm += '<iframe id="TTiEiFrM" src="javascript:false"
scrolling="no" frameborder="0"
style="filter:Alpha(opacity=0);position:absolute;top:0px;left:0px;display:none;"></iframe>';
- document.write(htm);
- if(document.getElementById) tt_ifrm =
document.getElementById("TTiEiFrM");
-}
-tt_Init();
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Qsos-commits] qsos/apps/phpviewer QSOSDocument.php all.png co...,
Raphaël Semeteys <=