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