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