#!/usr/bin/perl
#
# Spectre Samba Mounter
#
# Douglas Thrift
#
# $Id$

use strict;

if ($#ARGV >= 0 && $ARGV[0] eq "-install")
{
	open(DATA, "< configure.dat");

	my $line = <DATA>;
	chomp($line);

	close(DATA);

	print "$line\n";
}
else
{
	my $install = "/usr/local/spectre";

	print "Spectre install directory [$install]: ";
	my $line = <STDIN>;
	chomp $line;

	if ($line ne "")
	{
		$install = $line;
	}

	open(DATA, "> configure.dat");

	print DATA "$install\n";

	close(DATA);

	open(WHICH, "which findsmb |") || die "$0: $!";

	$line = <WHICH>;
	chomp($line);

	close(WHICH);

	my $findsmb = $line;

	open(WHICH, "which smbclient |") || die "$0: $!";

	$line = <WHICH>;
	chomp($line);

	close(WHICH);

	my $smbclient = $line;

	open(WHICH, "which mount |") || die "$0: $!";

	$line = <WHICH>;
	chomp($line);

	close(WHICH);

	my $mount = $line;

	open(WHICH, "which umount |") || die "$0: $!";

	$line = <WHICH>;
	chomp($line);

	close(WHICH);

	my $umount = $line;

	open(DATA, "> configure.h");

	print DATA "\tconfig.install = \"$install\";\n";
	print DATA "\tconfig.findsmb = \"$findsmb\";\n";
	print DATA "\tconfig.smbclient = \"$smbclient\";\n";
	print DATA "\tconfig.mount = \"$mount\";\n";
	print DATA "\tconfig.umount = \"$umount\";\n";

	close(DATA);
}