view release on metacpan or  search on metacpan

lib/App/DBBrowser/DB/Firebird.pm  view on Meta::CPAN

        $show_sofar .= "\n" . 'Port: ' . $port;
        $dsn .= ";port=$port" if length $port;
    }
    my $connect_attr = $sf->{o}{connect_attr};
    my $dbh_attributes = {};

    for my $key ( keys %$connect_attr ) {
        if ( ! length $connect_attr->{$key} ) {
            next;
        }
        elsif ( $key =~ /^(?:ib_dialect|ib_role|ib_charset)\z/ ) {
            $dsn .= ";$key=$connect_attr->{$key}";
        }
        else {
            $dbh_attributes->{$key} = $connect_attr->{$key};
        }
    }
    my $user = $cred->get_login( 'user', $show_sofar );
    $show_sofar .= "\n" . 'User: ' . $user if defined $user;
    my $passwd = $cred->get_login( 'pass', $show_sofar );
    my $dbh = DBI->connect( $dsn, $user, $passwd, {

lib/App/DBBrowser/Options/Defaults.pm  view on Meta::CPAN

    elsif ( $driver eq 'MariaDB' ) {
        $defaults->{connect_attr}{mariadb_bind_type_guessing} = 1;
    }
    elsif ( $driver eq 'Pg' ) {
        $defaults->{connect_attr}{pg_enable_utf8} = -1;
    }
    elsif ( $driver eq 'Firebird' ) {
        $defaults->{connect_attr}{ib_enable_utf8} = 1;
        $defaults->{connect_attr}{ib_dialect}     = '';
        $defaults->{connect_attr}{ib_role}        = '';
        $defaults->{connect_attr}{ib_charset}     = 'UTF8';
    }
    elsif ( $driver eq 'Oracle' ) {
        $defaults->{connect_attr}{ora_charset} = 'AL32UTF8';
        $defaults->{connect_attr}{AskIfSID}    = 0;
    }
    elsif ( $driver eq 'DB2' ) {
    }
    elsif ( $driver eq 'Informix' ) {
        $defaults->{connect_attr}{ix_EnableUTF8} = 1;
    }
    elsif ( $driver eq 'ODBC' ) {
        $defaults->{connect_attr}{odbc_utf8_on}                   = 0;
        $defaults->{connect_attr}{odbc_ignore_named_placeholders} = 0;

lib/App/DBBrowser/Options/Menus.pm  view on Meta::CPAN

            [ 'mariadb_bind_type_guessing', "- mariadb_bind_type_guessing", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'Pg' ) {
        push @$sub_menu_set_attributes,
            [ 'pg_enable_utf8', "- pg_enable_utf8", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'Firebird' ) {
        push @$items_read_attributes,
            { name => 'ib_dialect', text => "- ib_dialect" },
            { name => 'ib_role',    text => "- ib_role" },
            { name => 'ib_charset', text => "- ib_charset" };
        push @$sub_menu_set_attributes,
            [ 'ib_enable_utf8', "- ib_enable_utf8", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'DB2' ) {
        splice( @$sub_menu_required_fields, 0, 2 );
        splice( @$items_login_data, 0, 2 );
        splice( @$sub_menu_env_variables, 0, 2 );
    }
    elsif ( $driver eq 'Informix' ) {
        splice( @$sub_menu_required_fields, 0, 2 );
        splice( @$items_login_data, 0, 2 );
        splice( @$sub_menu_env_variables, 0, 2 );
        push @$sub_menu_set_attributes,
            [ 'ix_EnableUTF8', "- ix_EnableUTF8", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'Oracle' ) {
        push @$items_read_attributes,
            { name => 'ora_charset', text => "- ora_charset" };
        push @$sub_menu_set_attributes,
            [ 'AskIfSID', "- AskIfSID", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'ODBC' ) {
        splice( @$sub_menu_required_fields, 0, 2 );
        splice( @$items_login_data, 0, 2 );
        splice( @$sub_menu_env_variables, 0, 2 );
        push @$items_read_attributes,
            { name => 'odbc_batch_size', text => "- odbc_batch_size" };
        push @$sub_menu_set_attributes,