LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

utility to pull wiki text from database into standard output

This commit is contained in:
david 2002-01-24 03:26:03 +00:00
parent 594014afc2
commit 773b0642e1
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
LDP/database/ldp-wiki.pl Executable file
View File

@ -0,0 +1,20 @@
#! /usr/bin/perl
use Pg;
$dbmain = "ldp";
@row;
# Read parameters
$doc_id = $ARGV[0];
$conn=Pg::connectdb("dbname=$dbmain");
die $conn->errorMessage unless PGRES_CONNECTION_OK eq $conn->status;
$result = $conn->exec("SELECT wiki FROM document_wiki WHERE doc_id = $doc_id ORDER BY revision DESC LIMIT 1, 0");
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
@row = $result->fetchrow;
$wiki = $row[0];
$wiki =~ s/\s+$//;
print $wiki;