news.php

   1 <?php
   2 /* Copyright (c) 2009 Arnaud Renevier, Inc, published under the modified BSD
   3    license. */
   4
   5 require_once ("./inc/settings.php");
   6 require_once ("./inc/db/mysql.php");
   7 require_once ("./inc/utils.php");
   8
   9 header ("Content-type: application/atom+xml; charset=UTF-8");
  10 header("Cache-control: no-cache");
  11
  12 function date3339 ($feature) {
  13     $date = date ('Y-m-d\TH:i:s', $feature->date);
  14
  15     $matches = array();
  16     if (preg_match ('/^([\-+])(\d{2})(\d{2})$/',
  17                     date ('O', $feature->date), $matches)) {
  18         $date .= $matches [1] . $matches [2] . ':' . $matches [3];
  19     } else {
  20         $date .= 'Z';
  21     }
  22     return $date;
  23 }
  24
  25 // method from http://diveintomark.org/archives/2004/05/28/howto-atom-id#other
  26 function unique_id_from_feature ($feature) {
  27     $date = date('Y-m-d', $feature->date);
  28     $res = sprintf("tag:%s,%s:%d", gethost(), $date, $feature->id);
  29     return $res;
  30 }
  31
  32 function unique_id_from_site () {
  33     $id = md5 (full_url_from_path (""));
  34     $res = sprintf("tag:%s,1970-01-01:%d", gethost, $id);
  35     return $res;
  36 }
  37
  38 function main ($features) {
  39     printf ("<?xml version=\"1.0\" encoding=\"utf-8\"?>
  40 <feed xmlns=\"http://www.w3.org/2005/Atom\"
  41       xmlns:georss=\"http://www.georss.org/georss\">\n");
  42
  43     printf("  <link rel=\"alternate\" type=\"text/html\" href=\"%s\"/>\n",
  44             full_url_from_path (""));
  45     printf("  <link rel=\"self\" href=\"%s\" type=\"application/atom+xml\"/>\n",
  46             full_url_from_path (basename ($_SERVER ["PHP_SELF"])));
  47     printf("  <id>%s</id>\n", unique_id_from_site());
  48
  49     if (count ($features) > 0) {
  50         printf("  <updated>%s</updated>\n", date3339 ($features[0]));
  51     }
  52
  53     if (SITETITLE) {
  54         printf ("  <title>%s</title>\n", SITETITLE);
  55     }
  56
  57     if (WEBMASTERMAIL) {
  58         printf ("  <author>\n");
  59         printf ("    <email>%s</email>\n", WEBMASTERMAIL);
  60         printf("   </author>\n");
  61     }
  62
  63     printf ("\n");
  64
  65     foreach ($features as $feature) {
  66         printf ("    <entry>\n");
  67
  68         if ($feature->title) {
  69             $title = htmlspecialchars ($feature->title, ENT_QUOTES);
  70         } else {
  71             $title = $feature->id;
  72         }
  73         printf ("      <title>%s</title>\n", $title);
  74
  75         $rel_url = sprintf ("index.php?lat=%.18F&lon=%.18F&zoom=12",
  76                                          $feature->lat, $feature->lon);
  77         $link = htmlspecialchars (full_url_from_path ($rel_url), ENT_QUOTES);
  78         printf ("      <link rel=\"alternate\" type=\"text/html\" href=\"%s\"/>\n", $link);
  79
  80         printf ("      <id>%s</id>\n", unique_id_from_feature ($feature));
  81
  82         printf ("      <updated>%s</updated>\n", date3339 ($feature));
  83
  84         if ($feature->description) {
  85             $contentHTML = sprintf ("<p>%s</p>", htmlspecialchars ($feature->description, ENT_QUOTES));
  86         } else {
  87             $contentHTML = sprintf ("<p>%s</p>", htmlspecialchars ($feature->title, ENT_QUOTES));
  88         }
  89
  90         // FIXME: we consider thumbnail are correctly sized if gd library is
  91         // installed. That may not always be true. For example if gd was installed
  92         // after images were initially uploaded.
  93         if (function_exists ("imagecreatefromjpeg")) {
  94             if ($feature->imgpath) {
  95                 $imgurl = image_url_from_imgpath ($feature->imgpath);
  96                 $thumburl = thumb_url_from_imgpath ($feature->imgpath);
  97                 $contentHTML .= sprintf ('<a href="%s"><img alt="%s" src="%s"></a>', $imgurl, $alt, $thumburl);
  98             }
  99         }
 100
 101         if (strlen ($contentHTML) != 0) {
 102             printf ("       <content type=\"html\">
 103                 %s
 104        </content>\n", htmlspecialchars ($contentHTML));
 105         }
 106
 107         printf("      <georss:point>%.18F %.18F</georss:point>\n",
 108                     $feature->lat, $feature->lon);
 109
 110         printf("    </entry>\n\n");
 111     }
 112     printf ("</feed>");
 113 }
 114
 115 try {
 116     $connection->connect (DBHOST, DBUSER, DBPWD, DBNAME, DBPREFIX);
 117     $features = $connection->mostrecentfeatures (10);
 118 } catch (Exception $e) {
 119     exit ("server error");
 120 }
 121 main ($features);
 122 ?>