FreeTDS Development Group

["Kevin Wormington" <kworm AT sofnet.com>]

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')
>
>