From 2e0ddb39bc710a41628716c45e9cb8c9df92e98f Mon Sep 17 00:00:00 2001
From: Edin Kadribasic <edink@php.net>
Date: Sat, 26 Mar 2005 21:14:19 +0000
Subject: [PATCH] Script that creates PEAR bundle dir for distribution

---
 pear/make-pear-bundle.php | 114 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100755 pear/make-pear-bundle.php

diff --git a/pear/make-pear-bundle.php b/pear/make-pear-bundle.php
new file mode 100755
index 0000000000..5956206e75
--- /dev/null
+++ b/pear/make-pear-bundle.php
@@ -0,0 +1,114 @@
+#!/usr/bin/php
+<?php # $Id$
+/* piece together a windows pear distro */
+
+if (!$argv[1] || !$argv[2]) {
+	echo "Usage: {$argv[0]} dist_dir src_dir\n";
+	exit(1);
+}
+
+$dist_dir = $argv[1];
+$cvs_dir = $argv[2];
+
+/* very light-weight function to extract a single named file from
+ * a gzipped tarball.  This makes assumptions about the files
+ * based on the PEAR info set in $packages. */
+function extract_file_from_tarball($pkg, $filename, $dest_dir) /* {{{ */
+{
+	global $packages;
+
+	$name = $pkg . '-' . $packages[$pkg];
+	$tarball = $dest_dir . "/" . $name . '.tgz';
+	$filename = $name . '/' . $filename;
+	$destfilename = $dest_dir . "/" . basename($filename);
+
+	$fp = gzopen($tarball, 'rb');
+
+	$done = false;
+	do {
+		/* read the header */
+		$hdr_data = gzread($fp, 512);
+	   	if (strlen($hdr_data) == 0)
+			break;
+		$checksum = 0;
+		for ($i = 0; $i < 148; $i++)
+			$checksum += ord($hdr_data{$i});
+		for ($i = 148; $i < 156; $i++)
+			$checksum += 32;
+		for ($i = 156; $i < 512; $i++)
+			$checksum += ord($hdr_data{$i});
+
+		$hdr = unpack("a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1typeflag/a100link/a6magic/a2version/a32uname/a32gname/a8devmajor/a8devminor", $hdr_data);
+
+		$hdr['checksum'] = octdec(trim($hdr['checksum']));
+
+		if ($hdr['checksum'] != $checksum) {
+			echo "Checksum for $tarball $hdr[filename] is invalid\n";
+			print_r($hdr);
+			return;
+		}
+
+		$hdr['size'] = octdec(trim($hdr['size']));
+		echo "File: $hdr[filename] $hdr[size]\n";
+		
+		if ($filename == $hdr['filename']) {
+			echo "Found the file we want\n";
+			$dest = fopen($destfilename, 'wb');
+			$x = stream_copy_to_stream($fp, $dest, $hdr['size']);
+			fclose($dest);
+			echo "Wrote $x bytes into $destfilename\n";
+			break;
+		}
+		
+		/* skip body of the file */
+		$size = 512 * ceil((int)$hdr['size'] / 512);
+		echo "Skipping $size bytes\n";
+		gzseek($fp, gztell($fp) + $size);
+		
+	} while (!$done);
+	
+} /* }}} */
+
+echo "Creating PEAR in $dist_dir\n";
+
+/* Let's do a PEAR-less pear setup */
+if (!file_exists($dist_dir)) {
+    mkdir($dist_dir);
+}
+if (!file_exists($dist_dir)) {
+    die("could not make $dist_dir");
+}
+mkdir("$dist_dir/PEAR");
+mkdir("$dist_dir/PEAR/go-pear-bundle");
+	
+/* grab the bootstrap script */
+echo "Downloading go-pear\n";
+copy("http://go-pear.org/", "$dist_dir/PEAR/go-pear.php");
+echo "Downloading go-pear.bat\n";
+copy("$cvs_dir/pear/go-pear.bat", "$dist_dir/go-pear.bat");
+
+/* import the package list -- sets $packages variable */
+include $cvs_dir . "/pear/go-pear-list.php";
+
+/* download the packages into the destination */
+echo "Fetching packages\n";
+
+foreach ($packages as $name => $version) {
+	$filename = "$name-$version.tgz";
+	$destfilename = "$dist_dir/PEAR/go-pear-bundle/$filename";
+	if (file_exists($destfilename))
+		continue;
+	$url = "http://pear.php.net/get/$filename";
+	echo "Downloading $name from $url\n";
+	flush();
+	copy($url, $destfilename);
+}
+
+echo "Download complete.  Extracting bootstrap files\n";
+
+/* Now, we want PEAR.php, Getopt.php (Console_Getopt) and Tar.php (Archive_Tar)
+ * broken out of the tarballs */
+extract_file_from_tarball('PEAR', 'PEAR.php', "$dist_dir/PEAR/go-pear-bundle");
+extract_file_from_tarball('Archive_Tar', 'Archive/Tar.php', "$dist_dir/PEAR/go-pear-bundle");
+extract_file_from_tarball('Console_Getopt', 'Console/Getopt.php', "$dist_dir/PEAR/go-pear-bundle");
+?>
-- 
2.40.0