===================================================================
RCS file: /cvs/wpscripts/ztransfer/db.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- wpscripts/ztransfer/db.pm	2011/06/03 09:28:47	1.1
+++ wpscripts/ztransfer/db.pm	2011/07/01 10:59:18	1.2
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
-# $Id: db.pm,v 1.1 2011/06/03 09:28:47 yason Exp $
+# $Id: db.pm,v 1.2 2011/07/01 10:59:18 yason Exp $
 package db;
 use DBI;
 use log;
 
-my $DB_SERVER = "MSSQL";  # from /usr/local/etc/freetds.conf
-my $DB_USER = "it_men";
-my $DB_PASS = "itmen712";
+my $DB_SERVER = "pdc";  # from /usr/local/etc/freetds.conf
+my $DB_USER = "sa";
+my $DB_PASS = "aekghbynflvby";
 my $dsn = "DBI:Sybase:server=$DB_SERVER";
 
 # exported
@@ -20,7 +20,7 @@
     $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");
 }