wpscripts/ztransfer/db.pm - diff

Return to db.pm CVS log

Up to [local] / wpscripts / ztransfer

version 1.1, 2011/06/03 09:28:47

version 1.2, 2011/07/01 10:59:18

Line 4

use DBI;

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";

# exported

Line 20

$dbh = DBI->connect($dsn, $DB_USER, $DB_PASS) or log::critical("Can not connect to database!");

log::main("<<<*** Connected to database server ***>>>");

# select database

$dbh->do("use Manager");

$dbh->do("use full_print");

}