FreeTDS Development Group

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

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