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>
  • Cc: <camber AT umcc.ais.org>
  • Subject: Re: DBD::Sybase and FreeTDS
  • Date: Tue, 28 Dec 1999 15:36:33 -0600


FYI, The old version (.47) produces the following results with your test
program:

0000000 4f53 4e46 3154 000a
S O F N T 1 \n \0
0000007


Kevin
-----Original Message-----
From: Kevin Wormington <kworm AT sofnet.com>
To: TDS Development Group <freetds AT franklin.oit.unc.edu>
Cc: camber AT umcc.ais.org <camber AT umcc.ais.org>
Date: Tuesday, December 28, 1999 3:26 PM
Subject: [freetds] Re: DBD::Sybase and FreeTDS


>I just discovered that if I pipe the output of your test program through
>less the ^@ does follow the system name, eg. SOFNT1^@. Here is the output
>piped through 'od -hc' which shows the null:
>
>0000000 4f53 4e46 3154 0a00
> S O F N T 1 \0 \n
>0000010
>
>So I guess the question is why does the newer versions add the null and how
>can I compensate for it?
>
>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')
>>
>>
>
>
>---
>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