/usr/share/doc/libdbd-odbc-perl/examples/enable_odbc_tracing.pl is in libdbd-odbc-perl 1.45-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #!/usr/bin/perl
# $Id$
# Shows how to enable ODBC API tracing for this Perl script.
# NOTE: the ODBC Driver manager does the actual tracing
use strict;
use warnings;
use DBI;
my $h = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
{odbc_trace_file => 'c:\users\martin\odbc.trc',
odbc_trace => 1});
print "trace is ", $h->{odbc_trace}, ", ", $h->{odbc_trace_file}, "\n";
my $s = $h->prepare('select 1');
$s->execute;
$h->{odbc_trace} = 0;
print "trace is ", $h->{odbc_trace}, "\n";
$s->fetch;
$s->fetch;
$h->{odbc_trace} = 1;
print "trace is ", $h->{odbc_trace}, "\n";
$h->disconnect;
|