X-Git-Url: http://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fgdbunpack;h=6f8a60f075368ac7129bcca1f0943d11a0a57531;hp=04e23b976a49b23d1e7c50e288109a22ee1a6d62;hb=e0f54b4c0e257360604f16e326abd3b1779a3670;hpb=32eead02314ee499cbd6372601a21342462489a4

diff --git a/bin/gdbunpack b/bin/gdbunpack
index 04e23b9..6f8a60f 100755
--- a/bin/gdbunpack
+++ b/bin/gdbunpack
@@ -42,28 +42,33 @@ for log in $args;do
 		rc=1
 		continue
 	fi
-	if ! (cd "$base";uudecode) <"$log";then
+	if ! (cd "$base";sed -n '/^begin /,$p'|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