FreeTDS Development Group

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

No, I just added it for debugging purposes, the print that's commented out
displayed the same results and when linked against tds 0.47 both display the
correct data without ^@.

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 2:47 PM
Subject: [freetds] Re: DBD::Sybase and FreeTDS


>How about the $self->log routine that is being called? Does it do anything
>special?
>
>Brian
>
>On Tue, 28 Dec 1999, Kevin Wormington wrote:
>
>> 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')
>> >
>> >
>>
>>
>> ---
>> 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')
>
>