98 lines
2.3 KiB
Perl
98 lines
2.3 KiB
Perl
use db_min ;
|
|
|
|
sub db_open_ro {
|
|
|
|
my ($sys) = @_ ;
|
|
|
|
if ($db_ignore_open_close) { return ; }
|
|
|
|
my ($db,$dbhost,$dbuser,$dbpass) = &ops_db_credentials($sys) ;
|
|
|
|
my $connstr = "DBI:mysql:database=$db;host=$dbhost;" ;
|
|
|
|
$dbh = DBI->connect($connstr,$dbuser,$dbpass) or die $DBI::errstr;
|
|
|
|
&common_debug("db_open_ro:$connstr") ;
|
|
|
|
} #----------------------------------------------------------------------------------------------------------------------
|
|
|
|
sub db_open_upd {
|
|
|
|
my ($sys) = @_ ;
|
|
|
|
if ($db_ignore_open_close) { return ; }
|
|
|
|
my ($db,$dbhost,$dbuser,$dbpass) = &ops_db_credentials($sys) ;
|
|
|
|
my $connstr = "DBI:mysql:database=$db;host=$dbhost;" ;
|
|
|
|
$dbh = DBI->connect($connstr,$dbuser,$dbpass, { RaiseError => 1, AutoCommit => 1 } ) or die "Unable to connect, $DBI::errstr";
|
|
$dbh->{LongReadLen} = 1000 ;
|
|
|
|
&common_debug("db_open_upd:$connstr") ;
|
|
|
|
} #----------------------------------------------------------------------------------------------------------------------
|
|
|
|
sub db_close_conn {
|
|
|
|
if ($db_ignore_open_close) { return ; }
|
|
|
|
$dbh->disconnect();
|
|
|
|
&common_debug('db_close_conn:$dbh->disconnect();') ;
|
|
|
|
} #------------------------------------------------------------------------------------------
|
|
|
|
sub db_switch_conn {
|
|
|
|
my ($sys) = @_ ;
|
|
|
|
$db_ignore_open_close = 0 ;
|
|
&db_close_conn ;
|
|
&db_open_upd($sys) ;
|
|
$db_ignore_open_close = 1 ;
|
|
|
|
} #------------------------------------------------------------------------------------------
|
|
|
|
sub ops_db_credentials {
|
|
|
|
my ($sys) = @_ ;
|
|
|
|
my $db = "itv_admin_db";
|
|
my $dbhost = "localhost";
|
|
my $dbuser = "itv_admin_user";
|
|
my $dbpass = '!Ja16Q7P0X3SVTWr';
|
|
|
|
if ($env eq 'DEV') {
|
|
$db = 'dev_aisa' ;
|
|
$dbhost = 'localhost' ;
|
|
$dbuser = 'dev_aisa_user' ;
|
|
$dbpass = 'L0rdJ35u5R31gN51vQow*!' ;
|
|
}
|
|
|
|
if ($sys eq 'sss') {
|
|
$db = "sss_admin_db";
|
|
$dbhost = "localhost";
|
|
$dbuser = "sss_admin_user";
|
|
$dbpass = 'bVrC2kyGJ8ZO0oVe!';
|
|
|
|
if ($env eq 'DEV') {
|
|
$db = 'dev_sss' ;
|
|
$dbhost = 'localhost' ;
|
|
$dbuser = 'dev_sss_user' ;
|
|
$dbpass = 'L0rdJ35u5R31gN51vQow*!' ;
|
|
}
|
|
}
|
|
|
|
return ($db,$dbhost,$dbuser,$dbpass) ;
|
|
|
|
} #----------------------------------------------------------------------------------------------------------------------
|
|
|
|
sub db_uniq {
|
|
|
|
my %seen;
|
|
grep !$seen{$_}++, @_;
|
|
|
|
} #------------------------------------------------------------------------------------------
|
|
|
|
1; |