#!/usr/bin/perl

use lib '/opt/tnt/lib';
use tntdb;
use tntutil;

$dbconf = new TNTdbFile;

my($dbh) = getDatabaseConnection($dbconf->get("PTBASE"),
				$dbconf->get("PGHOST"),
				$dbconf->get("PGPORT"),
				$dbconf->get("DBUSER"),
				$dbconf->get("DBPASS"),
                        { PrintError => 1 });

my($values_ref) = $dbh->selectrow_arrayref("select activationkey from tnt_config.portalbase");

print STDOUT $$values_ref[0];

$dbh->disconnect;
