Subversion Repositories DevTools

Rev

Rev 7299 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7299 Rev 7323
Line 350... Line 350...
350
sub execute
350
sub execute
351
{
351
{
352
    my $self = shift;
352
    my $self = shift;
353
    my @args = @_;
353
    my @args = @_;
354
    my @rows;
354
    my @rows;
-
 
355
    my @colData;
355
 
356
 
356
    my $statement = $self->{STATEMENT};
357
    my $statement = $self->{STATEMENT};
357
 
358
 
358
 
359
 
359
    #
360
    #
Line 386... Line 387...
386
    $self->{ERROR} = 1;
387
    $self->{ERROR} = 1;
387
    my $fhr = $self->{CONNECTION}{FH_READ};
388
    my $fhr = $self->{CONNECTION}{FH_READ};
388
    while ( <$fhr> )
389
    while ( <$fhr> )
389
    {
390
    {
390
        chomp;
391
        chomp;
391
 
-
 
392
        if ( m/Data:(.*)/ )
392
        if ( m/Data:(.*)/ )
393
        {
393
        {
394
            push @rows, $1;
394
            push @rows, $1;
395
            print "[DBI] Execute: $_\n" if $verbose > 2;
395
            print "[DBI] Execute: $_\n" if $verbose > 2;
396
        }
396
        }
397
        else
397
        else
398
        {
398
        {
399
            print "[DBI] Execute: $_\n" if $verbose;
399
            print "[DBI] Execute: $_\n" if $verbose;
400
        }
400
        }
401
        
401
        
-
 
402
        if (m~^Info:ColumnInfo:(\d+):(.*)~) {
-
 
403
            my $data = $2;
-
 
404
            $data =~ s~\s+$~~;
-
 
405
            push @colData, $data;
-
 
406
        }
402
 
407
 
403
        if ( m/^DataStart:/ )
408
        if ( m/^DataStart:/ )
404
        {
409
        {
405
            $self->{ERROR} = 0;
410
            $self->{ERROR} = 0;
406
        }
411
        }
Line 417... Line 422...
417
        }
422
        }
418
 
423
 
419
    }
424
    }
420
 
425
 
421
    $self->{ROWS} = \@rows;
426
    $self->{ROWS} = \@rows;
-
 
427
    $self->{COLDATA} = \@colData;
422
 
428
 
423
    return ! $self->{ERROR};
429
    return ! $self->{ERROR};
424
}
430
}
425
 
431
 
426
#-------------------------------------------------------------------------------
432
#-------------------------------------------------------------------------------
Line 467... Line 473...
467
#
473
#
468
sub fetchrow_array
474
sub fetchrow_array
469
{
475
{
470
    my $self = shift;
476
    my $self = shift;
471
    my $rowref = $self->{ROWS};
477
    my $rowref = $self->{ROWS};
472
    my $data = pop @$rowref;
478
    my $data = shift @$rowref;
473
 
479
 
474
    return () unless ( $data );
480
    return () unless ( $data );
475
    $data =~ s~\s+$~~;
481
    $data =~ s~\s+$~~;
476
 
482
 
477
    my @row;
483
    my @row;
Line 485... Line 491...
485
    $self->{ROWS_READ}++;
491
    $self->{ROWS_READ}++;
486
    return @row;
492
    return @row;
487
}
493
}
488
 
494
 
489
#-------------------------------------------------------------------------------
495
#-------------------------------------------------------------------------------
-
 
496
# Function        : fetch_columndata
-
 
497
#
-
 
498
# Description     : NonStandard function
-
 
499
#                   Fetch array of colum names
-
 
500
#
-
 
501
# Inputs          : None 
-
 
502
#
-
 
503
# Returns         : An array of column data
-
 
504
#                   :Sep data of Name:Size:Type
-
 
505
#
-
 
506
sub fetch_columndata
-
 
507
{
-
 
508
    my $self = shift;
-
 
509
    return $self->{COLDATA};
-
 
510
}
-
 
511
 
-
 
512
#-------------------------------------------------------------------------------
490
# Function        : finish
513
# Function        : finish
491
#
514
#
492
# Description     : Finish the 'execute'
515
# Description     : Finish the 'execute'
493
#
516
#
494
# Inputs          : None
517
# Inputs          : None