#!/STANDARDINSTALLPATHTHATWORKS/5.26.1/bin/perl
use strict;
use warnings;

use Data::Dumper;
use DBI;

my $database = "DB_REMOVED";
my $hostname = "HOST_REMOVED";
my $port = "PORT_REMOVED";

my $user = "USER_REMOVED";
my $pass = "PASS_REMOVED";

my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
DBI->trace(2);
my $dbh = DBI->connect($dsn, $user, $pass) or die("Failed to connect to DB: $!");

##</code><code>##

    DBI 1.643-nothread default trace level set to 0x0/2 (pid 87123 pi 0) at dbtest line 20
    -> DBI->connect(DBI:mysql:database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED, USER_REPLACED, ****, HASH(0x9094f0))
    -> DBI->install_driver(mysql) for linux perl=5.030002 pid=87123 ruid=ID_REPLACED euid=ID_REPLACED
       install_driver: DBD::mysql version 4.050 loaded from PRIVATEPERLBREWINSTALL/extlib/lib/perl5/x86_64-linux/DBD/mysql.pm
    <- install_driver= DBI::dr=HASH(0xc91698)
    !! The warn '0' was CLEARED by call to connect method
    -> connect for DBD::mysql::dr (DBI::dr=HASH(0xc91698)~0xce2e38 'database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED' 'USER_REPLACED' **** HASH(0xb558d0))
imp_dbh->connect: dsn = database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED
imp_dbh->my_login : dbname = DB_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED,host = HOSTNAME_REPLACED, port = PORT_REPLACED
imp_dbh->mysql_dr_connect: host = |HOSTNAME_REPLACED|, port = PORT_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED
imp_dbh->bind_type_guessing: 0
imp_dbh->use_server_side_prepare: 0
imp_dbh->disable_fallback_for_server_prepare: 0
imp_dbh->mysql_dr_connect: client_flags = 2
imp_dbh->mysql_dr_connect: <-		--> do_error
Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES) error 1045 recorded: Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES)
		<-- do_error
    -> DESTROY for DBD::mysql::db (DBI::db=HASH(0xce33f0)~INNER)
         DESTROY for DBI::db=HASH(0xce33f0) ignored - handle not initialised
       ERROR: 1045 'Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES)' (err#0)
    <- DESTROY= ( undef ) [1 items] at mysql.pm line 163
    !! ERROR: 1045 'Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES)' (err#0)
    <- connect= ( undef ) [1 items] at DBI.pm line 679
    -> $DBI::errstr (&) FETCH from lasth=HASH
    <- $DBI::errstr= 'Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES)'
       DBI connect('database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED','USER_REPLACED',...) failed: Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES)
DBI connect('database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED','USER_REPLACED',...) failed: Access denied for user 'USER_REPLACED'@'IP_REPLACED' (using password: YES) at PRIVATEPERLBREWINSTALL/.bin/dbtest line 21.
    -- DBI::END ($@: , $!: )
    !! The ERROR '1045' was CLEARED by call to disconnect_all method
    -> disconnect_all for DBD::mysql::dr (DBI::dr=HASH(0xc91698)~0xce2e38)
    <- disconnect_all= ( ) [0 items] (not implemented) at DBI.pm line 758
!   -> DESTROY in DBD::_::common for DBD::mysql::dr (DBI::dr=HASH(0xce2e38)~INNER)
!   <- DESTROY= ( undef ) [1 items] during global destruction

##</code><code>##

    DBI 1.639-nothread default trace level set to 0x0/2 (pid 87340 pi 0) at old_dbtest line 20
    -> DBI->connect(DBI:mysql:database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED, USER_REPLACED, ****)
    -> DBI->install_driver(mysql) for linux perl=5.026001 pid=87340 ruid=ID_REPLACED euid=ID_REPLACED
       install_driver: DBD::mysql version 4.043 loaded from STANDARDENVINSTALLAREA/x86_64-linux/DBD/mysql.pm
    <- install_driver= DBI::dr=HASH(0x974b28)
    !! The warn '0' was CLEARED by call to connect method
    -> connect for DBD::mysql::dr (DBI::dr=HASH(0x974b28)~0x9ac9f8 'database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED' 'USER_REPLACED' **** HASH(0x83f588))
imp_dbh->connect: dsn = database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED
imp_dbh->my_login : dbname = DB_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED,host = HOSTNAME_REPLACED, port = PORT_REPLACED
imp_dbh->mysql_dr_connect: host = |HOSTNAME_REPLACED|, port = PORT_REPLACED, uid = USER_REPLACED, pwd = PASSWORD_REPLACED
imp_dbh->bind_type_guessing: 0
imp_dbh->use_server_side_prepare: 0
imp_dbh->disable_fallback_for_server_prepare: 0
imp_dbh->mysql_dr_connect: client_flags = 2
imp_dbh->mysql_dr_connect: <-    <- connect= ( DBI::db=HASH(0x9acf80) ) [1 items] at DBI.pm line 676
    -> STORE for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER 'PrintError' 1)
    <- STORE= ( 1 ) [1 items] at DBI.pm line 728
    -> STORE for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER 'AutoCommit' 1)
    <- STORE= ( 1 ) [1 items] at DBI.pm line 728
    -> STORE for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER 'Username' 'USER_REPLACED')
    <- STORE= ( 1 ) [1 items] at DBI.pm line 731
    -> STORE for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER 'mysql_conn_attrs' HASH(0x9ad160))
$h->{'mysql_conn_attrs'}=HASH(0x9ad160) ignored for invalid driver-specific attribute
    <- STORE= ( '' ) [1 items] at DBI.pm line 731
    -> connected in DBD::_::db for DBD::mysql::db (DBI::db=HASH(0x9acf80)~0x9ad1a8 'DBI:mysql:database=DB_REPLACED;host=HOSTNAME_REPLACED;port=PORT_REPLACED' 'USER_REPLACED' ****)
    <- connected= ( undef ) [1 items] at DBI.pm line 738
    <- connect= DBI::db=HASH(0x9acf80)
    -> STORE for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER 'dbi_connect_closure' CODE(0x9ac890))
    <- STORE= ( 1 ) [1 items] at DBI.pm line 747
Died at bin/old_dbtest line 24.
    -> DESTROY for DBD::mysql::db (DBI::db=HASH(0x9ad1a8)~INNER)
imp_dbh->pmysql: 9c7aa0
    <- DESTROY= ( undef ) [1 items] at old_dbtest line 24
    -- DBI::END ($@: , $!: )
    -> disconnect_all for DBD::mysql::dr (DBI::dr=HASH(0x974b28)~0x9ac9f8)
    <- disconnect_all= ( ) [0 items] (not implemented) at DBI.pm line 755
!   -> DESTROY in DBD::_::common for DBD::mysql::dr (DBI::dr=HASH(0x9ac9f8)~INNER)
!   <- DESTROY= ( undef ) [1 items] during global destruction