#!/usr/bin/perl
#
# $Header: //sapdb/V76/c_00/b_37/sys/src/install/perl/packages/jdbc/instjdbc#1 $
# $DateTime: 2007/04/16 17:59:45 $
# $Change: 149747 $
#
# Desc:


import SAPDB::Install::StdIO;
import SAPDB::Install::System;
import SAPDB::Install::Registry;
import SAPDB::Install::Tools;
import SAPDB::Install::Jar;

$path{'name'} = 'java driver path';
$path{'mode'}=0775;
$path{'opt'}='jdbc_path=s';
$path{'default'}=getSysProgPath().'/sapdb/jdbc';
unless($SAPDB::Install::StartInstall::opt_INSTANCE){ # these option makes no sense while instance upgrade
	$usage= " [-jdbc_path <java driver path>]";
	$usage_desc = "\t-jdbc_path <java driver path>\tinstallation path for JDBC\n";
}

@paths = (\%path);
$main_path=\%path;

sub preinstall{
      local @ARGV=@_; 
      my ($data,$prog)=readIndepPath();
	$prog !~ /\S/ and $prog = $SAPDB::Install::Values::indep_prog_path;
	$data !~ /\S/ and $data = $SAPDB::Install::Values::indep_data_path;
 	$path{'default'}="$prog";
	$path{'value'} = "$prog" unless $SAPDB::Install::StartInstall::opt_relocate;
	return 1;
}


sub postinstall{
	
	# get shared object path 
	if(0 and $^O =~ /mswin/i){        # disable set shlib path 04.03.2003   
		my $version_str;
		foreach my $file (keys(%{$packobj->FileList})){
			($version_str) = ($file =~ /^runtime\/(\d{4})\/\S+sapdbcbin\./);
			defined $version_str and last;
		}
		my $shlib32_path = $path{'value'}.'/runtime/'.$version_str.'/pgm';
		my $shlib64_path = $path{'value'}.'/runtime/'.$version_str.'/pgm/pgm64';# insert path to needed runtime library into jar file
		my @statbuf = stat($path{'value'}.'/runtime/jar/sapdbc.jar');		    
		SetValueInManifest($path{'value'}.'/runtime/jar/sapdbc.jar',
							('sapdbcbin-path' => $shlib32_path,
							'sapdbcbin64-path' => $shlib64_path)
		);	
	
		# update check sum for modified file
		utime($statbuf[9],$statbuf[9],$path{'value'}.'/runtime/jar/sapdbc.jar');
		$packobj->RegData->updateMd5Sum('runtime/jar/sapdbc.jar');
		
	}

	return 1;
}

1;
                                                                                                         