#!/usr/local/bin/perl
# ==================================================================
# Gossamer Links - enhanced directory management system
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   CVS Info : 087,071,086,086,085      
#   Revision : $Id: page.cgi,v 1.39 2005/03/22 08:18:05 jagerman Exp $
#
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

use strict;
use lib '/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
use Links qw/$PLG $DB/;
use Links::User::Page;

local $SIG{__DIE__} = \&Links::fatal;

Links::init('/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');

#my $tab = $DB->table('Links');
#my $sth = $tab->do_query("SELECT * FROM gforum_Post where post_id=6489585");

#use Data::Dumper;print Dumper($sth->fetchrow)

use DBI;
my $dbh = DBI->connect("DBI:mysql:database=slowtwitch;host=192.168.1.10", "slowtwitch", "k9volqlAcpq", { mysql_enable_utf8  => 0});
my $sth = $dbh->prepare("SELECT post_message FROM gforum_Post where post_id=6489585");
$sth->execute();
use Data::Dumper;print Dumper($sth->fetchrow);