Search
j0ke.net Open Build Service
>
Projects
>
internetx
:
php5
:
EL6
:
5.4.40
:
extensions
>
php-pear
> relocate.php
Sign Up
|
Log In
Username
Password
Cancel
Overview
Repositories
Revisions
Requests
Users
Advanced
Attributes
Meta
File relocate.php of Package php-pear
<?php # # relocate.php /path/to/file prefix # # Takes a file as input and a string prefix; reads # the file as a serialized data blob and strips PREFIX # from the beginning of each string value within the blob. # Serializes again and writes output to stdout. # $file = $_SERVER['argv'][1]; $destdir = $_SERVER['argv'][2]; $destdir_len = strlen($destdir); function relocate_string($value) { global $destdir, $destdir_len; if (strncmp($value, $destdir, $destdir_len) == 0) { $value = substr($value, $destdir_len); } return $value; } function relocate_value($value) { if (is_string($value)) { $value = relocate_string($value); } else if (is_array($value)) { $value = relocate_array($value); } return $value; } function relocate_array($array) { $result = array(); foreach ($array as $key => $value) { if (is_string($key)) { $key = relocate_string($key); } $result[$key] = relocate_value($value); } return $result; } $input = file_get_contents($file); # Special case for /etc/pear.conf. if (strncmp($input, "#PEAR_Config 0.9\n", 17) == 0) { echo substr($input, 0, 17); $s = substr($input, 17); } else { $s = $input; } echo serialize(relocate_value(unserialize($s))); ?>