Update of /cvsroot/fink/web/pdb
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv30717
Modified Files:
package.php
Log Message:
set cache hint for squid
Index: package.php
===================================================================
RCS file: /cvsroot/fink/web/pdb/package.php,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- package.php 5 Dec 2007 19:59:24 -0000 1.53
+++ package.php 5 Dec 2007 20:47:52 -0000 1.54
@@ -4,11 +4,34 @@
$cvs_date = '$Date$';
$uses_pathinfo = 1;
-include_once "header.inc";
include_once "memcache.inc";
include_once "functions.inc";
include_once "releases.inc";
-$package = $pispec;
+
+$package = basename($HTTP_SERVER_VARS["PATH_INFO"]);
+
+$last_modified = memcache_get_key('pdb-last-modified-' . $package);
+if (!$last_modified) {
+ $q = new SolrQuery();
+ $q->addField("infofilechanged");
+ $q->addSort("infofilechanged desc");
+ $q->addSort("rel_id desc");
+ $q->addSort("pkg_id desc");
+ $q->addQuery("name_e:\"$package\"", true);
+ $q->setRows(1);
+ $q->setRaw(true);
+ $r = $q->fetch();
+ if ($r != null && $r->response->numFound >0) {
+ $date = $r->response->docs[0]->infofilechanged;
+ $last_modified = date_create($date)->format('D, d M Y H:i:s') .
' GMT';
+ memcache_set_key('pdb-last-modified-' . $package,
$last_modified);
+ } else {
+ $last_modified = gmtime(', d M Y H:i:s') . ' GMT';
+ }
+}
+header("Last-Modified: $last_modified");
+
+include_once "header.inc";
// Get url parameters
list($version, $inv_p) = get_safe_param('version', '/^[0-9\-.:]+$/');
-------------------------------------------------------------------------
SF.Net email is sponsored by: The Future of Linux Business White Paper
from Novell. From the desktop to the data center, Linux is going
mainstream. Let it simplify your IT future.
http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
