WebSVN – DevTools – Diff – /core_devl/branches/gitBuilder/UTILS/DBI-JDBC/src/DBI.pm



sub execute
{
    my $self = shift;
    my @args = @_;
    my @rows;
    my @colData;
 
    my $statement = $self->{STATEMENT};
 
 
    #

    $self->{ERROR} = 1;
    my $fhr = $self->{CONNECTION}{FH_READ};
    while ( <$fhr> )
    {
        chomp;
 
        if ( m/Data:(.*)/ )
        {
            push @rows, $1;
            print "[DBI] Execute: $_\n" if $verbose > 2;
        }
        else
        {
            print "[DBI] Execute: $_\n" if $verbose;
        }
        
        if (m~^Info:ColumnInfo:(\d+):(.*)~) {
            my $data = $2;
            $data =~ s~\s+$~~;
            push @colData, $data;
        }
 
        if ( m/^DataStart:/ )
        {
            $self->{ERROR} = 0;
        }

        }
 
    }
 
    $self->{ROWS} = \@rows;
    $self->{COLDATA} = \@colData;
 
    return ! $self->{ERROR};
}
 
#-------------------------------------------------------------------------------

#
sub fetchrow_array
{
    my $self = shift;
    my $rowref = $self->{ROWS};
    my $data = shift @$rowref;
 
    return () unless ( $data );
    $data =~ s~\s+$~~;
 
    my @row;

    $self->{ROWS_READ}++;
    return @row;
}
 
#-------------------------------------------------------------------------------
# Function        : fetch_columndata
#
# Description     : NonStandard function
#                   Fetch array of colum names
#
# Inputs          : None 
#
# Returns         : An array of column data
#                   :Sep data of Name:Size:Type
#
sub fetch_columndata
{
    my $self = shift;
    return $self->{COLDATA};
}
 
#-------------------------------------------------------------------------------
# Function        : finish
#
# Description     : Finish the 'execute'
#
# Inputs          : None

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`

Subversion Repositories DevTools

(root)/core_devl/branches/gitBuilder/UTILS/DBI-JDBC/src/DBI.pm – Rev 7299 → 7323