X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fgdbunpack;h=49ec86aa8da9ed4894dcaf32981c6378069d2a13;hp=04e23b976a49b23d1e7c50e288109a22ee1a6d62;hb=257109ce5b17e8bf1e9990564d3eef7722746c0b;hpb=32eead02314ee499cbd6372601a21342462489a4

diff --git a/bin/gdbunpack b/bin/gdbunpack
index 04e23b9..49ec86a 100755
--- a/bin/gdbunpack
+++ b/bin/gdbunpack
@@ -44,26 +44,31 @@ for log in $args;do
 	fi
 	if ! (cd "$base";uudecode) <"$log";then
 		echo >&2 "Error <$log>: uudecode"
+		rm -rf "$base"
 		rc=1
 		continue
 	fi
 	if echo -n "$base"/*|grep ' ';then
 		echo >&2 "Error <$log>: Too many files in: $base"
+		rm -rf "$base"
 		rc=1
 		continue
 	fi
 	if ! (echo -n "$base"/*|grep -q '[.]tar[.]bz2$');then
 		echo >&2 "Error <$log>: Invalid file:" "$base"/*
+		rm -rf "$base"
 		rc=1
 		continue
 	fi
 	if ! (cd "$base";tar xjf *);then
 		echo >&2 "Error <$log>: tar xjf"
+		rm -rf "$base"
 		rc=1
 		continue
 	fi
 	rm -f "$base"/*.tar.bz2
 	chmod -x "$base"/*
+	perl -i -pe 's{\Q'"$HOME"'\E/.*?/build/[^/]*/}{}g' "$base"/*
 #	if ! (echo "$base"/*|grep -q '^[^ ]*[.]log [^ ]*[.]sum$');then
 #		echo >&2 "Error <$log>: Not two files .log+.sum:" "$base"/*
 #		exit 1