#!/usr/bin/perl
#
# $Header: //sapdb/V74/c_01/develop/sys/src/install/perl/packages/pcr/instpcr#1 $
# $DateTime: 2001/10/02 16:51:35 $
# $Change: 9444 $
#
# Desc:


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


$path{'name'} = 'independent program path';
$path{'default'} = getSysProgPath().'/sapdb/indep_prog';
$path{'opt'} = 'indep_prog=s';
$path{'list'}='pcr71.lst';
$path{'mode'}=0775;

unless($SAPDB::Install::StartInstall::opt_INSTANCE){ # these option makes no sense while instance upgrade
	$usage= " [-indep_prog <independent program path>]";
	$usage_desc = "\t-indep_prog <independent program path>\tinstallation root for independent programs\n";
}

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

my $data;
my $prog;

sub preinstall{
      local @ARGV=@_;
      ($data,$prog)=readIndepPath();
	#unless(-d $prog){
	#	print2stderr("no independent program path found\n");
	#	diesoft($SAPDB::Install::Values::diemsg);
	#}
	$prog !~ /\S/ and $prog = $SAPDB::Install::Values::indep_prog_path;
	$prog !~ /\S/ and print2stderr("independent program path not found\n") and diesoft($SAPDB::Install::Values::diemsg);
	$data !~ /\S/ and $data = $SAPDB::Install::Values::indep_data_path;
	$path{'value'}=$prog;
}

sub postinstall{
}

sub registerWin{
}

sub registerUX{
}


*register = $^O =~ /^MsWin/i ? \&registerWin : \&registerUX;

sub unregisterWin {
}

sub unregisterUX {
}

*unregister = $^O =~ /^MsWin/i ? \&unregisterWin : \&unregisterUX;

sub preuninstall {
}

sub postuninstall {
}

1;

