Newsgroups: php.internals
Path: news.php.net
Xref: news.php.net php.internals:29906
Mailing-List: contact internals-help@lists.php.net; run by ezmlm
Received-SPF: error (pb1.pair.com: domain libero.it from 212.52.84.43 cause and error)
Message-ID: <465CB041.2070809@libero.it>
Date: Wed, 30 May 2007 00:59:13 +0200
User-Agent: Thunderbird 2.0.0.0 (Windows/20070326)
MIME-Version: 1.0
To:  internals@lists.php.net
CC: Edin Kadribasic <edink@php.net>
References: <46574FC3.6010707@gmail.com>
In-Reply-To: <46574FC3.6010707@gmail.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Subject: Re: pecl4win patches
From: giunta_gaetano@libero.it (Gaetano Giunta)

One more patch: a php file to generate rss feeds for pecl4win releases. 
It can list all files or all files for a given php branch.
The base rss code is taken from pecl rss.
It assumes that for every extension and php branch, there is only one 
file in the db (ie. not many builds corresponding to different php 
versions).

Bye
Gaetano

ps: sorry for spamming the list. Is there some other place I should post 
this?


<?php
/**
   +----------------------------------------------------------------------+
   | PECL4WIN Web site                                                    |
   +----------------------------------------------------------------------+
   | Copyright (c) 2007 The PHP Group                                     |
   +----------------------------------------------------------------------+
   | This source file is subject to version 2.02 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available at through the world-wide-web at                           |
   | http://www.php.net/license/3_01.txt.                                 |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+

   @author Pierre-Alain Joye <pajoye@php.net>
   @author G. Giunta
   @version $Id:  $

   @todo use a better xml-escaping filter than htmlspecialchars
   @todo shall we return a specific error if user asks for inexisting 
extension?
*/

if (!defined("SITE_ROOT")) {
  define("SITE_ROOT", dirname(__FILE__));
}
include SITE_ROOT."/lib/includes/init.php";

function rss_bailout() {
    header('HTTP/1.0 404 Not Found');
    echo "<h1>The requested URL " . (($_SERVER['REQUEST_URI'])) . " was 
not found on this server.</h1>";
    exit();
}

/* if file is given, the file will be used to store the rss feed */
function rss_create($items, $channel_title, $channel_description, 
$dest_file=false) {
    if (is_array($items) /*&& count($items)>0*/) {

        $rss_top = <<<EOT
<?xml version="1.0" encoding="iso-8859-1"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" 
xmlns="http://purl.org/rss/1.0/" 
xmlns:dc="http://purl.org/dc/elements/1.1/">
    <channel rdf:about="http://pecl4win.php.net/">
    <link>http://pecl4win.php.net/</link>
    <dc:creator>edink@php.net</dc:creator>
    <dc:publisher>edink@php.net</dc:publisher>
    <dc:language>en-us</dc:language>
EOT;

        $items_xml = "<items>
<rdf:Seq>";
        $item_entries = '';

        foreach ($items as $item) {
            $date = date("Y-m-d\TH:i:s-05:00", 
strtotime($item['releasedate']));

            /* allows to override the default link */
            if (!isset($item['link'])) {
                    $url = 'http://pecl4win.php.net/download.php/ext/' . 
$item['branch'] . '/' . $item['version'] . '/' . $item['name'];
            } else {
                $url = $item['link'];
            }

            if (!empty($item['branch'])) {
                $title = $item['name'] . ' (' . $item['branch'] . ' 
branch)';
            } else {
                $title = $item['name'];
            }

            //$node = $this->newItem($title, $url, 
$item['releasenotes'], $date);
            $items_xml .= '<rdf:li rdf:resource="' . $url . '"/>' . "\n";
            $item_entries .= "<item rdf:about=" . '"' .$url . '"' . ">
<title>$title</title>
    <link>$url</link>
    <description>" .  $item['releasenotes'] ."
</description>
<dc:date>$date</dc:date>
</item>";
            $item_entries .= "";
        }

        $items_xml .= "</rdf:Seq>
</items>\n";

        $rss_feed = $rss_top . $items_xml ."
<title>$channel_title</title>
<description>$channel_description</description>
</channel>
$item_entries
</rdf:RDF>";

        /* lock free write, thx rasmus for the tip */
        if($dest_file && (!file_exists($dest_file) || 
filemtime($dest_file) < (time()-$timeout))) {
            $stream = fopen($url,'r');
            $tmpf = tempnam('/tmp','YWS');
            // Note the direct write from the stream here
            file_put_contents($tmpf, $stream);
            fclose($stream);
            rename($tmpf, $dest_file);
        }
        header("Content-Type: text/xml; charset=iso-8859-1");
        echo $rss_feed;
    } else {
        rss_bailout();
    }
}

$channel_title = 'PECL4WIN: Latest releases';
$channel_description = 'The latest releases in PECL4WIN.';

$q = "select fname, branch, pversion, filesize, updated from ext";

$args = isset($_SERVER['PATH_INFO']) ? explode("/", 
$_SERVER['PATH_INFO']) : '';
if (count($args) > 1 && $args[1] != '') {
    //$branch = $args[1];
    $channel_title .= ' for branch '.htmlspecialchars($args[1]);
    $q .= safe_sql_str(" where branch=!s", $args[1]);
}
else {
    //$branch = '';
}

$q .= " order by updated desc";

$res = $DB->query($q);

$i = 0;
$items = array();
while ($row = $DB->fetchRow($res)) {
    $file = new stdClass;
    $DB->loadFromDbRow($file, $res, $row);
    $items[] = array(
        'name' => $file->fname,
        'branch' => $file->branch,
        'releasedate' => $file->updated,
        'version' => $file->pversion,
        'releasenotes' => 'Size: ' . $file->filesize . " KB - Last 
build: " . date('Y-m-d H:i:s', $file->updated)
    );
    /// @todo move select limit from here unto query for bette resource 
usage
    if (++$i > 10) {
        break;
    }
}


// we do not use yet static files. It will be activated with the new 
backends.
// $file = dirname(__FILE__) . '/' .  $type . '_' . $argument . '.rss';
$file = false;
rss_create($items, $channel_title, $channel_description, $file);