#!/usr/bin/perl -W

my $path = undef;

if ( $ARGV[0]) {
	$path = $ARGV[0];
	print "Installo in $path\n";
} 
else {
	$path = `pwd`;
	chop( $path );
	print "Uso il percorso corrente: $path come path di installazione\n";
}

@file = `cat asd_unconfigured`;
open FILE, "> asd";
for my $i (0.. scalar @file-1 ) {
	
	if ( $file[$i] =~ /__PATH_TO_SUBSTITUTE__/ ) {
		$file[$i] =~ s/__PATH_TO_SUBSTITUTE__/$path/;
		print FILE $file[$i];
	} else {
		print FILE $file[$i];
	}
}
close FILE;
`chmod +x asd`;


@file = `cat create_asdb_unconfigured`;
open FILE, "> create_asdb";
for my $i (0.. scalar @file-1 ) {
	
	if ( $file[$i] =~ /__PATH_TO_SUBSTITUTE__/ ) {
		$file[$i] =~ s/__PATH_TO_SUBSTITUTE__/$path/;
		print FILE $file[$i];
	} else {
		print FILE $file[$i];
	}
}
close FILE;
`chmod +x create_asdb`;
