CODE : Set Oracle date format
BEGIN {
  $ENV{NLS_LANG}="AMERICAN_AMERICA.WE8MSWIN1252";
} 

use common_lib_t11;
#${&dbh}->do("alter session set NLS_DATE_FORMAT='DD-MON-YYYY HH24:MI:SS'");


print 'Got date: ' . ${&dbh}->selectrow_array("SELECT SYSDATE FROM DUAL") . "\n";


print 'Got global_name: ' . ${&dbh}->selectrow_array('select * from global_name') . "\n";



##</code><code>##

package main; 

BEGIN {
    my @passwd = getpwnam "xxxxr"; 

    $HOME_DIR = $passwd[7];

    $ENV{"PATH"} = $HOME_DIR."/bin:".$ENV{"PATH"}; 

    foreach my $dir ("/opt/bin","/usr/local/bin") {
        if (-d $dir) {$ENV{"PATH"}.=":$dir"}
    }
    $ENV{"ORACLE_SID"} = "xxxxx";  

}
# Oracle login
$DB_USERID = "xxxx";
$DB_PASSWD = "xxxx";
$DB_SID = "xxxxx";
# file paths
$BASE_DIR = "$HOME_DIR/XX";
# misc
if ($ENV{"LD_LIBRARY_PATH"}) {
    $ENV{"LD_LIBRARY_PATH"} .= ":$CHOME_DIR/lib:/usr/local/lib:/usr/lib:/usr/ucblib:/usr/openwin/lib:/usr/dt/lib";
} else {
    $ENV{"LD_LIBRARY_PATH"} = "$HOME_DIR/lib:/usr/local/lib:/usr/lib:/usr/ucblib:/usr/openwin/lib:/usr/dt/lib";}



package common_lib_t11;  

use Carp;
use MIME::Entity;
($VERSION = '$RCSfile: common_lib.pm,v $$Revision: 1.22 $$Date: 2006/03/01 17:01:48 $ ') =~ s/RCSfile|Revision|Date|\$|: //g;
------------------------------------