Subversion Repositories DevTools

Rev

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

Rev 7326 Rev 7447
Line 86... Line 86...
86 
    #
 86 
    #
87 
    if ( $url_convert{$self->{DB}} )
 87 
    if ( $url_convert{$self->{DB}} )
88 
    {
 88 
    {
89 
        my $var = $url_convert{$self->{DB}};
 89 
        my $var = $url_convert{$self->{DB}};
90 
        my $value = $ENV{$var};
 90 
        my $value = $ENV{$var};
- 
 
 91 
        unless ($value) {
91 
        Error ("Cannot convert old DB value to new form",
 92 
            print "[DBI] Cannot convert old DB value to new form",
92 
               "User requested: " . $self->{DB},
 93 
                   "\nUser requested: " . $self->{DB},
93 
               "Need Environment Variable: $var" ) unless ($value);
 94 
                   "\nNeed Environment Variable: $var";
- 
 
 95 
            exit 1;
- 
 
 96 
        }
94 
 
 97 
 
95 
        print "[DBI] Converting DB to URL: " . $self->{DB} ." to $value\n"
 98 
        print "[DBI] Converting DB to URL: " . $self->{DB} ." to $value\n"
96 
            if $verbose > 1;
 99 
            if $verbose > 1;
97 
        $self->{DB} = $value;
 100 
        $self->{DB} = $value;
98 
    }
 101 
    }
Line 143... Line 146...
143 
    push @cmd, $full_app;
 146 
    push @cmd, $full_app;
144 
    push @cmd, $self->{DB};
 147 
    push @cmd, $self->{DB};
145 
    push @cmd, $self->{USER};
 148 
    push @cmd, $self->{USER};
146 
    push @cmd, $self->{PASSWORD};
 149 
    push @cmd, $self->{PASSWORD};
147 
 
 150 
 
- 
 
 151 
    print "[DBI] Command: @cmd"
- 
 
 152 
        if $verbose > 1;
- 
 
 153 
 
148 
    $self->{PID} = IPC::Open2::open2($self->{FH_READ}, $self->{FH_WRITE}, @cmd );
 154 
    $self->{PID} = IPC::Open2::open2($self->{FH_READ}, $self->{FH_WRITE}, @cmd );
149 
 
 155 
 
150 
    $self->{ERROR} = 1;
 156 
    $self->{ERROR} = 1;
151 
    $errstr = "Failed to start server app";
 157 
    $errstr = "Failed to start server app";
152 
    if ( $self->{PID} )
 158 
    if ( $self->{PID} )