File indexing completed on 2023-10-25 09:57:21
0001
0002
0003 use warnings;
0004 use strict;
0005
0006 use CondDB::Oracle;
0007
0008 package ConnectionFile;
0009
0010
0011 our $host = "__CHANGE_ME__";
0012 our $db = "__CHANGE_ME__";
0013 our $user = "__CHANGE_ME__";
0014 our $pass = "__CHANGE_ME__";
0015 our $port = 1521;
0016 our $db_opts = {RaiseError=>1};
0017
0018
0019 sub connect {
0020 my $condDB = new CondDB::Oracle;
0021
0022 $condDB->connect(-host=>$host,
0023 -db=>$db,
0024 -user=>$user,
0025 -pass=>$pass,
0026 -port=>$port,
0027 -db_opts=>$db_opts);
0028 $condDB->{dbh}->do();
0029 return $condDB;
0030 }
0031
0032 1;