use File::Basename;
#use Mail::Sendmail;


my $sep = $^O eq "MSWin32" ? "\\" : "/";
do "$ENV{'TASK_HOME'}/lib.pl";

die "Could not determine your operating system"
	unless ( $^O =~ "linux|darwin|MSWin32" );

#arguments
our $action = "";

#intervening variables
our $prefix = "";
our $release_dir = "";
our $rk = "";
our $snapshot_id = "";
our $branch_path = "";
our $major_version = 0;


# SET THIS EMAIL SO THAT WE MAY BE INFORMED WHEN A BUILD FAILS
$ENV{'MONITOR_EMAIL'} = "greenstone\@waikato.ac.nz"; # need to escape @ sign
if(!defined $ENV{'MONITOR_EMAIL'}) {
    die "Please set a MONITOR_EMAIL for the test in an environment.sh file\n";
}


# for Darwin, specify if this binary is for (Mountain)Lions in the filename, otherwise it's for Leopards
# http://en.wikipedia.org/wiki/Darwin_(operating_system)
# darwin11* Lion, darwin12* Mountain Lion, darwin9* and darwin10* are Leopard and Snow Leopard
my $osversion = "";
if($^O eq "darwin") {
	#$osversion=`uname -r | sed 's/\..*$//'`;
	$osversion=`uname -r`; #$osversion =~ s@\..*$@@; 
	#$osversion = ($osversion =~ m@^1[1-9]@i) ? "-Lion" : "";

	# e.g. https://en.wikipedia.org/wiki/MacOS_Mojave has darwin kernel version 18.7.0	
	# uname -r returns the major number. 18 in Mojave's example
	if($osversion =~ m@^11@i) {
	    $osversion = "-Lion";
	} elsif($osversion =~ m@^12@i) {
	    $osversion = "-Mountain-Lion";
	} elsif($osversion =~ m@^13@i) {
	    $osversion = "-Mavericks"; # official name is not Maverick but Mavericks
	} elsif($osversion =~ m@^14@i) {
	    $osversion = "-Yosemite";
	} elsif($osversion =~ m@^15@i) {
	    $osversion = "-ElCapitan";
	} elsif($osversion =~ m@^16@i) {
	    $osversion = "-Sierra";
	} elsif($osversion =~ m@^17@i) {
	    $osversion = "-HighSierra";
	} elsif($osversion =~ m@^18@i) {
	    # Running uname -v, shows that darwin kernel version = 18.7.0, which is Mojave
	    # see https://en.wikipedia.org/wiki/MacOS_Mojave
	    $osversion = "-Mojave";
	} elsif($osversion =~ m@^19@i) { 
	    $osversion = "-Catalina";
	} elsif($osversion =~ m@^20@i) {
    	    $osversion = "-BigSur";
	} elsif($osversion =~ m@^21@i) {
    	    $osversion = "-Monterey";
	}
}

# if the first arg is a digit, it's the new envi verbosity param. Take it off the array
my $envi_verbose = shift(@ARGV) if(exists $ARGV[0] && $ARGV[0] =~ m/^\d+$/);

if ( exists $ARGV[0] ) {
	$action = $ARGV[0];
}

if ( exists $ARGV[1] ) {
	die "too many arguments to snapshot task\n";
}

#default data dir
if ( ! exists $ENV{'DATA_DIR'} ) {
	$ENV{'DATA_DIR'} = "$ENV{'HOME'}${sep}snapshots";
}

#default identity dir
if ( ! exists $ENV{'IDENTITY_DIR'} ) {
	$ENV{'IDENTITY_DIR'} = "$ENV{'HOME'}${sep}.ssh";
}

#choose the parameters of the build based on the task name
if ( $ENV{'TASK_NAME'} =~ m/release/ ) { # run as release 306rc1 (or as different as gs-3.06-rc1)
	if(exists $ARGV[0] && $ARGV[0] =~ m/^(gs-?)?(3|2)\.?\d\d+(-?rc\d)?$/) {		
		create_release($ARGV[0]);
		exit;
	} else {
		die "Run snapshot task with gs<full-version>[rc#]\n";
	}
} elsif ( $ENV{'TASK_NAME'} =~ m/^gs2-(caveat|stable)/i ) {
    if ( $ENV{'TASK_NAME'} =~ m/^gs2-(caveat|stable)-x64$/i ) {
	$ENV{'x64'} = "true";
    }
	$major_version = 2;
	$prefix="2s";
	$rk="rk2";
} elsif ( $ENV{'TASK_NAME'} =~ m/^gs3-(caveat|stable)/i ) {
    if ( $ENV{'TASK_NAME'} =~ m/^gs3-(caveat|stable)-x64$/i ) {
	$ENV{'x64'} = "true";
    }
	$major_version = 3;
	$prefix="3s";
	$rk="rk3";
} elsif ( $ENV{'TASK_NAME'} =~ m/^gs2-src-(caveat|stable)$/i ) {
	$major_version = 2;
	$prefix="2s";
	$rk="sork2";
} elsif ( $ENV{'TASK_NAME'} =~ m/^gs3-src-(caveat|stable)$/i ) {
	$major_version = 3;
	$prefix="3s";
	$rk="sork3";
} elsif ( $ENV{'TASK_NAME'} =~ m/^gs2-cd-(caveat|stable)$/i ) {
	$major_version = 2;
	$prefix="2s";
	$rk="cdrk2";
} elsif ( $ENV{'TASK_NAME'} =~ m/^dec-(caveat|stable)/i ) {
    if ( $ENV{'TASK_NAME'} =~ m/^dec-(caveat|stable)-x64$/i ) {
	print "setting env x64\n";
	$ENV{'x64'} = "true";
    }
	$prefix="";
	$rk="derk";
} else {
	die "unrecognised task name '$ENV{'TASK_NAME'}'\n";
}

#keep wget/curl base command in a variable
my $httpRetrieve = $^O eq "darwin" ? "curl" : "wget --no-check-certificate -O -";

#print STDERR "@@@@@@@@@@ PATH: ".$ENV{'PATH'}."\n";
# http://stackoverflow.com/questions/3854651/how-can-i-store-the-result-of-a-system-command-in-a-perl-variable

#setup based on mode
if ( $ENV{'TASK_NAME'} =~ m/caveat/ ) {
	$ENV{'SNAPSHOT_MODE'} = "caveat";

#	if ( $major_version == 2 ) {
#	        $ENV{'snapshot_id2'} = `$httpRetrieve https://www.greenstone.org/next-release.txt`;
#		#HARDCODED DUE TO THE 32 BIT LSB ENVIRONMENT NOT HAVING WGET
#		#$ENV{'snapshot_id2'} = "2.88";
#		chomp($ENV{'snapshot_id2'});
#	} else {
#		#$ENV{'snapshot_id3'} = `$httpRetrieve https://www.greenstone.org/next-release-greenstone3.txt`;
#		#HARDCODED DUE TO THE 32 BIT LSB ENVIRONMENT NOT HAVING WGET
#		$ENV{'snapshot_id3'} = "3.13";
#		chomp($ENV{'snapshot_id3'});
#	}
	
	#change the filenames to have the date in them
	my $id2 = $ENV{'snapshot_id2'};
	(my $id2re = $id2) =~ s@\.@\\.@g; #copy id2 and then change id2re, see http://www.perlmonks.org/?node_id=366431

	my $id3 = $ENV{'snapshot_id3'};
	(my $id3re = $id3) =~ s@\.@\\.@g;

	#print STDERR "SNAPSHOT ID: $id3\n";	
	#print STDERR "SNAPSHOT ID RE: $id3re\n";
	
	$ENV{'munges'} = "s/-$id2re/-$id2-candidate-" . get_date() . "$osversion" . "/g " if ($id2 =~ m/\S/);
	$ENV{'munges'} .= "s/-$id3re/-$id3-candidate-" . get_date() . "$osversion". "/g" if ($id3 =~ m/\S/);
	#$ENV{'munges'} = $ENV{'munges'} . " s/\\.dmg\$/$osversion.dmg/";	

	# the above generates a list of regex. Have a \D (non-digit) prefixed to the value to be substituted, else
	# Greenstone-documented-examples-2013.06.18.tar.gz gets changed to Greenstone-documented-examples-2013.06-candidate-<daterepeat of 2013.06.18>.18.tar.gz

	#set the path to server.exe
	# is this even used???
	$ENV{'SERVER_EXE_LOCATION'} = "https://www.greenstone.org/caveat-emptor/latest-server.exe";
	
} elsif ( $ENV{'TASK_NAME'} =~ "stable\$" ) {
	$ENV{'SNAPSHOT_MODE'} = "stable";
	$ENV{'BRANCH_PATH'} = "tags/stable";

	#dont proceed if main/stable is old
	#get last changed date from svn
	#open( INFO, "svn info https://svn.greenstone.org/main/$ENV{'BRANCH_PATH'}|" )
	open( INFO, "svn --non-interactive --trust-server-cert info https://svn.greenstone.org/main/$ENV{'BRANCH_PATH'}|" )
		or die "Cant determine age of stable tag";
	my $changed_date;
	while ( my $line = <INFO>) {
		chomp($line);
		if ( $line =~ /^Last Changed Date:/ ) {
			$changed_date = $line;
			break;
		}
	}
	close(INFO);
	#change the format
	$changed_date =~ s/.*: ([^ ]+) .*/\1/g;
	if ( $changed_date !~ /^20[0-9]{2}-[0-9]{2}-[0-9]{2}$/ ) {
		die "Can't determine age of stable tag";
	}
	$changed_date =~ s/-/./g;
	#check if main/stable is new
	if ( $changed_date ne get_date() ) {
		print "main/stable is old, will not create snapshot\n";
		exit;
	} else {
		print "main/stable is fresh, will create snapshot\n";
	}

	#set the path to server.exe
	$ENV{'SERVER_EXE_LOCATION'} = "https://www.greenstone.org/release-snapshots/server-\$\\\{version\\\}.exe";
}

#use the  correct key for uploading
$ENV{'IDENTITY_FILE'} =
	"$ENV{'IDENTITY_DIR'}${sep}upload-" . $ENV{'SNAPSHOT_MODE'} . ($^O eq "MSWin32" ? ".ppk" : "");
#use the  correct key for uploading - ed25519 for www-internal
$ENV{'IDENTITY_FILE_ED25519'} =
	"$ENV{'IDENTITY_DIR'}${sep}upload-" . $ENV{'SNAPSHOT_MODE'} ."-ed25519". ($^O eq "MSWin32" ? ".ppk" : "");


#always rename the log not to clash with other files on puka
if ( $ENV{'x64'} ) {
    $ENV{'munges'} = $ENV{'munges'} . " s/\\.out\$/-" . get_date() . "-" . $^O . $osversion . "-x64-log.txt/";
#     $ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-" . $^O . "-x64-log.txt/";
}
else {
    $ENV{'munges'} = $ENV{'munges'} . " s/\\.out\$/-" . get_date() . "-" . $^O . $osversion . "-log.txt/";
#    $ENV{'munges'} = $ENV{'munges'} . " s/\.out/-" . get_date() . "-" . $^O . "-log.txt/";
}

#choose a snapshot ID
if ( exists $ENV{'snapshot_id2'} && $major_version == 2 ) {
	$snapshot_id = $ENV{'snapshot_id2'};
} elsif ( exists $ENV{'snapshot_id3'} && $major_version == 3 ) {
	$snapshot_id = $ENV{'snapshot_id3'};
} else {
	$snapshot_id = gen_snapshot_id($prefix);
}

#set a release directory
$release_dir = "$ENV{'DATA_DIR'}${sep}$ENV{'TASK_NAME'}${sep}from-" . get_date();

print "creating a snapshot release\n";
print "release id : $snapshot_id\n";
print "release dir: $release_dir\n";
print "action: $action\n";

if ( $action eq "create" ) {
	create();
} elsif ( $action eq "upload" ) {
# emailing doesn't work as no SMTP setup on release-kit LSB machines
#    	send_mail_on_releasekit_fail();
	upload();
} elsif ($action eq "prepare-upload") {
    prepare_upload();
} elsif ( $action eq "all" || !$action ) {
	create();
# emailing doesn't work as no SMTP setup on release-kit LSB machines
#	send_mail_on_releasekit_fail();
	prepare_upload();
} else {
	die "bad snapshot action\n";
}