#!/usr/bin/perl
use warnings;
use strict;
use Debian::Debhelper::Dh_Lib;
use File::Basename;

my $alt_var_inst = "debian/n4dvars";
my $path_var_n4d = "/var/lib/n4d/";
my $path_installed_vars = $path_var_n4d."installed_vars/";
my $path_trash_vars = $path_var_n4d."variables-trash/";
my $path_inbox_vars = "var/lib/n4d/variables-inbox/";
my @package_list = getpackages();
if( -f "$alt_var_inst"){
	my $first_pkg = $package_list[0];
	doit("cp",$alt_var_inst,"debian/$first_pkg.n4dvars");
}
for (my $i = 0 ; $i <= $#package_list ; $i++){
	my $pkg = $package_list[$i];
	if ( -f "debian/$pkg.n4dvars" ){
		doit("mkdir -p debian/$pkg/$path_inbox_vars");
		doit("mkdir -p debian/$pkg$path_installed_vars");
		open(my $fd,'<',"debian/$pkg.n4dvars");
		while(my $line = <$fd>){
			$line =~ s/\n*$//;
		        $line =~ s/^\s*(.*?)\s*$/$1/;
			if( -f "$line" ){
				my $varname = basename($line);
				doit("cp",$line,"debian/$pkg/$path_inbox_vars/$pkg.n4dvars.$varname");
				doit("cp",$line,"debian/$pkg$path_installed_vars$pkg.n4dvars.$varname");
			}
			if( -d "$line" ){
				opendir(my $dir,$line);
				while(my $filename = readdir($dir)){
					next if ($filename =~ m/^\./);
					doit("cp",$line."/$filename","debian/$pkg/$path_inbox_vars/$pkg.n4dvars.$filename");
        	                        doit("cp",$line."/$filename","debian/$pkg$path_installed_vars$pkg.n4dvars.$filename");
				}
			}
		}
		install_vars_prerm($package_list[$i]);
	}
	
}


sub install_vars_prerm{
	my $pkg = shift;
	my $cmd = << "END_CMD";

############################################
# Automatically generated by dn4dh_install #
############################################
case \"\$1\" in 
	remove|purge)
	if [ -d $path_installed_vars ]; then
		cp $path_installed_vars$pkg.n4dvars.* $path_trash_vars
	else
		echo -e \"\\n\\n\\n$pkg package set n4d vars, but someone/something deleted $path_installed_vars. \\nIf N4D package isn't installed on your system ignore this message. \\nOtherwise, you can reinstall $pkg and later uninstall. \\nYou can also try to look for vars which have been installed; In this case ... good luck!!!!\"
		echo \'.,__,.........,__,....... ______\'
		echo \'`·.,¸,.·*¯`·.,¸,.·*¯..|::::::/\:_|/\\\'
		echo \'`·.,¸,.·*¯`·.,¸,,.·*¯<|::::::( o wo)\'
		echo \'-.......-""-......--"""u"""""u""""u"'
		echo ""
	fi
	;;
	*)
	;;
esac
################################################
# END Automatically generated by dn4dh_install #
################################################
END_CMD
	open (FD ,">> debian/$pkg.prerm.debhelper");
	print FD $cmd;
	close(FD);
}

#my $aux = "debian/$pkg.$mant_script.debhelper";