#!/usr/bin/perl
# unwrap gzipped Plan9 wrap(8) format packages
# usage: unwrap pkg.9gz
#
# unpack-plan9.pl, v 11062000
# (c) Fabricio Chalub, chalub@gnu.org 

$pkg = $ARGV[0];

open F, "zcat $pkg |" or die "cannot open pipe: $!";

while (<F>)
{
    /(.*) (.*) (.*) (.*) (.*) (.*)/;
    $filename = $1;
    $filename = substr ($filename, 1);
    $length = $6;
    read F, $buffer, $length;
    print "$filename\n";
    if ($length == 0)
    {
	mkdir $filename, 0700;
    }
    else
    {
	open O, ">$filename";
	print O $buffer;
	close O;
    }
}