#!perl 
use strict;

use Win32::ODBC;
use Data::Dumper;

my $odbc=Win32::ODBC->new('Remedy ODBC Data Source') or die "Couldn't connect! $!";

my %sources=Win32::ODBC->DataSources ();
print Dumper(\%sources);
# $VAR1 = {};

my %drivers=Win32::ODBC->Drivers ();
print Dumper(\%drivers);
# This exists on the other hand... (large hash with details of available drivers)

my %funcs=$odbc->GetFunctions ();
print Dumper(\%funcs);
#  $VAR1 = {
#	  '0' => '0',
#	  '1' => '0'
#  };

print "Running SQL statement:\n";

# $odbc->Run( q(SELECT * FROM "SHR:PeopleGroup"));
#  Excecuting connection 1
#  sql statement: "SELECT * FROM "SHR:PeopleGroup""
#  Error: ""
#  --------------------
$odbc->Sql( q(SELECT * FROM "SHR:PeopleGroup"));

$odbc->DumpData ();
# Produces a Heading row including all headings in the SHR:PeopleGroup schema,
# but with *no* data: for example-
#   Full-Name  First-Name  Last-Name  ID  Phone
#   ---------  ----------  ---------  --  -----

while ($odbc->FetchRow) {
	print ".";
# Never gets here
	my %hash=$odbc->DataHash;
	print Dumper(\%hash);
}

print $odbc->TableList('','','','');
# print $odbc->TableList();
# print $odbc->TableList('','','','TABLE');
#  All do nothing

$odbc->ShutDown;
# gives no useful information

$odbc->Close;