#!/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"); } my $msg_error = ""; for (my $i = 0 ; $i <= $#package_list ; $i++){ my $pkg = $package_list[$i]; if ( -f "debian/$pkg.lintian-overrides"){ open( FH ,">>debian/$pkg.lintian-overrides"); } else{ open( FH ,">debian/$pkg.lintian-overrides"); } print FH "$pkg: possibly-insecure-handling-of-tmp-files-in-maintainer-script\n"; close(FH); 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( ! -e "$line"){ $msg_error .= " -> Error not exist $line path"; } if( -f "$line" ){ my $varname = basename($line); my $output = `cat $line | python -mjson.tool 2>&1`; if ($? != 0){ chomp($output); $msg_error .= " -> Error on Json: $output on file $line\n"; } 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/^\./); my $output = `cat "$line/$filename" | python -mjson.tool 2>&1`; if ($? != 0){ chomp($output); $msg_error = " -> Error on Json: $output on file $line/$filename\n"; } 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]); install_vars_postinst($package_list[$i]); } } if ($msg_error ne ""){ $msg_error = "\n\n**************\n* *\n* JSON ERROR *\n* *\n**************\n$msg_error\n\n"; error($msg_error); } 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 if [ -e '/tmp/.n4d_pid' ]; then #a=\$(stat -c %i /) AUX_PID=\$(cat /tmp/.n4d_pid) STATUS=\$(ps -p \$AUX_PID -o args= | grep n4d-server || true) if [ "\$STATUS" != "" ]; then n4d-vars emptytrash || true fi fi else echo \"\\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); } sub install_vars_postinst{ my $pkg = shift; my $cmd = << "END_CMD"; ############################################ # Automatically generated by dn4dh_install # ############################################ case \"\$1\" in configure) if [ -e '/tmp/.n4d_pid' ]; then #a=\$(stat -c %i /) AUX_PID=\$(cat /tmp/.n4d_pid) STATUS=\$(ps -p \$AUX_PID -o args= | grep n4d-server || true) if [ "\$STATUS" != "" ]; then n4d-vars readinbox || true fi fi ;; *) ;; esac ################################################ # END Automatically generated by dn4dh_install # ################################################ END_CMD open (FD ,">> debian/$pkg.postinst.debhelper"); print FD $cmd; close(FD); } #my $aux = "debian/$pkg.$mant_script.debhelper";