QODBC-connection.pl

gistfile1.txt

!/usr/local/bin/perl

use strict;
use warnings;

 use DBI;
 use Crypt::IDEA

my $key= 'mykey';
my $host = "remote.mydomain.com";
my $port = "myport";
my $db = "DBI:ODBC:QBPOS";
my $user ='domain\username';
my $passwd="mypass";
my $dbh = DBI->connect("dbi:Proxy:cipher=IDEA;key=$key;hostname=$host;port=$port;dsn=$db",
                        undef, undef,  {PrintError => 0, RaiseError =>0});
if (!$dbh)
{
  print "$DBI::err\n$DBI::errstr\n$DBI::state";
}
else
{
  print "Database connected correctly\n";
$dbh->disconnect if ($dbh);
}