version 1.1, 2011/06/03 09:28:47 |
version 1.2, 2011/07/01 10:59:18 |
|
|
use DBI; |
use DBI; |
use log; |
use log; |
|
|
my $DB_SERVER = "MSSQL"; # from /usr/local/etc/freetds.conf |
my $DB_SERVER = "pdc"; # from /usr/local/etc/freetds.conf |
my $DB_USER = "it_men"; |
my $DB_USER = "sa"; |
my $DB_PASS = "itmen712"; |
my $DB_PASS = "aekghbynflvby"; |
my $dsn = "DBI:Sybase:server=$DB_SERVER"; |
my $dsn = "DBI:Sybase:server=$DB_SERVER"; |
|
|
# exported |
# exported |
|
|
$dbh = DBI->connect($dsn, $DB_USER, $DB_PASS) or log::critical("Can not connect to database!"); |
$dbh = DBI->connect($dsn, $DB_USER, $DB_PASS) or log::critical("Can not connect to database!"); |
log::main("<<<*** Connected to database server ***>>>"); |
log::main("<<<*** Connected to database server ***>>>"); |
# select database |
# select database |
$dbh->do("use Manager"); |
$dbh->do("use full_print"); |
} |
} |
|
|
|
|