Subversion Repositories DevTools

Rev

Rev 1038 | Rev 5923 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1038 Rev 5919
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright ( C ) 2006 ERG Limited, All rights reserved
 2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
3 
#
 3 
#
4 
# Module name   : jats.sh
 4 
# Module name   : jats.sh
5 
# Module type   : Makefile system
 5 
# Module type   : Makefile system
6 
# Compiler(s)   : n/a
 6 
# Compiler(s)   : n/a
7 
# Environment(s): jats
 7 
# Environment(s): jats
Line 131... Line 131...
131 
        #   Extract status and any error information
 131 
        #   Extract status and any error information
132 
        #
 132 
        #
133 
        my $fh = $self->{FH_READ};
 133 
        my $fh = $self->{FH_READ};
134 
        while ( <$fh> )
 134 
        while ( <$fh> )
135 
        {
 135 
        {
136 
            chomp;
 136 
            $_ =~ s~\s+$~~;
137 
            print "[DBI] Connect: $_\n" if $verbose;
 137 
            print "[DBI] Connect: $_\n" if $verbose;
138 
 
 138 
 
139 
            if ( m/^ConnectionOpened:/ )
 139 
            if ( m/^ConnectionOpened:/ )
140 
            {
 140 
            {
141 
                $self->{ERROR} = 0;
 141 
                $self->{ERROR} = 0;
Line 146... Line 146...
146 
            if ( m/^Error:(.*?)\s*$/ )
 146 
            if ( m/^Error:(.*?)\s*$/ )
147 
            {
 147 
            {
148 
                $errstr = $1;
 148 
                $errstr = $1;
149 
            }
 149 
            }
150 
 
 150 
 
- 
 
 151 
            if ( m/^Status:ConnectionClosed$/ )
- 
 
 152 
            {
- 
 
 153 
                $self->{PID} = 0;
- 
 
 154 
            }
151 
        }
 155 
        }
152 
    }
 156 
    }
153 
 
 157 
 
154 
    #
 158 
    #
155 
    #   Return class iff the connection has been established
 159 
    #   Return class iff the connection has been established