#!/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: $!");
####
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
##
##
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