App-DBBrowser

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Rename the subquery-menu-entry in table/join/union menus.

2.048    2019-01-28
        - Update subquery menu.

2.047    2019-01-26
        - Use the whole terminal width (by upgrading Term::TablePrint).
        - Bugfix in subqueries.

2.046    2019-01-25
        - DBD::mysql: 'mysql_enable_utf8mb4' enabled by default, 'mysql_enable_utf8' disabled by default.
        - New input filter 'Add Column'.

2.045    2019-01-20
        - Bugfix: make the mouse work also in the help menu.
        - Parse mode 'split': new option to trim records.

2.044    2019-01-19
        - Union: allow to use tables more than one time.
        - Union: possibility to use a subquery instead of a table.
        - Postgress: change aliases to lowercase if 'quote_identifiers' is disabled.

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

package # hide from PAUSE
App::DBBrowser::DB::mysql;

use warnings;
use strict;
use 5.016;

use DBD::mysql 4.041 qw();  # mysql_enable_utf8mb4 requires 4.041 or greater
use DBI              qw();

use App::DBBrowser::Credentials;

sub new {
    my ( $class, $info, $opt ) = @_;
    my $sf = {
        i => $info,
        o => $opt
    };

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

            LongTruncOk => 0,
            LongReadLen => 80,
        },
    };
    if ( $driver eq 'SQLite' ) {
        $defaults->{connect_attr}{sqlite_see_if_its_a_number} = 1;
        $defaults->{connect_attr}{sqlite_string_mode}         = 5;
        $defaults->{connect_attr}{sqlite_busy_timeout}        = 30000;
    }
    elsif ( $driver eq 'mysql' ) {
        $defaults->{connect_attr}{mysql_enable_utf8}        = 0;
        $defaults->{connect_attr}{mysql_enable_utf8mb4}     = 1;
        $defaults->{connect_attr}{mysql_bind_type_guessing} = 1;
    }
    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;

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

        #    '5 DBD_SQLITE_STRING_MODE_UNICODE_FALLBACK', # 5
        #    '6 DBD_SQLITE_STRING_MODE_UNICODE_STRICT',   # 6
        #];
        push @$sub_menu_set_attributes,
            #[ 'sqlite_string_mode',         "- sqlite_string_mode",    $sqlite_string_mode_values ],
            [ 'sqlite_string_mode',         "- sqlite_string_mode",         [ 0, 1, undef, undef, 4, 5, 6 ] ], # undef not seen by the user
            [ 'sqlite_see_if_its_a_number', "- sqlite_see_if_its_a_number", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'mysql' ) {
        push @$sub_menu_set_attributes,
            [ 'mysql_enable_utf8',        "- mysql_enable_utf8",        [ $no, $yes ] ],
            [ 'mysql_enable_utf8mb4',     "- mysql_enable_utf8mb4",     [ $no, $yes ] ],
            [ 'mysql_bind_type_guessing', "- mysql_bind_type_guessing", [ $no, $yes ] ];
    }
    elsif ( $driver eq 'MariaDB' ) {
        push @$sub_menu_set_attributes,
            [ '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 ] ];
    }