Bookmarks

Yahoo Gmail Google Facebook Delicious Twitter Reddit Stumpleupon Myspace Digg

Search queries

wwwxxxAPC, How to unsubscrube from dategen spam, WWWXXXAPC, docmd.close 2585, WWWXXXDOCO, nu vot, dhcpd lease file "binding state", WWWXXXDOCO, how to setup procmail to process html2text, how to setup procmail html2text

Links

XODOX
Impressum

#1: FW: Lost the capacity to get paramters

Posted on 2008-04-20 15:52:28 by venefax

------=_NextPart_000_01B6_01C8A2CC.3F4E66F0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

Subject: Lost the capacity to get paramters



I installed a new machine with CENTOS 5 64 Bits and DBI 1.604, later svn,
DBD-Sybase 1.08, I execute this perl script



#!/usr/bin/perl

use strict;

use DBI;

my $server = "";

my $db = "minixel";

my $username = "sa";

my $password = "";



my $dbh = DBI->connect("dbi:Sybase:lucidux:1433", 'user', 'password',
{PrintError => 0});

die "Unable for connect to server $DBI::errstr"

unless $dbh;

$dbh->do("use $db");

my $query = "declare \@sessionid varchar(64), \@IPAddress varchar(40) ,
\@ReceivedNumber varchar(30) , \@ANI varchar(20) , \@protocol int ,
\@timeout int

select \@sessionid = '1120019620.8', \@IPAddress = '', \@ReceivedNumber =
'17274907253', \@ANI = '16463835040', \@protocol = 1, \@timeout = 0 exec

SoftRoutingQ \@sessionid , \@IPAddress OUTPUT, \@ReceivedNumber OUTPUT,
\@ANI OUTPUT , \@protocol OUTPUT, \@timeout OUTPUT";

my $sth = $dbh->prepare($query);

$sth->execute();

do {

while(my $dat = $sth->fetch) {

print "TYPE $sth->{syb_result_type}\n";

print "Data @$dat[0] , @$dat[1] , @$dat[2] \n";

if($sth->{syb_result_type} == 4042) { # it's a PARAM result

print "Number: $dat->[0] \n";

print "Varpar: $dat->[1] \n";

}

}

} while($sth->{syb_more_results});

$sth=undef;

$dbh->disconnect;



The only thing that I don't get back are the 4042 type results (parameter
values). What is happening? Is it DBD or DBI or Perl? What are the steps to
troubleshoot this? I can test the same script from another machine with
identical software 64 Bits and it works. What can be different in a machine
to crate this issue?? I even yum-erased perl* and reinstalled perl, to no
avail.

Thanks in advance

Philip Orleans






------=_NextPart_000_01B6_01C8A2CC.3F4E66F0--

Report this message