#!/usr/bin/perl -w

use Pg;


my $conn;
#DB_Open(\$conn, "dbname=adrema");
#$conn = Pg::connectdb("dbname=adrema");
$conn = PQsetdb('','','','','adrema');

my $filename = 'test.dat';
my $oid;
#$oid = $conn->lo_import($filename);
#$oid = PQlo_import($conn, $filename);

$oid = PQlo_creat($conn, PGRES_INV_WRITE);
print "db_test: lo_creat: oid: $oid\n"; 
#print $conn->errorMessage;

my $fd;
$fd  = PQlo_open($conn, $oid, PGRES_INV_WRITE);
print "db_test: lo_open: fd: $fd\n"; 
#print $conn->errorMessage;

PQfinish($conn);