use Parser::readPecl()

1 files changed, 2 insertions, 77 deletions

diff --git a/refresh.php b/refresh.php
index 9603c78..14b0020 100644
--- a/refresh.php
+++ b/refresh.php
@@ -81,84 +81,9 @@ try {
 
     // -------------------------------------------------------------------
     if ($_SERVER['argc']==1 || in_array('pecl', $_SERVER['argv'])) {
-        echo date("r : ") . "PECL listLatestReleases - stable\n";
-
-        $request = xmlrpc_encode_request("package.listLatestReleases", "stable");
-        $context = stream_context_create(
-            array(
-                'http' => array(
-                    'method' => "POST",
-                    'header' => "Content-Type: text/xml",
-                    'content' => $request
-                )
-            )
-        );
-        $file = file_get_contents("http://pecl.php.net/xmlrpc.php", false, $context)
-            or die ("Can't file_get_contents(http://pecl.php.net/xmlrpc.php)");
-        $stable = xmlrpc_decode($file);
-        if (xmlrpc_is_fault($stable)) {
-            echo date("r : ") .
-                "ERROR xmlrpc: $stable[faultString] ($stable[faultCode])";
-        } else {
-            $nb = $uptable->delete(array('type'=>'pecl', 'channel'=>'pecl'));
-            echo date("r : ") . "Delete $nb packages\n";
-
-            $nb=0;
-            foreach ($stable as $name => $info) {
-                $rpmname="php-pecl-".str_replace("_", "-", $name);
-
-                $id = $uptable->record(
-                    'pecl',
-                    'pecl',
-                    $rpmname,
-                    $info["version"],
-                    true
-                );
-                if ($id) {
-                    $nb++;
-                }
-            }
-            echo date("r : ") . "Write $nb packages\n";
-        }
 
-        // -------------------------------------------------------------------
-        echo date("r : ") . "PECL listLatestReleases - unstable\n";
-
-        $request = xmlrpc_encode_request("package.listLatestReleases", array());
-        $context = stream_context_create(
-            array(
-                'http' => array(
-                    'method' => "POST",
-                    'header' => "Content-Type: text/xml",
-                    'content' => $request
-                )
-            )
-        );
-        $file = file_get_contents("http://pecl.php.net/xmlrpc.php", false, $context)
-            or die ("Can't file_get_contents(http://pecl.php.net/xmlrpc.php)");
-        $unstable = xmlrpc_decode($file);
-        if (xmlrpc_is_fault($unstable)) {
-            echo date("r : ") . "ERROR xmlrpc: $stable[faultString] ".
-                "($stable[faultCode])";
-        } else {
-            $nb=0;
-            foreach ($unstable as $name => $info) {
-                $rpmname="php-pecl-".str_replace("_", "-", $name);
-
-                $id = $uptable->record(
-                    'pecl',
-                    'pecl',
-                    $rpmname,
-                    $info["version"],
-                    true,
-                    $info["state"]
-                );
-                if ($id) {
-                    $nb++;
-                }
-            }
-            echo date("r : ") . "Write $nb packages\n";
-        }
+        Parser::readPecl($uptable, 'http://pecl.php.net/xmlrpc.php');
+
     } // if in options
 
     // -------------------------------------------------------------------