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: Brian Bruns <camber AT umcc.ais.org>
  • To: TDS Development Group <freetds AT franklin.oit.unc.edu>
  • Subject: Re: DBD::Sybase and FreeTDS
  • Date: Tue, 28 Dec 1999 17:06:43 -0500 (EST)


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





Archive powered by MHonArc 2.6.24.

Top of Page