FreeTDS Development Group

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

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.