#!/usr/bin/perl -w # --------------------------------------------- # Search 'tags I use' descriptions # description.cgi?key=...&value=... # --------------------------------------------- use CGI; $c = CGI->new; use DBI; $dbh=DBI->connect('DBI:Pg:dbname=tags','','', { RaiseError =>1 } ); # ----- Page start print "Content-type: text/html\n\n"; # ----- Fetch and output matches $i=0; $query=$dbh->prepare("SELECT key,value,wikiuser,c.osmuser,comment,age(date_trunc('week',NOW()),date_trunc('week',signup)) FROM comments c LEFT JOIN userdates u ON c.osmuser=u.osmuser WHERE key=? AND (value=? OR value='*') ORDER BY signup"); $query->execute($c->param('key'),$c->param('value')); while (($key,$value,$wikiuser,$osmuser,$comment,$time)=$query->fetchrow_array()) { if ($osmuser) { print "
(Description for all values of $key)
\n"; } print "$comment\nNo results found.
"; }