#!/usr/local/bin/perl

#----------------------------------------------------------------------
# Edit the lines below to customise
#----------------------------------------------------------------------

# Where the main files are stored
$libDir = "/usr/local/lib/xisofs";

# Where the main binary is sym-linked to
$binDir = "/usr/local/bin";

# Where the perl executable is, leave blank for PATH
$perlPath = "";

#----------------------------------------------------------------------
# Nothing below here should need changing
#----------------------------------------------------------------------

($who) = getpwuid($>);

if ($who ne 'root')
{
	print "You need to be 'root' to run this script, not '$who'\n";
	exit 1;
}

if ($perlPath eq '')
{
	chomp($perlPath = `which perl`);
	unless (-e $perlPath)
	{
		print "Cannot find perl executable on PATH, either set PATH to point to perl\nexecutable, or edit this script and alter the \$perlPath variable\n";
		exit 1;
	}
}

print <<EOT;

xisofs v1.3 Installation Script
(c) Copyright 1997 Steve Sherwood

Library Dir      : $libDir
Executable Dir   : $binDir
Perl Executable  : $perlPath
EOT

if (-d $libDir)
{
	if (-r "$libDir/VERSION")
	{
		open(IN,"$libDir/VERSION");
		$_ = <IN>;
		close(IN);

		if (/^xisofs/)
		{
			print "Previous Version : $_\n";
		}
		else
		{
			print "\nWARNING : $libDir exists, but does not contain a\n          recognised version of xisofs\n";
		}
	}
	else
	{
		print "\nWARNING : $libDir exists, but does not contain a\n          recognised version of xisofs\n"
	}
}

print "\nAre you sure you wish to install (y/n) ? ";
$_ = <STDIN>;

unless (/^y/)
{
	print "\nInstallation Aborted\n";
	exit 1;
}

foreach ($libDir,$binDir)
{
	unless (-d $_)
	{
		print "Creating Dir : $_\n";
		system("mkdir -p $_");
	}
}

print "Copying System Files\n";
system("cp -r * $libDir");

print "Sym-Linking\n";
unlink("$binDir/xisofs") if (-e "$binDir/xisofs");
system("ln -s $libDir/xisofs.pl $binDir/xisofs");

print "Updating\n";
open(IO, "+<$libDir/xisofs.pl");
@lines = <IO>;
seek(IO,0,0);
foreach(@lines)
{
	s/xyzzy/$libDir/g;
	s/yyzzy/$perlPath/g;
	print IO $_;
}
close(IO);

print "\nInstallation Complete. type 'xisofs' to start.\n";
exit;