From c4dd7a1a684490673e25aaf4fabec5df138854c4 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Thu, 14 Mar 2013 05:42:27 +0000
Subject: Imported from /home/lorry/working-area/delta_php2/php-5.4.13.tar.bz2.

---
 ext/spl/examples/phar_from_dir.php | 50 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 ext/spl/examples/phar_from_dir.php

(limited to 'ext/spl/examples/phar_from_dir.php')

diff --git a/ext/spl/examples/phar_from_dir.php b/ext/spl/examples/phar_from_dir.php
new file mode 100755
index 0000000..2ee15ca
--- /dev/null
+++ b/ext/spl/examples/phar_from_dir.php
@@ -0,0 +1,50 @@
+<?php
+
+/** @file   phar_from_dir.php
+ * @brief   Create phar archive from directory
+ * @ingroup examples
+ * @author  Marcus Boerger
+ * @date    2003 - 2007
+ * @version 1.0
+ *
+ * Usage: php phar_create_from_dir.php \<archive\> \<directory\> [\<regex\>]
+ *
+ * Create phar archive \<archive\> using entries from \<directory\> that 
+ * optionally match \<regex\>.
+ */
+
+if ($argc < 3)
+{
+	echo <<<EOF
+php phar_from_dir.php archive directory [regex]
+
+Packs files in a given directory into a phar archive.
+
+archive    name of the archive to create
+directory  input directory to pack
+regex      optional expression to match files in directory
+
+EOF;
+	exit(1);
+}
+
+$phar = new Phar($argv[1], 0, 'newphar');
+
+$dir = new RecursiveDirectoryIterator($argv[2]);
+$dir = new RecursiveIteratorIterator($dir);
+if ($argc > 3)
+{
+	$dir = new RegexIterator($dir, '/'.$argv[3].'/');
+}
+
+$phar->begin();
+
+foreach($dir as $file)
+{
+	echo "$file\n";
+	copy($file, "phar://newphar/$file");
+}
+
+$phar->commit();
+
+?>
\ No newline at end of file
-- 
cgit v1.2.1