X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=tools%2Frelease%2Fextractor;h=97679f5bf098910a64a93676681c8d2df37843c0;hb=788537fe28c47e92ce684994f88f85b41f92f798;hp=dc9b894f4c74eb792d8d0fe5eed482ed5b8ae449;hpb=82ff984239b5b5088c952b684a5ab0f8112b8074;p=tinyos-2.x.git diff --git a/tools/release/extractor b/tools/release/extractor index dc9b894f..97679f5b 100755 --- a/tools/release/extractor +++ b/tools/release/extractor @@ -1,5 +1,6 @@ #!/usr/bin/perl $name = $ARGV[0]; +$file_path = $ARGV[1]; @files = split /\n/, `find .`; @result = @files; @@ -20,7 +21,7 @@ mkdir $name; open TAR, "|tar cf - -T - --no-recursion | tar xf - -C $name"; print TAR join("\n", @result); close TAR; -#print join("\n", @result); -system("tar cf - $name"); +system("tar cfz $file_path $name"); +system("rm -rf $name");