#! /usr/bin/perl
use CGI qw(:standard);
use Pg;
$query = new CGI;
$dbmain = "ldp";
@row;
# Read parameters
$doc_id = param('doc_id');
print header(-expires=>'now');
$conn=Pg::connectdb("dbname=$dbmain");
die $conn->errorMessage unless PGRES_CONNECTION_OK eq $conn->status;
$result = $conn->exec("SELECT title, filename FROM document WHERE doc_id = $doc_id");
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
@row = $result->fetchrow;
$title = $row[0];
$title =~ s/\s+$//;
$filename = $row[1];
print "$title Wiki";
print "";
print "";
print "";
print "$title Wiki
\n";
print "Index ";
print "Documents ";
print "Topics ";
print "Maintainers ";
print "Editors ";
print "Statistics ";
print "Help ";
print "
";
print "Meta-Data\n";
print " | ";
print "Edit\n";
print "
\n";
print "| Revision | Saved | Comment | User |
|---|
\n";
$result = $conn->exec("SELECT revision, date_entered, wiki, notes, username FROM document_wiki WHERE doc_id = $doc_id ORDER BY revision DESC LIMIT 10, 0");
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
while (@row = $result->fetchrow) {
$revision = $row[0];
$date_entered = $row[1];
$wiki = $row[2];
$wiki =~ s/\s+$//;
$notes = $row[3];
$username = $row[4];
print "| $revision | \n";
print "$date_entered | \n";
print "$notes | \n";
print "$username |
\n";
}
print "
\n";
print end_html;