#!/usr/bin/perl
use strict;
use File::Basename;
use File::Spec;
use Cwd;

# This script will not create the project folder. Create the folder yourself.
unless(@ARGV) {
	print "Usage: perl install.pl <PROJECT_NAME> [link/full]\n";
	exit;
}
my $project_name = $ARGV[0];
my $install = 'link';
$install = $ARGV[1] if($ARGV[1]);

my ($volume,$iframe_folder,$file) = File::Spec->splitpath( File::Basename::dirname($0) );
$iframe_folder = Cwd::realpath($iframe_folder);
my $current_folder = Cwd::getcwd();
my $iframe_folder_relative = File::Spec->abs2rel($iframe_folder);

if($install eq 'link') {
	`cp -R $iframe_folder/Scripts/installation/* .`;
	`cp -R $iframe_folder/css css`;
	`cp -R $iframe_folder/js js`;
	`cp -R $iframe_folder/images images`;
	`cp -R $iframe_folder/templates templates`;
	print "Please execute this command...\nfind -name .svn -exec rm -rf {} \\;";
}

my %keywords = (
	"IFRAME_FOLDER_ABSOLUTE"=> $iframe_folder,
	"IFRAME_FOLDER_RELATIVE"=> $iframe_folder_relative, 
	"PROJECT_NAME"			=> $project_name
);
replaceInFile('index.php', %keywords);
replaceInFile('configuration.php', %keywords);

print "\n";

############################################## Functions #############################################
#Read the given file and replace all instance of the given keyword with the replacement.
sub replaceInFile {
	my $file = shift;
	my %keywords = @_;
	my $contents = getFileContents($file);
	
	while(my ($keyword, $replacement) = each(%keywords)) {
		my $replace = "%$keyword%";
		$contents =~ s/$replace/$replacement/g;
	}
	putFileContents($file, $contents);
}

#Read the file given as the argument and return the contents
sub getFileContents {
	my $file = shift;
	my @lines;
	unless(open (FILE,$file)) {
		die("Can't open '$file': $!");
	} else {
		@lines=<FILE>;
		close(FILE);
	}
	return join('',@lines);
}
#Write the data back to the file
sub putFileContents {
	my $file = shift;
	my $contents = shift;
	unless(open (OUT, ">$file")) {
		print("Can't open '$file' for writing: $!");
	} else {
		print OUT $contents;
	}
	close(OUT);
}