UNIX for Advanced & Expert Users

#!/usr/bin/perl
#open EFILE, ">>$ENV{HOME}/Desktop/postDocuOutfile.txt";
#print EFILE "ARGV 0 = $ARGV[0]\n";
#print EFILE "ARGV 1 = $ARGV[1]\n";
#print EFILE "ARGV 2 = $ARGV[2]\n";
#print EFILE "ARGV 3 = $ARGV[3]\n";
#print EFILE "ARGV 4 = $ARGV[4]\n";

#$1: The full path to the installation package.
#$2: The full path to the installation destination.
#$3: The mountpoint of the destination volume.
#$4: The root directory for the current System folder.

$thisDir = $ARGV[0];
#print "*********thisDir = $thisDir\n";

chomp $thisDir;
@thisDirElements = split '/', $thisDir;

#close EFILE;

if ( $thisDirElements[1] eq 'Volumes' ) #do I need this anymore????
{
#	print "*********Inside IF thisDirElements[1] eq Volumes"
	$tutorialInstallPath = '/'.$thisDirElements[1].'/'.$thisDirElements[2].'/FINDATA/Sj\0303\0244lvstudier/Lektion6b.mov';
	if (! -e $tutorialInstallPath )
	{
		$tutorialInstallPath = '/'.$thisDirElements[1].'/'.$thisDirElements[2].'/fsCommand/FINDATA/Sj\0303\0244lvstudier/Lektion6b.mov';
		
	}
#	print "*********Tutorial Install Source = $tutorialInstallPath\n";
	$qsvInstallPath = '/'.$thisDirElements[1].'/'.$thisDirElements[2].'/FINDATA/Videotips';
#	print "*********QSV Install Source = $qsvInstallPath\n";
	`cp -f -p "$tutorialInstallPath" "/Applications/Finale 2008/Sj\0303\0244lvstudier"`;
	`cp -R -f -p "$qsvInstallPath" "/Applications/Finale 2008/Hj\0303\0244lpfiler"`;
}
#close EFILE;
exit 0;

$tutorialInstallPath = "/$thisDirElements[1]/$thisDirElements[2]/FINDATA/Sj\303\244lvstudier/Lektion6b.mov";