head	1.8;
access;
symbols;
locks; strict;
comment	@# @;


1.8
date	2007.06.21.08.41.52;	author openpkg;	state Exp;
branches;
next	1.7;
commitid	E3ALEgDFkYfc0Lms;

1.7
date	2006.03.28.15.44.03;	author rse;	state Exp;
branches;
next	1.6;
commitid	jbGbYLBHMIiPNXqr;

1.6
date	2006.03.15.18.53.52;	author rse;	state Exp;
branches;
next	1.5;
commitid	PcwUBjGrQ7zRgjpr;

1.5
date	2006.03.14.17.00.41;	author rse;	state Exp;
branches;
next	1.4;
commitid	novA3CyEjNP0Gapr;

1.4
date	2006.03.13.22.26.39;	author rse;	state Exp;
branches;
next	1.3;
commitid	RGMhn6JS0LkQv4pr;

1.3
date	2006.03.13.19.43.58;	author rse;	state Exp;
branches;
next	1.2;
commitid	9U8WMJeK3r12C3pr;

1.2
date	2006.03.12.17.49.03;	author rse;	state Exp;
branches;
next	1.1;
commitid	COXiR686EKuB0Vor;

1.1
date	2006.03.12.17.44.52;	author rse;	state Exp;
branches;
next	;
commitid	LbPKbzk76blaZUor;


desc
@@


1.8
log
@flush and save current state of CVS controlled data
@
text
@<script language="php">
##
##  Copyright (c) 2005-2006 OpenPKG Foundation e.V. <http://openpkg.net/>
##  Copyright (c) 2005-2006 Ralf S. Engelschall <http://engelschall.com/>
##
##  Permission to use, copy, modify, and distribute this software for
##  any purpose with or without fee is hereby granted, provided that
##  the above copyright notice and this permission notice appear in all
##  copies.
##
##  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
##  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
##  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
##  IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
##  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
##  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
##  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
##  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
##  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
##  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
##  OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
##  SUCH DAMAGE.
##
##  meta.php: meta consumer glue code (version: 1.0 2006-03-14)
##

#   configuration
$my = array(
    "canvas_url" => "http://meta.openpkg.org/canvas.php",
    "base_dir"   => null,
);

#   determine path to _this_ script
if (is_null($my["base_dir"])) {
    $my["base_dir"] = $_SERVER["SCRIPT_FILENAME"];
    while ($my["base_dir"] = preg_replace('/\/?[^\/]+$/', '', $my["base_dir"])) {
        if (file_exists($my["base_dir"]."/meta.php"))
            break;
    }
}

#   diversion support
$div = array();
$div["name"] = "";
$div["data"] = array();
function divert_start ($name) {
    global $div;
    $div["name"] = $name;
    if (!isset($div["data"][$diversion_name])) {
        $div["data"][$diversion_name] = "";
    }
    ob_start();
}
function divert_end () {
    global $div;
    if ($div["name"] != "") {
        $div["data"][$div["name"]] .= ob_get_contents();
        ob_end_clean();
    }
}
function divert ($name) {
    global $div;
    if ($div["name"] != $name) {
        divert_end();
        divert_start($name);
    }
}
function undivert ($name) {
    global $div;
    if ($div["name"] == $name) {
        $div["data"][$div["name"]] .= ob_get_contents();
        ob_clean();
    }
    return $div["data"][$name];
}

#   scramble an email address/link somewhat to prevent
#   trivial address crawlers from picking it up
function email ($url, $link) {
    $html = $url;
    $html = preg_replace('/@@/',  '<!-- XXX -->&#64;<!-- XXX -->', $html);
    $html = preg_replace('/\./', '<!-- XXX -->&#46;<!-- XXX -->', $html);
    if ($link) {
        $href = $url;
        $href = preg_replace('/@@/', '&#64;', $href);
        $href = preg_replace('/\./', '&#46;', $href);
        $html = "<a href=\"mailto:$href\">$html</a>";
    }
    echo $html;
}

#   URL fetching with local caching
function fetch_url($url, $max_caching) {
    global $my;
    $content = null;

    #   try to read content from cache
    $dba = null;
    if (file_exists($my["base_dir"] . "/meta.d"))
        $dba = dba_open($my["base_dir"] . "/meta.d/meta.db", "c", "db4");
    if (!is_null($dba)) {
        $obj = dba_fetch($url, $dba);
        if ($obj) {
            $obj = unserialize($obj);
            if (is_array($obj)) {
                if ($obj["expiry"] > time())
                    $content = $obj["content"];
            }
        }
    }
    if (is_null($content)) {
        #   content not found in cache, so fetch from origin server
        $curl = curl_init();
        curl_setopt($curl, CURLOPT_URL, $url);
        curl_setopt($curl, CURLOPT_FOLLOWLOCATION, 0);
        curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
        if ($_SERVER["ASE_CERT"] != "")
            curl_setopt($curl, CURLOPT_COOKIE, "ASE-CERT=" . $_SERVER["ASE_CERT"]);
        $content = curl_exec($curl);
        if (curl_errno($curl))
            $content = "<html>\n" .
                       "  <head>\n" .
                       "    <!-- CANVAS: HEAD -->\n" .
                       "  </head>\n" .
                       "  <body>\n" .
                       "    <!-- ERROR: cURL: " . curl_error($curl) . " -->\n" .
                       "    <!-- CANVAS: BODY -->\n" .
                       "  </body>\n" .
                       "</html>\n";
        curl_close($curl);

        #   store content into cache
        if (!is_null($dba)) {
            $obj = array("content" => $content, "expiry" => time() + $max_caching);
            $obj = serialize($obj);
            dba_replace($url, $obj, $dba);
        }
    }
    if (!is_null($dba))
        dba_close($dba);

    #   return content
    return $content;
}

#   meta template support
$html = "";
function meta_start ($options) {
    global $html;
    global $my;

    #   fetch meta HTML template
    $url = $my["canvas_url"] . "?$options";
    $html = fetch_url($url, 10);

    #   by default divert into body
    divert("body");
}
function meta_end () {
    global $html;
    
    #   the insertion tags in the generated canvas
    $tag_head = "<!-- CANVAS: HEAD -->";
    $tag_body = "<!-- CANVAS: BODY -->";
    $tag_side = "<!-- CANVAS: SIDE -->";

    #   assemble content parts
    $body = undivert("body");
    $head = "";
    $side = "";
    if (preg_match('/<head>(.*?)<\/head>/si', $body, $match)) {
        $body = preg_replace('/<head>.*?<\/head>/si', '', $body);
        $head = $match[1]; 
    }
    if (preg_match('/<side>(.*?)<\/side>/si', $body, $match)) {
        $body = preg_replace('/<side>.*?<\/side>/si', '', $body);
        $side = $match[1];
    }

    #   insert content parts into canvas
    $html = preg_replace('/('.$tag_body.')/si', "$1$body", $html);
    $html = preg_replace('/('.$tag_head.')/si', "$1$head", $html);
    $html = preg_replace('/('.$tag_side.')/si', "$1$side", $html);

    #   content post-processing
    $html = preg_replace('/(\d)x(\d)/si',    '$1&times;$2', $html);
    $html = preg_replace('/(\s+)--(\s+)/si', '$1&mdash;$2', $html);
    $html = preg_replace('/(\s+)-(\s+)/si',  '$1&ndash;$2', $html);
    $html = preg_replace('/\(TM\)/si',       '&trade;',     $html);
    $html = preg_replace('/\(R\)/si',        '&reg;',       $html);
    $html = preg_replace('/\(C\)/si',        '&copy;',      $html);
    $html = preg_replace('/\.\.\./si',       '&#8230;',     $html);

    #   determine content length and output content
    header(sprintf("Content-Length: %d", strlen($html)));
    print $html;
}

</script>
@


1.7
log
@fix links; use mdash entity
@
text
@d117 2
d186 1
d188 5
@


1.6
log
@provide a typographically correct em-dash
@
text
@d184 1
a184 1
    $html = preg_replace('/(\s+)--(\s+)/si', '$1&#8212;$2', $html);
@


1.5
log
@many cleanups and more documentation
@
text
@d183 3
@


1.4
log
@fix URLs
@
text
@d24 1
a24 1
##  meta.php: meta consumer glue code
d27 15
d94 1
d98 3
a100 1
    $dba = dba_open("meta.d/meta.db", "c", "db4");
d148 1
d151 1
a151 4
    $options .= "&canvas=absolute";
    if (preg_match("/MSIE/", $_SERVER["HTTP_USER_AGENT"]))
        $options .= "&embed=js";
    $url = "http://meta.openpkg.org/?$options";
d155 1
a155 1
    divert("html:body");
d160 1
a160 5
    #   flush buffers
    divert_end();

    #   assemble content by inserting head and body into template
    $content = "";
d163 19
a181 9
    $n = strpos($html, $tag_head);
    $content .= substr($html, 0, $n);
    $html = substr($html, $n+strlen($tag_head));
    $content .= undivert("html:head");
    $n = strpos($html, $tag_body);
    $content .= substr($html, 0, $n);
    $html = substr($html, $n+strlen($tag_body));
    $content .= undivert("html:body");
    $content .= $html;
d184 2
a185 2
    header(sprintf("Content-Length: %d", strlen($content)));
    print $content;
@


1.3
log
@ops, there is no argument to meta_end() function
@
text
@d135 1
a135 2
    # $url = "http://meta.openpkg.org/?$options";
    $url = "http://en1.home.engelschall.com/openpkg-meta/?$options";
@


1.2
log
@more comments for glue code and a fallback HTML page
@
text
@d142 1
a142 1
function meta_end ($option) {
@


1.1
log
@add a sample consumer page (sample.php) and the consumer glue code (meta.php)
@
text
@d2 24
d77 1
a77 1
#   URL fetching
d101 9
a109 1
            $content = "cURL" . curl_error($curl);
d166 1
@