package Win32::ODBC;
use DBI;
$INC{'Win32/ODBC.pm'} = $INC{'Win32/DBIODBC.pm'} || 1;
sub new
{
shift;
my $connect_line= shift;
my $temp_connect_line;
$connect_line=~/DSN=\w+/;
$temp_connect_line="$&;";
if ($connect_line=~/UID=\w?/)
{$temp_connect_line.="$&;";}
else {$temp_connect_line.="UID=;";};
if ($connect_line=~/PWD=\w?/)
{$temp_connect_line.="$&;";}
else {$temp_connect_line.="PWD=;";};
$connect_line=$temp_connect_line;
my $self= {};
$_=$connect_line;
/^(DSN=)(.*)(;UID=)(.*)(;PWD=)(.*)(;)$/;
$self->{ODBC_DSN}=$2;
$self->{ODBC_UID}=$4;
$self->{ODBC_PWD}=$6;
$self->{DBI_DBNAME}=$self->{ODBC_DSN};
$self->{DBI_USER}=$self->{ODBC_UID};
$self->{DBI_PASSWORD}=$self->{ODBC_PWD};
$self->{DBI_DBD}='ODBC';
$self->{'DBI_DBH'}=DBI->connect($self->{'DBI_DBNAME'},
$self->{'DBI_USER'},$self->{'DBI_PASSWORD'},$self->{'DBI_DBD'});
warn "Error($DBI::err) : $DBI::errstr\n" if ! $self->{'DBI_DBH'};
bless $self;
}
sub Sql
{
my $self= shift;
my $SQL_statment=shift;
$self->{'DBI_SQL_STATMENT'}=$SQL_statment;
my $dbh=$self->{'DBI_DBH'};
my $sth=$dbh->prepare("$SQL_statment");
$self->{'DBI_STH'}=$sth;
if ($sth)
{
$sth->execute();
}
$self->{DBI_ERR}=$DBI::err;
$self->{DBI_ERRSTR}=$DBI::errstr;
if ($sth)
{
$self->{'DBI_NAME'} = $sth->{NAME};
}
return ($self->{'DBI_ERR'})?1:undef;
}
sub FetchRow
{
my $self= shift;
my $sth=$self->{'DBI_STH'};
if ($sth)
{
my @row=$sth->fetchrow_array;
$self->{'DBI_ROW'}=\@row;
if (scalar(@row)>0)
{
return 1;
}
}
return undef;
}
sub Data
{
my $self=shift;
my @array=@{$self->{'DBI_ROW'}};
foreach my $element (@array)
{
$element=~s/(\s*$)//;
};
return (wantarray())?@array:join('', @array);
};
sub DataHash
{
my $self= shift;
my $p_name=$self->{'DBI_NAME'};
my $p_row=$self->{'DBI_ROW'};
my @name=@$p_name;
my @row=@$p_row;
my %DataHash;
while (@name)
{
my $name=shift(@name);
my $value=shift(@row);
$name=~s/(\s*$)//;
$value=~s/(\s*$)//;
$DataHash{$name}=$value;
};
return %DataHash;
}
sub Error
{
my $self= shift;
if ($self->{'DBI_ERR'} ne '')
{
$self->{'DBI_ERRSTR'};
}
}
sub Close
{
my $self=shift;
my $dbh=$self->{'DBI_DBH'};
$dbh->disconnect;
}
1;
__END__
=head1 NAME
Win32::DBIODBC - Win32::ODBC emulation layer for the DBI
=head1 SYNOPSIS
use Win32::DBIODBC; # instead of use Win32::ODBC
=head1 DESCRIPTION
This is a I<very> basic I<very> alpha quality Win32::ODBC emulation
for the DBI. To use it just replace
use Win32::ODBC;
in your scripts with
use Win32::DBIODBC;
or, while experimenting, you can pre-load this module without changing your
scripts by doing
perl -MWin32::DBIODBC your_script_name
=head1 TO DO
Error handling is virtually non-existant.
=head1 AUTHOR
Tom Horen <tho@melexis.com>
=cut