FreeTDS Development Group

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

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