Skip to Content.
Sympa Menu

freetds - Re: DBD::Sybase and FreeTDS

freetds AT lists.ibiblio.org

Subject: FreeTDS Development Group

List archive

Chronological Thread  
  • From: "Kevin Wormington" <kworm AT sofnet.com>
  • To: "TDS Development Group" <freetds AT franklin.oit.unc.edu>
  • Subject: Re: DBD::Sybase and FreeTDS
  • Date: Tue, 28 Dec 1999 14:44:50 -0600


It only returns the server name and I modified your script to print the
value surrounded by '-' to make sure no other characters were returned and
it returned -THESERVERNAME- with no other characters. Also, I tried running
the perl code snippet outside of radiator using the new FreeTDS and it does
not return the ^@ garbage so there must be something strange that radiator
does. I found the following db settings done by radiator:

$self->{dbh}->{AutoCommit} = 1;
$self->{dbh}->{syb_flush_finish} = 1;

But they don't seem to make any difference.

Kevin
Sofnet, Inc.
-----Original Message-----
From: Brian Bruns <camber AT umcc.ais.org>
To: TDS Development Group <freetds AT franklin.oit.unc.edu>
Date: Tuesday, December 28, 1999 11:17 AM
Subject: [freetds] Re: DBD::Sybase and FreeTDS


>
>Hi, I'm unable to reproduce this. Can you run the following and tell me
>if you get a null at the end? (change the connect string as appropriate)
>
>Brian
>
>--------
>#!/usr/bin/perl
>use DBI;
>
>my $dbh = DBI->connect("dbi:Sybase:server=JDBC", "guest", "sybase",
> {PrintError => 0});
>
>my $q = "select \@\@servername";
>my $sth = $dbh->prepare($q);
>return undef unless $sth;
>$sth->execute;
>
>my $user;
>my $server;
>if ($server = $sth->fetchrow)
>{
>print "$server\n";
>$sth->finish;
>}
>-----------
>
>On Tue, 28 Dec 1999, Kevin Wormington wrote:
>
>> I originally posted the following before Christmas and didn't get any
>> responses, so I thought I would post again in case it wasn't seen.
>>
>> ----- Original Message -----
>> Hi,
>>
>> I have been using a 0.47 snapshot with DBD::Sybase-0:20 and 0:21 with
great
>> success going against MS-SQL 7 servers. I use it for radiator radius and
>> the only problem I have seen is a very slow memory leak, which is why I
>> thought I would try a later 0.50 snapshot. The snapshot will compile
fine
>> but the following select returns some strange characters keeping radiator
>> from operating correctly. Here is the perl snippet :
>>
>>
>> my $q = "select id, username, password, active, timeleft, blockuser
>> from customer where username='$name'";
>>
>> my $sth = $self->prepareAndExecute($q);
>> return undef unless $sth;
>>
>> my $user;
>> my ($cust_id, $username, $password, $active, $timeleft, $blockuser);
>> if (($cust_id, $username, $password, $active, $timeleft, $blockuser)
=
>> $sth->fetchrow)
>> {
>> $self->log($main::LOG_INFO,"$cust_id, $password, $username,
$timeleft,
>> $blockuser");
>> $sth->finish;
>> }
>>
>>
>> Here are the results of the above self->log printout:
>>
>> Thu Dec 23 17:48:03 1999: INFO: 1074, jaw^@, sdf^@, ,
>>
>>
>> As you can see there are "^@" after some fields. Any help would be
>> greatly appreciated. Also, I have tried it with tdsver=4.2 and 7.0 and
with
>> DBD::Sybase 0.20 and 0.21.
>>
>> Thanks,
>>
>> Kevin
>> Sofnet, Inc.
>>
>>
>>
>> ---
>> You are currently subscribed to freetds as: camber AT ais.org
>> To unsubscribe, forward this message to
$subst('Email.Unsub')
>>
>>
>
>
>---
>You are currently subscribed to freetds as: kworm AT sofnet.com
>To unsubscribe, forward this message to
$subst('Email.Unsub')
>
>





Archive powered by MHonArc 2.6.24.

Top of Page