Subversion Repositories DevTools

Rev

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

Rev 391 Rev 392
Line 156... Line 156...
156
        #   Extract status and any error information
156
        #   Extract status and any error information
157
        #
157
        #
158
        my $fh = $self->{FH_READ};
158
        my $fh = $self->{FH_READ};
159
        while ( <$fh> )
159
        while ( <$fh> )
160
        {
160
        {
161
            chomp;
161
            $_ =~ s~\s+$~~;
162
            print "[DBI] Connect: $_\n" if $verbose;
162
            print "[DBI] Connect: $_\n" if $verbose;
163
 
163
 
164
            if ( m/^ConnectionOpened:/ )
164
            if ( m/^ConnectionOpened:/ )
165
            {
165
            {
166
                $self->{ERROR} = 0;
166
                $self->{ERROR} = 0;
Line 171... Line 171...
171
            if ( m/^Error:(.*?)\s*$/ )
171
            if ( m/^Error:(.*?)\s*$/ )
172
            {
172
            {
173
                $errstr = $1;
173
                $errstr = $1;
174
            }
174
            }
175
 
175
 
-
 
176
            if ( m/^Status:ConnectionClosed$/ )
-
 
177
            {
-
 
178
                $self->{PID} = 0;
-
 
179
            }
176
        }
180
        }
177
    }
181
    }
178
 
182
 
179
    #
183
    #
180
    #   Return class iff the connection has been established
184
    #   Return class iff the connection has been established