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 15:47:09 -0500 (EST)


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





Archive powered by MHonArc 2.6.24.

Top of Page