FreeTDS Development Group

[Brian Bruns <camber AT umcc.ais.org>]

Ok, I can reproduce it now...let me see what is going on.

Brian

On Tue, 28 Dec 1999, Kevin Wormington wrote:

> 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')
> >
> >
> 
> 
> ---
> You are currently subscribed to freetds as: camber AT ais.org
> To unsubscribe, forward this message to $subst('Email.Unsub')
> 
>