Subversion Repositories DevTools

Rev

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

Rev 4545 Rev 5637
Line 42... Line 42...
42 
 
 42 
 
43 
#
 43 
#
44 
#   The following hash simplifies existing code
 44 
#   The following hash simplifies existing code
45 
#   in that it will convert known DBI:ODBC called to a more raw form
 45 
#   in that it will convert known DBI:ODBC called to a more raw form
46 
#
 46 
#
47 
my %url_convert = ( 'dbi:ODBC:RM3' => '$GBE_RM_LOCATION' );
 47 
my %url_convert = ( 'dbi:ODBC:RM3' => 'GBE_RM_LOCATION' );
48 
 
 48 
 
49 
 
 49 
 
50 
#-------------------------------------------------------------------------------
 50 
#-------------------------------------------------------------------------------
51 
# Function        : connect
 51 
# Function        : connect
52 
#
 52 
#
Line 87... Line 87...
87 
    #
 87 
    #
88 
    if ( $url_convert{$self->{DB}} )
 88 
    if ( $url_convert{$self->{DB}} )
89 
    {
 89 
    {
90 
        my $var = $url_convert{$self->{DB}};
 90 
        my $var = $url_convert{$self->{DB}};
91 
        my $value = $ENV{$var};
 91 
        my $value = $ENV{$var};
92 
        Error ("Cannot convert old DB value to new form",
 92 
        die ("Cannot convert old DB value to new form\n",
93 
               "User requested: " . $self->{DB},
 93 
               "User requested: " . $self->{DB} . "\n",
94 
               "Need Environment Variable: $var" ) unless ($value);
 94 
               "Need Environment Variable: $var" ) unless ($value);
95 
 
 95 
 
96 
        print "[DBI] Converting DB to URL: " . $self->{DB} ." to $value\n"
 96 
        print "[DBI] Converting DB to URL: " . $self->{DB} ." to $value\n"
97 
            if $verbose > 1;
 97 
            if $verbose > 1;
98 
        $self->{DB} = $value;
 98 
        $self->{DB} = $value;